bin/maybe-notify-uploader
branchrsync
changeset 36 476655f48d19
child 38 81214d8c7c1e
equal deleted inserted replaced
35:ff9bdf95363c 36:476655f48d19
       
     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;