viewvc.cgi/perl/email_attachements.pl

#!/usr/bin/perl -w

use strict;
use MIME::Lite;

my %ext2mime;

open(MIME,"/etc/mime.types") || die "mime.types: $!";
while(<MIME>) {
        chomp;
        next if (/^ *$/ || /^ *#/);
        my ($type,$exts) = split(/[ \t]+/,$_,2);
        if ($exts) {
                foreach my $ext (split(/[ \t]+/,$exts)) {
                        $ext2mime{$ext} = $type;
                }
        }

}
close(MIME);

my $curr_dir = shift @ARGV;

if (! $curr_dir) {
        print "\nUsage: $0 [directory]\n\n";
        print "diretory should containt directories which are valid e-mail\n";
        print "addresses (like first.last\@pliva.com) and attachements inside\n";
        print "that directory (directories without \@ will be ignored !!).\n";
        print "All files in selected directory will be ignored.\n\n";
        exit 1;
}

opendir(DIR, $curr_dir) || warn "can't opendir $curr_dir: $!";
my @dirs = grep { !/^\./ && -d "$curr_dir/$_" } readdir(DIR);
closedir(DIR);

print "Using dirs: ",join(", ",@dirs),"\n\n";

my @failed;

sub f {
        my $msg = shift;
        push @failed, $msg;
        print STDERR  "$msg\n";
}


my $max = $#dirs+1;
my $nr = 1;

foreach my $dir (@dirs) {

        if ($dir !~ m/\@/) {
                f("directory '$dir' don't have @ in name!");
                next;
        }

        if (! opendir(DIR, "$curr_dir/$dir")) {
                f("can't open '$dir': $!");
                next;
        }

        my @files = grep { !/^\./ && -f "$curr_dir/$dir/$_" } readdir(DIR);
        closedir(DIR);

        my $msg = new MIME::Lite(
                From    =>'Zeljko Covic <zeljko.covic@pliva.hr>',
                To      => $dir,
                Subject =>'Assessment Schedule',
                Type    =>'multipart/mixed');

        $msg->add('Errors-To' => 'Iva.Mladinic@pliva.hr');

        # debug
        $msg->add('X-To' => $dir);

        print STDERR "[$nr/$max] working on $dir...\n";
        $nr++;

        attach $msg (
                Type     =>'TEXT',
                Data     =>"Please find attached more information about the assessment with relevant files included.");

        foreach my $file (@files) {

                my $type = 'application/octet-stream';

                if ($file =~ m/\.([^\.]+)$/) {
                        $type = $ext2mime{$1} if ($ext2mime{$1});
                }

                print STDERR "\tadding '$file' ($type)\n";

                attach $msg (
                        Type     => $type,
                        Path     => "$curr_dir/$dir/$file",
                        Filename => $file);

        }

        if (! $msg->send) {
                f("can't send e-mail to: $dir");
        }
}

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