1 |
#!/usr/bin/perl -w |
2 |
|
3 |
# send same message and different attachements to people. Run this script |
4 |
# without arguments to see usage, and customize message on top of script |
5 |
# |
6 |
# Dobrica Pavlinusic, https://www.rot13.org/~dpavlin/sysadmin.html |
7 |
|
8 |
use strict; |
9 |
use MIME::Lite; |
10 |
|
11 |
# customize this part !! |
12 |
my $from = 'Joe Doe <joe.doe@nobody.com>'; |
13 |
my $subject = "New informations about..."; |
14 |
my $errors = 'postmaster@nobody.com'; |
15 |
my $body = "Please find attached more information about..."; |
16 |
# end of user configuration |
17 |
|
18 |
my %ext2mime; |
19 |
|
20 |
open(MIME,"/etc/mime.types") || die "mime.types: $!"; |
21 |
while(<MIME>) { |
22 |
chomp; |
23 |
next if (/^ *$/ || /^ *#/); |
24 |
my ($type,$exts) = split(/[ \t]+/,$_,2); |
25 |
if ($exts) { |
26 |
foreach my $ext (split(/[ \t]+/,$exts)) { |
27 |
$ext2mime{$ext} = $type; |
28 |
} |
29 |
} |
30 |
|
31 |
} |
32 |
close(MIME); |
33 |
|
34 |
my $curr_dir = shift @ARGV; |
35 |
|
36 |
if (! $curr_dir) { |
37 |
print "\nUsage: $0 [directory]\n\n"; |
38 |
print "directory should containt directories which are valid e-mail\n"; |
39 |
print "addresses (like first.last\@pliva.com) and attachements inside\n"; |
40 |
print "that directory (directories without \@ will be ignored !!).\n"; |
41 |
print "All files in selected directory will be ignored.\n\n"; |
42 |
exit 1; |
43 |
} |
44 |
|
45 |
opendir(DIR, $curr_dir) || warn "can't opendir $curr_dir: $!"; |
46 |
my @dirs = grep { !/^\./ && -d "$curr_dir/$_" } readdir(DIR); |
47 |
closedir(DIR); |
48 |
|
49 |
print "Using dirs: ",join(", ",@dirs),"\n\n"; |
50 |
|
51 |
my @failed; |
52 |
|
53 |
sub f { |
54 |
my $msg = shift; |
55 |
push @failed, $msg; |
56 |
print STDERR "$msg\n"; |
57 |
} |
58 |
|
59 |
|
60 |
my $max = $#dirs+1; |
61 |
my $nr = 1; |
62 |
|
63 |
foreach my $dir (@dirs) { |
64 |
|
65 |
if ($dir !~ m/\@/) { |
66 |
f("directory '$dir' don't have @ in name!"); |
67 |
next; |
68 |
} |
69 |
|
70 |
if (! opendir(DIR, "$curr_dir/$dir")) { |
71 |
f("can't open '$dir': $!"); |
72 |
next; |
73 |
} |
74 |
|
75 |
my @files = grep { !/^\./ && -f "$curr_dir/$dir/$_" } readdir(DIR); |
76 |
closedir(DIR); |
77 |
|
78 |
my $msg = new MIME::Lite( |
79 |
From => $from, |
80 |
To => $dir, |
81 |
Subject => $subject, |
82 |
Type =>'multipart/mixed'); |
83 |
|
84 |
$msg->add('Errors-To' => $errors); |
85 |
|
86 |
# debug |
87 |
$msg->add('X-To' => $dir); |
88 |
|
89 |
print STDERR "[$nr/$max] working on $dir...\n"; |
90 |
$nr++; |
91 |
|
92 |
attach $msg ( |
93 |
Type => 'TEXT', |
94 |
Data => $body |
95 |
); |
96 |
|
97 |
foreach my $file (@files) { |
98 |
|
99 |
my $type = 'application/octet-stream'; |
100 |
|
101 |
if ($file =~ m/\.([^\.]+)$/) { |
102 |
$type = $ext2mime{$1} if ($ext2mime{$1}); |
103 |
} |
104 |
|
105 |
print STDERR "\tadding '$file' ($type)\n"; |
106 |
|
107 |
attach $msg ( |
108 |
Type => $type, |
109 |
Path => "$curr_dir/$dir/$file", |
110 |
Filename => $file); |
111 |
|
112 |
} |
113 |
|
114 |
if (! $msg->send) { |
115 |
f("can't send e-mail to: $dir"); |
116 |
} |
117 |
} |
118 |
|
119 |
if (@failed) { |
120 |
open(ERRORS,"> errors.log") || warn "can't open errors.log: $!"; |
121 |
print "\nERRORS during this run (also saved in errors.log):\n"; |
122 |
print join("\n",@failed); |
123 |
print ERRORS join("\n",@failed); |
124 |
print "\n"; |
125 |
close(ERRORS); |
126 |
} |