}
}
-# This is run by the CGI script. (#!perl \n use PLP; PLP::everything;)
+# Wrap old request handlers.
sub everything {
require PLP::CGI;
- clean();
- PLP::CGI::init();
- start();
+ PLP::CGI::everything();
}
-
-# This is the mod_perl handler.
sub handler {
require PLP::Apache;
- require Apache::Constants;
- clean();
- if (my $ret = PLP::Apache::init($_[0])) {
- return $ret;
- }
- #S start($_[0]);
- start();
- no strict 'subs';
- return Apache::Constants::OK();
+ PLP::Apache::handler(@_);
}
# Sends the headers waiting in %PLP::Script::header
<Files *.plp>
SetHandler perl-script
- PerlHandler PLP
+ PerlHandler PLP::Apache
PerlSendHeader On
PerlSetVar PLPcache On
</Files>
=item * /foo/bar/plp.cgi (local filesystem address)
#!/usr/bin/perl
- use PLP;
- PLP::everything();
+ use PLP::CGI;
+ PLP::CGI::everything();
=item * httpd.conf (for CGI setup)