--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/maybe-notify-uploader Mon Feb 20 13:31:29 2012 +0100
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use Mail::Sendmail;
+use MIME::EncWords qw(encode_mimewords);
+
+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 (defined $ENV{LANG} and $ENV{LANG} =~ /.*\.([^.]+)$/);
+
+my $mail = {
+
+ To => $r,
+ From => $from,
+ Subject => "$source $version $result in $codename"
+
+};
+
+sendmail %{$mail} or die $Mail::Sendmail::error;