<VirtualHost 64.52.18.6:80> ServerAdmin root.net DocumentRoot /virtualhosts/soap.scandalz.net/htdocs/ ServerName soap.scandalz.net ErrorLog /virtualhosts/soap.scandalz.net/logs/error_log CustomLog /virtualhosts/soap.scandalz.net/logs/access_log combined <Perl> push (@INC,"/virtualhosts/soap.scandalz.net/perllib/"); </Perl> <Location /> SetHandler perl-script PerlHandler scandalz::soap::Apache </Location> </VirtualHost>
package scandalz::soap::Apache; use SOAP::Transport::HTTP; use Apache::DBI; my $server = SOAP::Transport::HTTP::Apache ->dispatch_to('/virtualhosts/soap.scandalz.net/perllib/'); sub handler { $server->handler(@_); } 1;