equal
deleted
inserted
replaced
2 |
2 |
3 use Mail::Sendmail; |
3 use Mail::Sendmail; |
4 use MIME::EncWords qw(encode_mimewords); |
4 use MIME::EncWords qw(encode_mimewords); |
5 use POSIX qw(locale_h); |
5 use POSIX qw(locale_h); |
6 |
6 |
7 my ($result, $codename, $source, $version, $changes) = @ARGV[0..4]; |
7 my ($result, $codename, $source, $version, $changes) = @ARGV[ 0 .. 4 ]; |
8 |
8 |
9 my ($pat, $fallback, $from) = qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de); |
9 my ($pat, $fallback, $from) = |
|
10 qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de); |
10 my $r; |
11 my $r; |
11 |
12 |
12 open C, '<', "$changes" or die "Can't open '<', '$changes': $!\n"; |
13 open C, '<', "$changes" or die "Can't open '<', '$changes': $!\n"; |
13 while (<C>) { |
14 while (<C>) { |
14 $r = $1 and last if /^changed-by:\s*(.*)\s*$/i; |
15 $r = $1 and last if /^changed-by:\s*(.*)\s*$/i; |
18 $r =~ $pat or $r = $fallback; |
19 $r =~ $pat or $r = $fallback; |
19 $r = encode_mimewords($r, (Charset => $1)) if setlocale(NULL) =~ /.*\.([^.]+)$/; |
20 $r = encode_mimewords($r, (Charset => $1)) if setlocale(NULL) =~ /.*\.([^.]+)$/; |
20 |
21 |
21 my $mail = { |
22 my $mail = { |
22 |
23 |
23 To => $r, |
24 To => $r, |
24 From => $from, |
25 From => $from, |
25 Subject => "$source $version $result in $codename" |
26 Subject => "$source $version $result in $codename" |
26 |
27 |
27 }; |
28 }; |
28 |
29 |
29 sendmail %{$mail} or die $Mail::Sendmail::error; |
30 sendmail %{$mail} or die $Mail::Sendmail::error; |