#!/usr/bin/perl -w
use strict;
packate Foo;
use CGI;
use MyLibrary;
sub handler {
my $q = new CGI;
my $someparam=$q->param('someparam');
$someparam=MyLibrary::FooProcess($someparam);
my $output ="Hello and welcome to FooCo!"
if ($someparam eq 'foo') {
# handle foo
$output .= "You said Foo! heh heh!";
}
else {
# default
$output .= "Nobody gives me any input";
}
print $q->header,$output;
return;
}
## and the mod_perl config
<Location /cgi-bin/foo.pl>
SetHandler perl-script
PerlHandler Foo
</location>
Does your code differ dramatically from this?
In reply to Re: Re: mod_perl configuration error?
by Yohimbe
in thread mod_perl configuration error?
by tune
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |