#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<Head><Title>EZENET CHAT</Title></Head>";
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;
}
&addchat unless $FORM{'theName'};
sub addchat{
	&output;
	exit 0;
}
$t=localtime(time);
@tt=split(/ /,$t);
open(F,">chat.tmp");
print F "@tt[1] @tt[2] @tt[3] \n";
print F "$FORM{'theName'}:\n";
print F "$FORM{'message'}\n";
print F "----------------------------------------------------\n";
close(F);
open(Fout,">>chat.tmp");
open(Fin,"chat.dat");
while(<Fin>){
	print Fout $_;
}
close(Fin);
close(Fout);
#open(F,">>chat.tmp");
#print F "$FORM{'theName'}: $FORM{'message'}\n";
#close(F);
open(Fout,">chat.dat");
open(Fin,"chat.tmp");
while(<Fin>){
	if(/^\r/){
        }
        else{
        print Fout $_;
        }
}
close(Fin);
close(Fout);
system("cp chat.dat chat.tmp");
&output;
sub output{
	print "<BODY BGCOLOR=#FFFFFF TEXT=#000000>";
	print "<IMG SRC=/devel/e_head.gif>";
	print "<FORM><TEXTAREA ROWS=10 COLS=50>"; 
	open (F,"chat.dat");
	while(<F>){
		print "$_";
	}
	close(F);
	print "</TEXTAREA></FORM>\n"; 
	print "<Form action=/cgi-bin/chat method=post>\n";
	print "Enter your Name:<Input Type=\"Text\" Name=\"theName\">\n";
	print "<BR>\n";
	print "Your message:<BR>\n";
	print "<TextArea Name=\"message\" Rows=\"5\" Cols=\"50\">\n";
	print "</TEXTAREA>\n";
	print "<p><input type=submit name=\"Submit\" value=\"CHAT\"> <input type=reset name=\"Reset\" value=\"Clear Form\"></p>\n";
	print "</form>\n";
}
