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