#!/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;
}
@tt=split(/ /,$t);
open(F,">chat.tmp");
print F "@tt[1] @tt[2] @tt[3] @tt[4]\n";
open(FHOST,">>host.db");
print FHOST "@tt[1] @tt[2] @tt[3] @tt[4] $FORM{'theName'} $ENV{'REMOTE_HOST'}\n";
close(FHOST);
print F "$FORM{'theName'}";
print F ":\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);
$numloop = 0;
open(Fout,">chat.dat");
open(Fin,"chat.tmp");
while(<Fin>){
if ($numloop <= 50){
	if(/^\r/){
        }
        else{
        print Fout $_;
        }
	$numloop += 1;
	}
}
close(Fin);
close(Fout);
system("cp chat.dat chat.tmp");
&output;
sub output{
	
	print "<BODY BGCOLOR=#000000 text=#ff0802 vlink=#ff0000 link =#ffff00 alink=#00ff00>\n";

        print "<FORM><TEXTAREA ROWS=15 COLS=65 WRAP=VITUAL>"; 
	open (F,"chat.dat");
	while(<F>){
		print "$_";
	}
	close(F);
	print "</TEXTAREA></FORM>\n"; 
	print "<Form action=mar method=post>\n";
	print "<font color=#008080><b>9:00 Pm</b> </font>every night be here if you are a <font color=#808000><blink><b>FLOYD</b></font></blink><br>";	
	print "Nick Name: <B>$ENV{'REMOTE_USER'}</B><Input Type=\"HIDDEN\" Name=\"theName\" VALUE=\"$ENV{'REMOTE_USER'}\"> <input type=submit name=\"Submit\" value=\"CHAT / RELOAD\"> <input type=reset name=\"Reset\" value=\"WIPE\" ></a>";

	print "<br>";
	print "Your message:<BR>\n";
	print "<TextArea Name=\"message\" Rows=\"2\" Cols=\"65\" WRAP=\"VITUAL\">\n";
	print "</TEXTAREA>\n";
	print "</form>\n";
	print "<CENTER><font size=3>";
	
        print "<A href=\"/\">Home</A> |";
	print "<A href=\"mailto:webmaster\@pinkfloyd.com\">E-Mail</A> |";
	print "<A href=\"/resres.html\">Leave Messages for others</A>|";
	print "<A href=\"/\">Help</A>|";
	print "</CENTER>";
}
