#!/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=\"/topcon.gif\"><p>";

open(F,"/export/home/ian/time.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8) = split(/@/,$_);
        	
	print "<b>Last Updated $s1 $s2 $s3 $s4 $s5 $s6 $s7 $s8";

}
close(F);

print "<br>Rates are subject to change without notice</b><p>";




print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#238E23 colspan=9><b>Posted Market Rates</b></td></tr>\n";
open(F,"/export/home/kasra/cer.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

open(F,"/export/home/kasra/cerr.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10,$s11) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

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

print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#238E23 colspan=9><b>FMMC CMHC Insured Mortgage Rates</b></td></tr>\n";
open(F,"/export/home/kasra/cer.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

open(F,"/export/home/kasra/cerr2.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10,$s11) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

print "</TABLE><p>\n";
print "<TABLE BORDER=2 cellpadding=5><tr align=center><td  bgcolor=#238E23 colspan=9><b>FMMC Conventional Mortgages</b></td></tr>\n";
open(F,"/export/home/kasra/cer.head");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9) = split(/@/,$_);
        	
	print "<TR bgcolor=#4cb5e8>\n<TD><h3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

open(F,"/export/home/kasra/cerr3.out");
while(<F>){
	($s1,$s2,$s3,$s4,$s5,$s6,$s7,$s8,$s9,$s10,$s11) = split(/@/,$_);
        	
	print "<TR>\n<TD bgcolor=#ffffdf><H3>";
	print "<IMG SRC=\"/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 "</TD>\n<TD><H3>$s9";
	print "</TR>\n";
}
close(F);

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



print "<a href=\"http://www.mtgerates.com/\"><H3>Back</h4></a\n";
print "</CENTER>\n";
print "</BODY>";
