]> err.no Git - dak/commitdiff
Readd signature, and use tabs like the rest of the script
authorStephen Gran <steve@lobefin.net>
Sat, 10 May 2008 17:43:11 +0000 (18:43 +0100)
committerStephen Gran <steve@lobefin.net>
Sat, 10 May 2008 17:43:11 +0000 (18:43 +0100)
tools/debianqueued-0.9/debianqueued

index 0dd57a4cb71117bc7dbd42ba8f5a5345e287d756..c4dec406b82b789fa8e4f982f1930c35a3238cd7 100755 (executable)
@@ -2124,35 +2124,36 @@ sub send_mail($$$) {
        my $subject = shift;
        my $text = shift;
 
-        my $package = keys %main::packages ? join(' ', keys %main::packages) : "";
+       my $package = keys %main::packages ? join(' ', keys %main::packages) : "";
 
-        use Email::Send;
-        $Email::Send::Sendmail::SENDMAIL = '/usr/sbin/sendmail';
+       use Email::Send;
+       $Email::Send::Sendmail::SENDMAIL = '/usr/sbin/sendmail';
 
-        my $message = <<__MESSAGE__;
+       my $message = <<__MESSAGE__;
 To: $addr
 From: dak\@ftp-master.debian.org
 Subject: $subject
 X-Debian: DAK
 __MESSAGE__
 
-        if (length $package) {
-            $message .= "X-Debian-Package: $package\n";
-        }
+       if (length $package) {
+               $message .= "X-Debian-Package: $package\n";
+       }
 
-        $message .= "\n$text";
+       $message .= "\n$text";
+       $message .= "\nGreetings,\n\n\tYour Debian queue daemon\n";
 
-        my $mail = Email::Send->new;
-        for ( qw[Sendmail SMTP] ) {
-            $mail->mailer($_) and last if $mail->mailer_available($_);
-        }
+       my $mail = Email::Send->new;
+       for ( qw[Sendmail SMTP] ) {
+               $mail->mailer($_) and last if $mail->mailer_available($_);
+       }
 
-        my $ret = $mail->send($message);
-        if ($ret && $ret !~ /Message sent|success/) {
-            return 0;
-        }
+       my $ret = $mail->send($message);
+       if ($ret && $ret !~ /Message sent|success/) {
+               return 0;
+       }
 
-        return 1;
+       return 1;
 }
 
 #