#!/usr/local/bin/perl
# name: pmtest.pl
# purpose: To show how Apache perl module registered CGI script
# behavior differs from regular CGI script behavior.
#
# created: 19-JUN-1997 George J. Carrette. http://people.delphi.com/gjc/
#
# usage: http://yourserver/cgi-bin/pmtest.pl
# http://yourserver/perl/pmtest.pl
# perl -w pmtest.pl
# Invoke all of the above multiple times and observe the output.
# Note how the reported PID and parent PID changes, going through
# various cycles.
#
# advise: If you have a really messy cgi script to deal with,
# consider moving all willy-nilly utilized global variables
# to a package called, 'S' and then reset this package before
# using it. As this code fragment does:
#
# package S;
# reset 'A-Za-z';
# package main;
#
# Example httpd conf file settings:
#
# Alias /perl/ /usr/local/www/cgi-bin/
# Alias /cgi-bin/ /usr/local/www/cgi-bin/
#
# SetHandler cgi-script
# Options ExecCGI
#
#
# SetHandler perl-script
# PerlHandler Apache::Registry
# PerlNewSendHeader On
# PerlSetupEnv On
# Options ExecCGI
#
#
# Perl module programming is not casual programming.
# Therefore try to trap as many pitfalls as possible, cheaply
# by setting the strict options and predeclaring subroutines
# and variables.
use strict;
sub doit;
use vars qw($call_count $last_invocation_time);
print "Content-type: text/html\n\n";
print "pmtest\n";
print "\n";
print "\n";
doit;
print "
\n\n";
sub doit
{my @x;
my $time_now;
if (!defined($call_count)) {$call_count = 0;}
$call_count = $call_count + 1;
$time_now = time();
print "Realtime = ", $time_now, " seconds since epoch.\n";
if (defined($last_invocation_time))
{print "Last time = ", $time_now - $last_invocation_time,
" seconds ago.\n";}
$last_invocation_time = $time_now;
@x = times();
print "User CPU = ", $x[0], "\n";
print "System CPU = ", $x[1], "\n";
print "CallCount = ", $call_count, "\n";
print "PID = ", $$, "\n";
print "Parent PID = ", getppid(), "\n";
}