#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>INTEREST RATES</TITLE></HEAD>\n";
print "<BODY bgcolor=ffffff text=00000f>\n";
print "<center><img src=\"http://www.ezenet.com/images/hslc/hslc-logobar.gif\"><p>";

open(F,"/usr/local/etc/httpd/htdocs/devel/time.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h4>";
	print "Last Updated $s1\n</TD>\n<TD><h3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>";
	print "</TR>\n";
}
close(F);

open(F,"/usr/local/etc/httpd/htdocs/devel/no.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h4>";
	print "<a href=noadmin>NO. </a>$s1\n</TD>\n<TD><h3>";
	print "</TR>\n";
}
close(F);


print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#ccff00 colspan=7><b><a href=debadmin>DEBENTURE INVESTMENT CERTIFICATES</a></b></td></tr>\n";


open(F,"/usr/local/etc/httpd/htdocs/devel/deb.head");

while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><h3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>";
	print "</TR>\n";
}
close(F);
open(F,"/usr/local/etc/httpd/htdocs/devel/debb.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><H3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>";
	print "</TR>\n";
}
close(F);

print "</TABLE><p>\n";
print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#ccff00 colspan=7><b><a href=regadmin>REGISTERED RETIREMENT SAVINGS PLANS</a></b></td></tr>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/reg.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><h3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>";
	print "</TR>\n";
}
close(F);

open(F,"/usr/local/etc/httpd/htdocs/devel/regg.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><H3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>";
	print "</TR>\n";
}
close(F);

print "</TABLE><p>\n";


print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#ccff00 colspan=7><b><a href=ceradmin>CERTIFICATE OF DEPOSIT</a></b></td></tr>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/cer.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><h3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>\n<TD><H3>$s8";
	print "</TR>\n";
}
close(F);

open(F,"/usr/local/etc/httpd/htdocs/devel/cerr.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><H3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>\n<TD><H3>$s4";
	print "</TD>\n<TD><H3>$s5</TD>\n<TD><H3>$s6";
	print "</TD>\n<TD><H3>$s7</TD>\n<TD><H3>$s8";
	print "</TR>\n";
}
close(F);

print "</TABLE><p>\n";


print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#ccff00 colspan=3><b><a href=yearadmin>OPEN CERTIFICATE OF DEPOSIT</a></b></td></tr>\n";
open(F,"/usr/local/etc/httpd/htdocs/devel/year.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><h3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>";
	print "</TR>\n";
}
close(F);

open(F,"/usr/local/etc/httpd/htdocs/devel/year.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"http://www.ezenet.com/redball.gif\">$s1\n</TD>\n<TD><H3>$s2";
	print "</TD>\n<TD><H3>$s3</TD>";
	print "</TR>\n";
}
close(F);



print "</TABLE>\n";
print "<a href=../rateview><H3>Live Page</h4></a\n";
print "</CENTER>\n";
print "</BODY>";
