[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

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 25715442f2289d26b875c2ba05f8c45fd7303a6c..36becf7a77e7c6c2f800577947a606e707b3882d 100755 (executable)
--- 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 3e6b7ee86a06ae0d9aed832e377426d64cc6f7a6..70e17aecdc8fe50e64940ec30b53e91090e164e4 100755 (executable)
--- 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 4a43da82a242a93cd08b4a728545dc74ee08b0d6..a789b2bac6e36dfaf94a56b2bac450a7bb216dc2 100755 (executable)
--- 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");