SetHandler perl-script PerlHandler Apache::Status Order Allow,Deny Allow from localhost Allow from .pjcj.net ExtendedStatus On MaxClients 20 MinSpareServers 2 PerlWarn On PerlTaintCheck On PerlPassEnv GEDCOM_TEST $Gedcom::TEST = 1; 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; PerlTransHandler Gedcom::WebServices::_parse_uri