in reply to I can't find error section of code
This is where you go wrong...
my $r = Apache2::Request->new(shift);
You're throwing away the Apache2::RequestRec to build an Apache2::Request which is used for parsing parameters rather than setting content type and such. You want to keep both objects. Maybe try something like...
sub handler { my $r = shift; my $req = Apache2::Request->new($r); my $name = $req->param('name') || 'John Doe'; $r->content_type('text/html'); $r->print(<<EOHTML); <html>...</html> EOHTML return OK; }
If you haven't seen it yet, the mod_perl web site is an excellent source of documentation and tutorials.
|
---|
In Section
Seekers of Perl Wisdom