#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<Head><Title>CHAT LINE 1</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{'message'};
sub addchat{
	&output;
	exit 0;
}
$t=localtime(time);
@tt=split(/ /,$t);
open(F,">chat.tmp");
print F "@tt[1] @tt[2] @tt[3] @tt[4]\n";
print F "$FORM{'theName'}:\n";
$con = $FORM{'message'};
$con =~ s/</ /eg;
$con =~ s/>/ /eg;
$con =~ s/\// /eg;
print F "$con\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=#000000 text=#ffffff vlink=#ff0000 link =#ffff00 alink=#00ff00>\n";
        print "<img align=right src=/tlcplus/tlc.jpg>";	
        print "<FORM><TEXTAREA ROWS=15 COLS=50>"; 
	open (F,"chat.dat");
	while(<F>){
		print "$_";
	}
	close(F);
	print "</TEXTAREA></FORM>\n"; 
	print "<Form action=chat method=post>\n";
	print "Enter your Name:<Input Type=\"Text\" Name=\"theName\" VALUE=\"$FORM{'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";
	print "<BR>";
	print "<CENTER><font size=3>";
	print "<A href=\"/tlc_form.html\">Add profile</A> |";
	print "<A href=\"mailto:clinton\@tlcplus.com\">E-Mail</A> |";
	print "<A href=\"/tlc_main.html\">Home</A>|";
	print "<A href=\"/tlcplus.html\">Membership</A>|";
	print "<A href=\"/admin.html\">Administration</A>|";
	print "<A HREF=\"/chat.html\">Auto Chat</A>";
	print "</CENTER>";
}
