000

#Mass Mailer by Matthew Donica 2/18/10

#!/usr/bin/local/perl
use HTML::Entities;
use Mail::Sendmail;

#Prompt user for message file name
printf("\nMessage file? ");
$MessageFile = <>;

#Open message file or die.
open(MF, $MessageFile) || die "Can't open message file";
$message = "";
#Handle multiple lines by concatenating everything into one string
while(<MF>)
{
$message .= "$_";
}
close(MF);

#Prompt for email list file
printf("Email list file? ");
$ListFile = <>;

#Prompt for subject
printf("Subject? ");
$Subject = <>;
printf("\n");

#Open the email file or die
open(FH, $ListFile) || die "Can't open mail file";

#While you haven't run out of email addresses, go through the file mailing everybody on the list

while(<FH>)
{
chomp;
# Everything is specified previously
%mail = (From => 'Dr. Robert Ferdinand <rferdand@ecok.edu>', 
	To => "$_",
	Subject => "$Subject",
	Message => "$message");
sendmail(%mail) || printf("sendmail error");
}
close(FH);

#End of Code
#Things to do later: Allow user to specify who they are and what their email address is.