#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>EZENET brings you the rates</TITLE></HEAD>\n";
print "<BODY bgcolor=ffffff text=00000f>\n";
print "<H1><CENTER>BROUGHT TO YOU BY</H1>\n";
print "<img src=\"http://www.ezenet.com/devel/e_head.gif\">";
print "<H1><CENTER>SHORT TERM RATES</H1>\n";
$loop=0;
print "<TABLE BORDER=10>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/debb.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
	print "<form METHOD=post action=/cgi-bin/devel/gic/admin/debupdate>\n"; 
	print "<TR>\n<TD><H3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">\n$s1</H3></TD>\n<TD><H3>$s2</H3>";
	print "</TD>\n<TD><H3>$s3</H3>\n";
	print "</TD>\n<TD><H3>$s4</H3>";
	print "</TD>\n<TD><H3>$s5</H3>";
	print "</TD>\n<TD><H3>$s6</H3>";
	print "</TD>\n<TD><H3>$s7</H3>";
	#print "</TD>\n<TD><h3>$s8</h3></TD>";
	#print "</TD>\n<TD><H3>$s9</H3></TD>";
	#print "</TD>\n<TD><h3>$s10</h3></td>";
	print "<INPUT TYPE=HIDDEN NAME=\"loop\" value=\"$loop\">";
	print "<TD><INPUT TYPE=submit value=change></TD>\n";
	print "</TR>\n";
	print "</FORM>";
	$loop+=1;
}
close(F);

print "</TABLE>\n";
print "<h4>CopyRight &#174 1996 EZENET INC.</h4>\n";
print "<a href=\"http://www.gicrates.com\"><h2>Return to menu</h2>\n";
print "</CENTER>\n";
print "</BODY>";
