From: Stephen Gran Date: Sat, 10 May 2008 16:42:25 +0000 (+0100) Subject: Sigh, I should test a bit more thoroughly occasionally X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8330fec47b43835d4d4219f1eda008b4052fee3;p=dak Sigh, I should test a bit more thoroughly occasionally --- diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued index 6d971826..0dd57a4c 100755 --- a/tools/debianqueued-0.9/debianqueued +++ b/tools/debianqueued-0.9/debianqueued @@ -2127,12 +2127,13 @@ sub send_mail($$$) { my $package = keys %main::packages ? join(' ', keys %main::packages) : ""; use Email::Send; + $Email::Send::Sendmail::SENDMAIL = '/usr/sbin/sendmail'; - my $message = <<'__MESSAGE__'; - To: $addr - From: dak@ftp-master.debian.org - Subject: $subject - X-Debian: DAK + my $message = <<__MESSAGE__; +To: $addr +From: dak\@ftp-master.debian.org +Subject: $subject +X-Debian: DAK __MESSAGE__ if (length $package) { @@ -2147,7 +2148,7 @@ __MESSAGE__ } my $ret = $mail->send($message); - if ($ret && $ret !~ /Message sent/) { + if ($ret && $ret !~ /Message sent|success/) { return 0; }