perl/send_email_with_list_support.pl at main · gregdusoli/perl · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#!/usr/local/bin/perl

use MIME::Base64;

$ARGC = @ARGV;

if ( $ARGC != 4 ) {
    printf "$0 <mailist> <sender> <subject> <template.htm>\n\n";
    exit(1);
}

$sendmail = "/usr/sbin/sendmail";
$sender   = $ARGV[1];
$subject  = $ARGV[2];
$efile    = $ARGV[0];
$emar     = $ARGV[0];

open( FOO, $ARGV[3] );
@foo = <FOO>;

open( BANDFIT, "$emar" ) || die "Can't Open $emar";

$cont = 0;

while (<BANDFIT>) {
    ( $ID, $options ) = split( /\|/, $_ );

    chop($options);

    foreach ($ID) {
        $r1 = int( rand(9) );
        $r2 = int( rand(99) );
        $r3 = int( rand(999) );
        $r4 = int( rand(9999) );
        $r5 = int( rand(99999) );
        $r6 = int( rand(999999) );
        $r7 = int( rand(9999999) );
        $r8 = int( rand(99999999) );
        $r9 = int( rand(999999999) );

        $recipient = $ID;
        $bodyx = join( "\n", @foo );
        $bodyx =~ s/%email%/$ID/g;
        $bodyx =~ s/%rand1%/$r1/g;
        $bodyx =~ s/%rand2%/$r2/g;
        $bodyx =~ s/%rand3%/$r3/g;
        $bodyx =~ s/%rand4%/$r4/g;
        $bodyx =~ s/%rand5%/$r5/g;
        $bodyx =~ s/%rand6%/$r6/g;
        $bodyx =~ s/%rand7%/$r7/g;
        $bodyx =~ s/%rand8%/$r8/g;
        $bodyx =~ s/%rand9%/$r9/g;
        $bodyx =~ s/%email%/$sendmail/g;
        $body = encode_base64($bodyx);

        $subject =~ s/%email%/$ID/g;
        $subject =~ s/%rand1%/$r1/g;
        $subject =~ s/%rand2%/$r2/g;
        $subject =~ s/%rand3%/$r3/g;
        $subject =~ s/%rand4%/$r4/g;
        $subject =~ s/%rand5%/$r5/g;
        $subject =~ s/%rand6%/$r6/g;
        $subject =~ s/%rand7%/$r7/g;
        $subject =~ s/%rand8%/$r8/g;
        $subject =~ s/%rand9%/$r9/g;

        $sender =~ s/%rand4%/$r4/g;

        open( SENDMAIL, "| $sendmail -t" );
        print SENDMAIL "MIME-Version: 1.0\n";
        print SENDMAIL "Content-type:  text/html; charset=UTF-8\n";
        print SENDMAIL "Content-Transfer-Encoding: base64\n";

        #print SENDMAIL "$mailtype\n";
        print SENDMAIL "Subject: $subject\n";
        print SENDMAIL "From: $sender\n";
        print SENDMAIL "To: $recipient\n";
        print SENDMAIL "$body\n\n";
        close(SENDMAIL);

        $cont = $cont + 1;
        printf "$cont * Message sent to > $recipient";
    }
}

close(BANDFIT);