51 lines
1 KiB
Text
51 lines
1 KiB
Text
|
#!/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:
|