Current Path : /services/http/users/r/ryantate/

Upload File :

Current File : /services/http/users/r/ryantate/massmail.pl.txt.~6~

#!/opt/local/bin/perl -w

### massmail 
## Script for mass mailing your friends, one at a time.
## (Usage: massmail messagefile addressfile [subject]) 


use strict;
use Mail::Send; 

my $message_file = shift or die "Usage: massmail messagefile addressfile [subject]\n";
my $address_file = shift or die "Usage: massmail messagefile addressfile [subject]\n";
my $sender = Mail::Send->new; #Our interface to sendmail et. al.
$sender->subject(shift||'');

open MESSAGE, "<$message_file" or die "Could not open messagefile: $!";
my $message = join('',<MESSAGE>);	#Slurp in the whole message file
close MESSAGE or die "Could not close messagefile: $!";

open ADDYS, "<$address_file" or die "Could not open addressfile: $!";

#Send messages
my $address_count;
while (<ADDYS>) {
  chomp;
  next unless $_;		#allow blank lines in addressfile
  $sender->to($_);
  my $file_handle = $sender->open or die "Could not launch mailer: $!";	#Launch mailer
  print $file_handle $message; #Put message text in email
  $file_handle->close or die "Could not close mailer: $!"; #Send message
  $address_count++;
}

close ADDYS or die "Could not close addressfile: $!";

print "Sent $address_count messages.\n";

Copyright 2K16 - 2K18 Indonesian Hacker Rulez Copyright sisTR