#!/usr/bin/perl # # dlu 10-Mar-2003 # use strict; use CGI; $CGI::DISABLE_UPLOADS = 1; $CGI::POST_MAX = 102_400; # 100KB my @listtime = localtime; my $scalartime = localtime; my $q = new CGI; print "Content-type: text/html\n\n"; print ""; print "@listtime
$scalartime
"; print $listtime[4]+1, "/", $listtime[3],"/", $listtime[5]+1900, "
"; $scalartime =~ /(\d\d:\d\d:\d\d)/; print $1, "
"; print "Remote Host:", $ENV{REMOTE_HOST}, "
", "IP:", $ENV{REMOTE_ADDR}, "
"; print "HTTP Host:", $ENV{HTTP_HOST}, "
", "IP:", $ENV{HTTP_ADDR}, "
"; print "
Referer:", $ENV{HTTP_REFERER}; if ( defined($q->param('deftest'))) { print "
defined!" } else { print "
undefined!"} print ""; exit;