Home: Perl Programming Help: mod_perl:
I can't find error section of code



olimpiada
New User

Jun 19, 2010, 11:40 AM


Views: 29768
I can't find error section of code

hi everyone,
I'm new in mod_perl. I rewrited the code of program from book. But, the code doesn't work:

Code
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;



winfinit
User

Jul 14, 2010, 6:20 PM


Views: 29246
Re: [olimpiada] I can't find error section of code

when you are saying code doesnt work, what do you mean? does it return any type of error message, or do you see anything in your error_log, and also have you included mod_perl in your apache configuration?