Re: I can't find error section of code


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: I can't find error section of code

by rowdog (Curate)

on Jun 20, 2010 at 16:41 UTC ( [id://845644]=note: print w/replies, xml )

Need Help??

in reply to I can't find error section of code

This is where you go wrong...

my $r = Apache2::Request->new(shift);
[download]

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;
}
[download]

If you haven't seen it yet, the mod_perl web site is an excellent source of documentation and tutorials.