>>>>> "Randal" == Randal L Schwartz <[EMAIL PROTECTED]> writes:
Randal> Or a variation of that, that I like... set up a TransHandler like this:
Randal> sub handler { # PerlTransHandler
Randal> return DECLINED unless $r->uri eq "/";
Randal> $r->set_handler("perl-script");
That should have been ->handler, not ->set_handler. Durn failing memory. :)
Randal> $r->push_handlers( PerlHandler => sub {
Randal> ... your code goes here
Randal> }
Randal> return OK;
And this needs Apache::Constants qw(OK DECLINED);
Randal> }
And I thought it would be obvious that I build my server with
Makefile.PL's "EVERYTHING=1" option by now, but yes, that's a prereq.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!