From 1efe50c6f95b7220a4c222b1d745c3fe0ef3c147 Mon Sep 17 00:00:00 2001
From: joy <>
Date: Sat, 21 Oct 2000 17:35:58 -0800
Subject: [PATCH] [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

---
 scripts/process.in | 10 ++++++----
 scripts/service.in |  3 ++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index 9d80c056..6f529329 100755
--- 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 574601f3..fa36b4a7 100755
--- 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;
-- 
2.39.5