#!/usr/bin/perl

#
# Comments V1.1 by Mario Ambrogetti
#

# Parse input

sub ReadParse {

  if (@_) {
    local (*in) = @_;
  }

  local ($i, $loc, $key, $val);

  if ($ENV{'REQUEST_METHOD'} eq "GET") {
      $in = $ENV{'QUERY_STRING'};
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {
      $in .= getc;
    }
  }

  @in = split(/&/,$in);

  foreach $i (0 .. $#in) {

    $in[$i] =~ s/\+/ /g;
    $in[$i] =~ s/%(..)/pack("c",hex($1))/ge;

    $loc = index($in[$i],"=");
    $key = substr($in[$i],0,$loc);
    $val = substr($in[$i],$loc+1);
    
    $in{$key} .= '\0' if (defined($in{$key}));
    $in{$key} .= $val;
  }

  return 1;
}

# Main

&ReadParse;                
open(STDERR,">&STDOUT");  

$time_string = localtime;
$time_string =~ s/\d\d:\d\d:\d\d//;

if ($in{comments} && $in{file}) {

  open(LIST, ">>$in{file}") || die("Cannot open files \"$in{file}\".\n",1);

  if ($in{username}) {
    $str = "$in{realname} &lt;$in{username}&gt";
  }

print LIST <<">>";
<p><font size="2" face="Arial, Helvetica, sans-serif" color="#999999">
<pre>$in{comments}</pre>
</font><br>
<font size="2" face="Arial, Helvetica, sans-serif" color="#999999">
($str "$time_string")</font></p>
>>

  close(LIST);
}

print "Location: $ENV{HTTP_REFERER}\n\n";