#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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.