#Apache/Hello.pm
package Apache::Hello;
use strict;
use Apache::Constants ':common';
sub handler {
my $r = shift;
my $ua = $r->header_in('User-Agent');
$r->header_out("Perl-Version" => $]);
$r->content_type("text/html");
$r->send_http_header;
$r->print("Hello, I see you see me with $ua.");
return OK;
}
1;
__END__
=head1 NAME
Apache::Hello - Apache/Perl Hello World module
=head1 SYNOPSIS
#httpd.conf
<Location /hello>
SetHandler perl-script
PerlHandler Apache::Hello
</Location>
=head1 DESCRIPTION
A simple "Hello World" module, used as an example at the
1st ORA Perl conference talk on Apache/Perl.
=head1 SEE ALSO
mod_perl(3), Apache(3)
=head1 AUTHOR
Doug MacEachern