From e7d8aac4a2fa500d694b29357cada8104a6ff38d Mon Sep 17 00:00:00 2001
From: gecko <>
Date: Sat, 18 Sep 1999 13:53:02 -0800
Subject: [PATCH] [project @ 1999-09-18 14:53:02 by gecko] * more -w cleaning
 for service.in * fixed X-Debbugs-CC (the CC header) in process.in * changed
 the summary.html to include indication of severity

---
 scripts/db2html.in |  7 ++++---
 scripts/process.in | 13 +++++++------
 scripts/service.in |  8 ++++----
 3 files changed, 15 insertions(+), 13 deletions(-)

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 25715442..36becf7a 100755
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.3 1999/09/14 16:13:13 gecko Exp $
+# $Id: db2html.in,v 1.4 1999/09/18 14:53:02 gecko Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
@@ -16,7 +16,7 @@ $diff = 0;
 $stampfile = 'stamp.html';
 $tail_html = $gHTMLTail; 
 $expirynote_html = $gHTMLExpireNote;
-$shorthead = ' Ref   Package    Keywords/Subject                    Submitter';
+$shorthead = ' Ref   * Package    Keywords/Subject                    Submitter';
 $shortindex = ''; 
 $amonths = -1;
 $indexunmatched = '';
@@ -187,7 +187,8 @@ for $f (@files)
             $thissient=
                 ($pad>0 ? ' 'x$pad : '').
                 sprintf("<A href=\"../%s.html\">%d</A>",$linkto,$ref).
-                &sani(sprintf(" %-10.10s %-35.35s %-.25s\n",
+                &sani(sprintf(" %-1.1s %-10.10s %-35.35s %-.25s\n",
+						$s_severity,
                         $s_package,
                         (length($s_keywords) ? $s_keywords.'/' : '').
                         $s_subject, $s_originator));
diff --git a/scripts/process.in b/scripts/process.in
index 3e6b7ee8..70e17aec 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.5 1999/09/17 22:07:34 gecko Exp $
+# $Id: process.in,v 1.6 1999/09/18 14:53:02 gecko Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -394,6 +394,7 @@ END
     }
     if (!defined($pheader{'package'}))
 	{ 	&htmllog("Warning","sent",$replyto,"Message not forwarded.");
+		print " sending no package header msg\n";
         &sendmessage(<<END, '');
 From: $gMaintainerEmail ($gProject $gBug Tracking System)
 To: $replyto
@@ -422,12 +423,12 @@ $gMaintainer
 (administrator, $gProject $gBugs database)
 
 END
+	print " append log\n";
 	&appendlog;
+	print " finish\n";
 	&finish;
-    } else {
-        $s_package= $pheader{'package'};
-		print "Package: $s_package\n";
-    }
+	print " done\n";
+    } else { $s_package= $pheader{'package'}; }
     if (defined($pheader{'keywords'})) {
         $s_keywords= $pheader{'keywords'};
     }
@@ -466,7 +467,7 @@ print DEBUG "maintainers >@maintaddrs<\n";
 $orgsender= defined($header{'sender'}) ? "Orignal-Sender: $header{'sender'}\n" : '';
 $newsubject= $subject;  $newsubject =~ s/^$gBug#$ref\W*\s*//;
 
-$xcchdr= $header{x-debbugs-cc};
+$xcchdr= $header{ 'x-debbugs-cc' };
 if ($xcchdr =~ m/\S/) {
     push(@resentccs,$xcchdr);
     $resentccexplain.= <<END;
diff --git a/scripts/service.in b/scripts/service.in
index 4a43da82..a789b2ba 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.5 1999/09/16 19:42:50 gecko Exp $
+# $Id: service.in,v 1.6 1999/09/18 14:53:02 gecko Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -82,9 +82,9 @@ if ( $msg[$i] =~ /^--/ || $msg[$i] =~ /^\s*$/ )
 
 
 for ($procline=$i; $procline<=$#msg; $procline++) {
-    $state eq 'idle' || "$state ?";
-    $lowstate eq 'idle' || "$lowstate ?";
-    $mergelowstate eq 'idle' || "$mergelowstate ?";
+    $state eq 'idle' || print "$state ?\n";
+    $lowstate eq 'idle' || print "$lowstate ?\n";
+    $mergelowstate eq 'idle' || print "$mergelowstate ?\n";
     $_= $msg[$procline]; s/\s+$//;
     next unless m/\S/; next if m/^\s*\#/;
     &transcript("> $_\n");
-- 
2.39.5