
olimpiada
New User
Jun 19, 2010, 11:40 AM
Post #1 of 2
(30755 views)
|
I can't find error section of code
|
Can't Post
|
|
hi everyone, I'm new in mod_perl. I rewrited the code of program from book. But, the code doesn't work:
package HandleCGIData2; # file: HandleCGIData2.pm # use statements, including # our new Apache::Request module use strict; use Apache2::Const ':common'; use Apache2::Request; sub handler { # shift the argument and pass it into # the new() method in the Apache::Request # class my $r = Apache2::Request->new(shift); # we can now call param() with the Apache::Request # object in a similar way to using CGI.pm my $name = $r->param('name') || 'John Doe'; my $age = $r->param('age') || '50'; # set the content type and send the header $r->content_type('text/html'); # $r->send_http_header(); # print the HTML, including our variables # $name and $age $r->print(<<EOHTML); <html> <head> <title>Using Apache2::RequestIO</title> </head> <body bgcolor="#ffffff"> <h1>Using Apache2::Request</h1> name = $name<br> age = $age </body> </html> EOHTML return OK; } 1;
|