Bonjour,

un petit bogue :
j'avais supprimé par erreur le message de fin de courriel

a+

Nicolas
-- 
--- ddts-rev.old        Sun Sep 23 16:32:36 2001
+++ ddts-rev    Sun Sep 23 16:20:42 2001
@@ -399,6 +399,7 @@
              .$mail_begin;
            my($new, $comment) = &rev2newcomment("$home", "$pkg.$rev");
            $text .= $comment;
+           $text .= $mail_end;
 
            if ($sendnew eq "yes") {
                $text .= "\n\n"
@@ -426,7 +427,7 @@
                if (!(<> =~ /^[nN]/)) {
                    open SENT, ">$home/$pkg.$sent"      || die "Can't create 
$pkg.$sent: $!";
                    print SENT $text;
-                   close SENT                          || die "Can't write 
$pkg.$sent: $!"; 
+                   close SENT                          || die "Can't write 
$pkg.$sent: $!";
                    
                    open SENDMAIL,"| /usr/lib/sendmail -t -oi -oem" || die 
"Can't run sendmail: $!";
                    print SENDMAIL $text;

Répondre à