D-Spot Chat Line

#!/usr/bin/perl require "libcgi13.pl"; #library from lesson10 require "libprint.pl"; #print/refresh output &parse_input; &print_header; $MAXSAVE = 20; flock("gdata.txt",2); open(FROMFILE,"){ push(@everyline, $_); } $longstring = join("",@everyline); @oldentries = split(//,$longstring); if(@oldentries + 1 >= $MAXSAVE){ pop(@oldentries); } close(FROMFILE); open(TOFILE,">gdata.txt"); seek(TOFILE,0,0); print TOFILE ""; print TOFILE " $FORM_DATA{'name'}: "; print TOFILE " $FORM_DATA{'comments'}
\n"; shift(@oldentries); foreach $entry (@oldentries) { print TOFILE ""; print TOFILE $entry; } truncate(TOFILE, tell(TOFILE)); close(TOFILE); flock("gdata.txt",8); open(TOFILE,">ctime.txt"); print TOFILE " $FORM_DATA{'fresh'}"; close(TOFILE); $try = $FORM_DATA{'fresh'}; &print_entry(); ##

##

#!/usr/bin/perl

sub print_entry

{ 
open(TIMEFILE,"){
	push(@time, $_); 
} 
close(TIMEFILE);

open(FROMFILE,"D-Spot Chat Line
 
	



Chat Lounge $try 



ENDHEADER
	while () {
		print;
	}
close(FROMFILE);
} 
return 1;