Hey, I've been having some trouble debuggin this...I keep getting 500
errors. Would some kind soul be willing to help me?
#!/usr/bin/local/perl
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($FORM{'subitted'} eq 'yes' )
showstats();
else
{
print <<EndOfHTML;
<html><head><title>Test Page</title></head>
<body>
<h2>Select User</h2>
<form action='./logger.cgi' method=post>
<input type=hidden name=submitted value='yes'>
<select name='userid'>
EndOfHTML
opendir(DIR, ".");
@files = readdir(DIR);
closedir(DIR);
foreach $file (@files)
{
if ($file ne "." && $file ne ".." && $file ne "logger.cgi")
{
print "<option value=";
print $file;
print ">";
print $file;
print "</option>\n";
}
}
print "</select><br><input type=submit></form>";
}
sub showstats()
{
%datahash = {};
@timeofday[96];
foreach $entry(@timeofday)
$entry=0;
@tempbuffer;
open(INFILE,$FORM{'userid'});
@data = <INFILE>
foreach $line (@data)
{
@tempbuffer = split(/=/, $line)
$datahash{@tempbuffer[0]}=@tempbuffer[1];
if ($datahash{@tempbuffer[0]}==1)
{
$numberofdays = @tempbuffer[0] % (24 * 60 * 60);
$tod = @tempbuffer[0] - $numberofdays * 24 * 60 *
60;
@timeofday[$tod/(24*4)]++;
}
}
print "<html><head></head><body>\n";
foreach $entry(@timeofday)
{
print "<img src=http://www.shehan.ws/images/red.gif width=4
height=";
print $entry;
print ">\n";
}
}
