From b8330fec47b43835d4d4219f1eda008b4052fee3 Mon Sep 17 00:00:00 2001 From: Stephen Gran Date: Sat, 10 May 2008 17:42:25 +0100 Subject: [PATCH] Sigh, I should test a bit more thoroughly occasionally --- tools/debianqueued-0.9/debianqueued | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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; } -- 2.39.2