70 lines
2 KiB
Perl
Executable file
70 lines
2 KiB
Perl
Executable file
#!/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;
|
|
|
|
use Encode;
|
|
use utf8;
|
|
|
|
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) {
|
|
$fullEmailLine =~ s/\s*#.*$//; $fullEmailLine =~ s/\s*$//; $fullEmailLine =~ s/^\s*//;
|
|
$fullEmailLine = Encode::encode("MIME-Header", $fullEmailLine);
|
|
#
|
|
my $emailTo = $fullEmailLine;
|
|
$emailTo =~ s/^[^<]+\<\s*([^\>]+)\s*\>\s*$/$1/;
|
|
|
|
open(SENDMAIL, "|/usr/lib/sendmail -f \"$FROM_ADDRESS\" -oi -oem -- $emailTo $FROM_ADDRESS") or
|
|
die "unable to run sendmail: $!";
|
|
|
|
print SENDMAIL "To: $fullEmailLine\n"; # X-Precedence: bulk\n";
|
|
print SENDMAIL @message;
|
|
|
|
close SENDMAIL;
|
|
sleep 1;
|
|
}
|
|
|
|
# Local variables:
|
|
# compile-command: "perl -c send-mass.plx"
|
|
# End:
|