our $VERSION = '1.00';
+use PLP;
+require Apache::Constants;
+
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
our $r = shift;
$PLP::Apache::r->print(@_);
}
+# This is the mod_perl handler.
+sub handler {
+ PLP::clean();
+ if (my $ret = init($_[0])) {
+ return $ret;
+ }
+ #S PLP::start($_[0]);
+ PLP::start();
+ no strict 'subs';
+ return Apache::Constants::OK();
+}
+
1;