#!/usr/bin/perl

$file = "/usr/local/etc/httpd/htdocs/bball/cgi-bin/bbs/today";

open (FILE1,"$file");
	@todays = <FILE1>;
close (FILE1);

$ee = @todays;
$todays[2]="0\n";
$todays[4]="0\n";

open (FILE,">$file");
	for ($ii=0;$ii<$ee;$ii++) {
		print FILE "$todays[$ii]";
	}
close (FILE);

$file = "/usr/local/etc/httpd/htdocs/bball/cgi-bin/bbs/guestip";

unlink($file);

#print "Content-type: text/html\n\n";

#print qq(nice!\n);

exit;