#!/usr/bin/perl 
my $email=''; 
my $name=''; 
my $subject="Interest Rate Updates from Pacific West Capital"; 
my $i=0; 
# get rates 
open(FILE,"rates.txt") ||  die ("Can't open file!"); 
my @rates=<FILE>; 
close FILE; 
my $r30c=$rates[1]; 
my $r15c=$rates[3]; 
my $r51c=$rates[5]; 
my $r30j=$rates[7]; 
my $r15j=$rates[9]; 
my $r51j=$rates[11]; 
my $date = `date`; 
my $message="Interest Rates for $date  \n\n\nConforming 30 year fixed: $r30c\nConforming 15 year fixed: $r15c\nConforming 5/1 ARM: $r51c\n\nJumbo 30 year fixed: $r30j\nJumbo 15 year fixed: $r15j\nJumbo 5/1 ARM : $r51j\n\n\n"; 
# get members list 
open(FILE,"../www/mortgage-pros.com/erates/members.txt") ||  die ("Can't open file!"); 
my @emaillist=<FILE>; 
close FILE; 
print "Content-type: text/html\n\n"; 
my $i=0; 
	for (@emaillist) { 
	chomp; 
	 
		my @emaillistrow=split('\|',$_); 
		$name= $emaillistrow[0]; 
		$email= $emaillistrow[1]; 
#		print $emaillistrow[0]; 
#		print $emaillistrow[1]; 
#		print $emaillistrow[2]; 
#		print $emaillist[0]; 
#		print length($emaillist[0]); 
#		print $emaillist[1] ; 
#		print $emaillist[2]; 
#		exit; 
emailrates($name,$email) 
} 
 
sub emailrates { 
	my $sendto=$_[0]; 
	my $fname=$_[1]; 
	unless (open(MAIL, "|/usr/lib/sendmail -t")) {   
	print "error.\n"; 
	warn "Error starting sendmail: $!"; } 
	print MAIL "From: info\@mortgage-pros.com\n"; 
	print MAIL "To: $sendto\n"; 
	print MAIL "Subject: $subject\n\n"; 
	print MAIL "Hello $fname,\n\n"; 
	print MAIL $message; 
  print MAIL "Best Regards,\n\nPacific West Capital"; 
	close(MAIL) || warn "Error closing mail: $!";	 
	print "Email sent to : $email\n"; 
	}

	for (@emaillist) {  
	chomp;chomp; 
        next if /^\s*$/;