X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=tools%2Fdebianqueued-0.9%2Fdebianqueued;h=0dd57a4cb71117bc7dbd42ba8f5a5345e287d756;hb=b8330fec47b43835d4d4219f1eda008b4052fee3;hp=6d971826df6ccb3ddcc7373ca937fdfcb4c42479;hpb=41da77c422ab7c240d9396cb778a4950793eed15;p=dak.git 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; }