#!/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 "<CENTER>\n";
print "<img src=\"http://www.ezenet.com/devel/e_head.gif\">";
print "<H2><CENTER>EzSecure Admin</H2>\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
($row,$check) = split(/=/,$buffer);
$row=0;
#
print "<FORM ACTION=/cgi-bin/devel/gic/admin/yearsave METHOD=POST>";
print "<TABLE BORDER=10>\n";
print "<INPUT TYPE=HIDDEN NAME=\"loop\" value=$check>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/year.in");
while(<F>){
	($s1,$s2,$s3) = split(/@/,$_);
	if($row==$check){
		print "<TR>\n<TD><H3></H4></TD>\n<TD>";
		#print "<INPUT TYPE=\"text\" NAME=\"rateq$row\" SIZE=6 VALUE=\"$s1\">\n";
		print "<INPUT TYPE=\"text\" NAME=\"rate9$row\" VALUE=\"$s1\">\n";
		print "<INPUT TYPE=\"text\" NAME=\"rate8$row\" SIZE=6 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\">";
		




print "</TR>\n";
	}
	else{
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"rate9$row\" VALUE=\"$s1\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"rate8$row\" VALUE=\"$s2\">\n";
		print "<INPUT TYPE=\"HIDDEN\" NAME=\"rate1$row\" VALUE=\"$s3\">\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 1998 EZENET INC.</h4>\n";
print "<h2><a href=yearadmin>Back</h4></a>\n";
print "</CENTER>\n";
print "</BODY>";
