Version as appeared on backup.

send-mass.plx

@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+# send-mass.plx                                               -*- Perl -*-
+
+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: