hmm. Tall order.
try this:
standard form of a mod_perl routine:
#!/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?
--
Jay "Yohimbe" Thorne, alpha geek for
UserFriendly