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;