<Location /perl-status>
    SetHandler perl-script
    PerlHandler Apache::Status
    Order Allow,Deny
    Allow from localhost
    Allow from .pjcj.net
</Location>

ExtendedStatus On

MaxClients 20
MinSpareServers 2

PerlWarn On
PerlTaintCheck On

PerlPassEnv GEDCOM_TEST

<IfDefine GEDCOM_TEST>
    <Perl>
        $Gedcom::TEST = 1;
    </Perl>
</IfDefine>

<Perl>
    use Apache::Status;

    $ENV{PATH} = "/bin:/usr/bin";
    delete @ENV{"IFS", "CDPATH", "ENV", "BASH_ENV"};

    $Gedcom::DATA = $Gedcom::ROOT;  # location of data stored on server

    use lib "$Gedcom::ROOT/blib/lib";
    use Gedcom::WebServices;

    my $handlers =
    [ qw
      (
          plain
          xml
          json
      )
    ];

    eval Gedcom::WebServices::_set_handlers($handlers);
    # use Apache::PerlSections; print STDERR Apache::PerlSections->dump;
</Perl>

PerlTransHandler Gedcom::WebServices::_parse_uri