#!/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,"<gdata.txt");
while(<FROMFILE>){
	push(@everyline, $_); 
} 

$longstring = join("",@everyline); 
@oldentries = split(/<!--NEWENTRY-->/,$longstring); 

if(@oldentries + 1 >= $MAXSAVE){ 
	pop(@oldentries); 
} 

close(FROMFILE);
open(TOFILE,">gdata.txt"); 

seek(TOFILE,0,0); 
print TOFILE "<!--NEWENTRY-->"; 
print TOFILE "<font face=arial><b> $FORM_DATA{'name'}: </b>"; 
print TOFILE " $FORM_DATA{'comments'} </font><br>\n"; 

shift(@oldentries);
foreach $entry (@oldentries) { 
	print TOFILE "<!--NEWENTRY-->"; 
	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();