#!/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;
}
        print "<BODY BGCOLOR=#000000 TEXT=#ffffff>";
        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\">\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";
