#!/usr/bin/perl

use Mail::Sendmail;
use MIME::EncWords qw(encode_mimewords);
use POSIX qw(locale_h);

my ($result, $codename, $source, $version, $changes) = @ARGV[ 0 .. 4 ];

my ($pat, $fallback, $from) =
  qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de);
my $r;

open C, '<', "$changes" or die "Can't open '<', '$changes': $!\n";
while (<C>) {
    $r = $1 and last if /^changed-by:\s*(.*)\s*$/i;
    $r = $1 if /^maintainer:\s*(.*)\s*$/i;
}

$r =~ $pat or $r = $fallback;
$r = encode_mimewords($r, (Charset => $1)) if setlocale(NULL) =~ /.*\.([^.]+)$/;

my $mail = {

    To      => $r,
    From    => $from,
    Subject => "$source $version $result in $codename"

};

sendmail %{$mail} or die $Mail::Sendmail::error;
