#!/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 "<a href=\"http://www.ezenet.com/dynaweb/ak.html\"><H1><CENTER>STD RATES</H1>\n";
$row=0;
print "<FORM ACTION=/cgi-bin/devel/ratesavel METHOD=POST>";
print "<TABLE BORDER=10>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/std.in");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9) = split(/@/,$_);
	print "<TR>\n<TD><H3>$s2</H4></TD>\n<TD>";
	print "<INPUT TYPE=\"text\" NAME=\"rate9$row\" VALUE=\"$s1\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"rate8$row\" VALUE=\"$s2\">\n";
#	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1</H3></TD>\n";
	print "<TD><INPUT TYPE=\"TEXT\" NAME=\"rate1$row\" SIZE=6 VALUE=\"$s3\"></TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate2$row\" SIZE=6 VALUE=\"$s4\">";
	print "</TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate3$row\" SIZE=6 VALUE=\"$s5\"></TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate4$row\" SIZE=6 VALUE=\"$s6\">";
	print "</TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate5$row\" SIZE=6 VALUE=\"$s7\"></TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate6$row\" SIZE=6 VALUE=\"$s8\">";
	print "</TD>\n<TD><INPUT TYPE=\"TEXT\" NAME=\"rate7$row\" SIZE=6 VALUE=\"$s9\"></TD>\n<TD></td>";
	print "</TR>\n";
	$row+=1;
}
close(F);
print "</TABLE>\n";
print "<br><INPUT TYPE=\"HIDDEN\" NAME=\"max\" VALUE=\"$row\">";
print "<br><INPUT TYPE=\"SUBMIT\" VALUE=\"SAVE\">";
print "</FORM>";
print "<h4>CopyRight &#174 1996 EZENET INC.</h4>\n";
print "</CENTER>\n";
print "</BODY>";
