equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
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 |
6 |
6 my ($result, $codename, $source, $version, $changes) = @ARGV[0..4]; |
7 my ($result, $codename, $source, $version, $changes) = @ARGV[0..4]; |
7 |
8 |
8 my ($pat, $fallback, $from) = qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de); |
9 my ($pat, $fallback, $from) = qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de); |
9 my $r; |
10 my $r; |
13 $r = $1 and last if /^changed-by:\s*(.*)\s*$/i; |
14 $r = $1 and last if /^changed-by:\s*(.*)\s*$/i; |
14 $r = $1 if /^maintainer:\s*(.*)\s*$/i; |
15 $r = $1 if /^maintainer:\s*(.*)\s*$/i; |
15 } |
16 } |
16 |
17 |
17 $r =~ $pat or $r = $fallback; |
18 $r =~ $pat or $r = $fallback; |
18 $r = encode_mimewords($r, (Charset => $1)) if (defined $ENV{LANG} and $ENV{LANG} =~ /.*\.([^.]+)$/); |
19 $r = encode_mimewords($r, (Charset => $1)) if setlocale(NULL) =~ /.*\.([^.]+)$/; |
19 |
20 |
20 my $mail = { |
21 my $mail = { |
21 |
22 |
22 To => $r, |
23 To => $r, |
23 From => $from, |
24 From => $from, |