small-hacks/send-mass.plx

#!/usr/bin/perl
# send-mass.plx                                               -*- Perl -*-
#
# This program's license gives you software freedom; you can copy, modify,
# convey, and/or redistribute it under the terms of the GNU General Public
# License as published by the Free Software Foundation; either version 3 of
# the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program in a file called 'GPLv3'.  If not, write to the:
#    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
#                                    Boston, MA 02110-1301, USA.

use strict;
use warnings;

if (@ARGV != 3) {
  print "usage: $0 <LIST_OF_ADDRESSES_FILE> <MESSAGE_FILE> <FRM_ADDR>\n";
  exit 1;
}
my($LIST_FILE, $MESSAGE_FILE, $FROM_ADDRESS) = @ARGV;

open(LIST, "<$LIST_FILE") or die "unable to open $LIST_FILE: $!";

my @sendTo;
while (my $line = <LIST>) {
  chomp $line;
  $line =~ s/#.*$//;
  next if $line =~ /^\s*$/;
  push(@sendTo, $line);
}
close LIST;


open(MESSAGE, "<$MESSAGE_FILE") or die "unable to open $MESSAGE_FILE: $!";

my @message;

@message = <MESSAGE>;

close MESSAGE;

foreach my $fullEmailLine (@sendTo) {

  my $emailTo = $fullEmailLine;
  $emailTo =~ s/^[^<]+\<\s*([^\>]+)\s*\>\s*$/$1/;

  open(SENDMAIL, "|/usr/lib/sendmail -f \"$FROM_ADDRESS\" -oi -oem -- $emailTo") or
    die "unable to run sendmail: $!";

  print SENDMAIL "To: $emailTo\n"; # X-Precedence: bulk\n";
  print SENDMAIL @message;

  close SENDMAIL;
  sleep 1;
}

# Local variables:
# compile-command: "perl -c send-mass.plx"
# End: