[project @ 2000-10-21 18:35:58 by joy]

open DEBUG as /dev/null; added copy of an incorrectly submitted report to the reply; minor fixes to the wording

diff --git a/scripts/process.in b/scripts/process.in
index 9d80c056f1b7710055870674009b455d841b8eb7..6f52932901703b9bf36b882681c20ee22d38a454 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.19 2000/10/10 20:10:34 joy Exp $
+# $Id: process.in,v 1.20 2000/10/21 18:35:58 joy Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -10,6 +10,7 @@ require( '/usr/lib/debbugs/errorlib' );
 chdir( "$gSpoolDir" ) || die 'chdir spool: $!\n';
 
 #open(DEBUG,"> /tmp/debbugs.debug");
+open DEBUG, ">/dev/null";
 
 defined( $intdate= time ) || &quit( "failed to get time: $!" );
 
@@ -396,7 +397,7 @@ END
     }
     if (!defined($pheader{'package'}))
        {       &htmllog("Warning","sent",$replyto,"Message not forwarded.");
-        &sendmessage(<<END, '');
+        &sendmessage(<<END."---------------------------------------------------------------------------\n".join("\n", @msg), '');
 From: $gMaintainerEmail ($gProject $gBug Tracking System)
 To: $replyto
 Subject: Message with no Package: tag cannot be processed!
@@ -411,12 +412,13 @@ pseudo-header following the real mail header), or didn't have a
 pseudo-header at all.
 
 This makes it much harder for us to categorise and deal with your
-problem report. Please resubmit your report and tell us which package the
-report is on.  For help, check out http://$gWebDomain/Reporting.html.
+problem report. Please _resubmit_ your report and tell us which package
+the report is on. For help, check out http://$gWebDomain/Reporting.html.
 
 Your message was dated $header{'date'} and had
 message-id $header{'message-id'}
 and subject $subject.
+The complete text of it is attached to this message.
 
 If you need any assistance or explanation please contact me.
 

diff --git a/scripts/service.in b/scripts/service.in
index 574601f3e93f123f9dcf7b7c8070175f28b9ad6e..fa36b4a72b6acaeca35260b2ef7bcfd03308bacb 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.26 2000/10/14 22:22:01 joy Exp $
+# $Id: service.in,v 1.27 2000/10/21 18:35:58 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -11,6 +11,7 @@ $ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 # open(DEBUG,">&4");
+open DEBUG, ">/dev/null";
 $debug = 0;
 
 $_=shift;