#!/usr/bin/perl
##################################################################
#   
####################################################################
#
#
#

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 $mon = $mon + 1;
   if ($sec < 10)  { $sec = "0$sec";   }
  if ($min < 10)  { $min = "0$min";   }
   if ($hour < 10) { $hour = "0$hour"; }
   if ($mday < 10) { $mday = "0$mday"; }
   if ($mon < 10)  { $mon = "0$mon";  }
   $date = "$hour\:$min\:$sec $mon/$mday/$year";   


open(COM_FILE,'+>>/var/www/htdocs/csir/comment.txt') || die"cant open file";
print COM_FILE "Next Entry\n";
print COM_FILE "------------------------------------------------------------------\n";
print COM_FILE "Date :$date\n";
$| = 1;  # To flush the buffers
 if ($ENV{"REQUEST_METHOD"} eq 'POST')
  {
      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;
  $contents{$name} = $value;
  print COM_FILE "$name :$contents{$name}\n";
 }
  }
print COM_FILE "\n\n";
close(COM_FILE);
#print "Content-type :text\html\n\n";
#print "Your comments have been registerd. Thanks!!<\p>";
print "Location: http://www.nio.org/\n\n";
############################################################################


################################################################################