- Fix soapy insanity (closes: #422062)

[debbugs.git] / scripts / db2html.in

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 6c4b7c9c1f7f215abe3d27a27ca0e165d87b4703..b45d2b95ac0e24a33bf35e61c1135d73897f1d23 100755 (executable)
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.18 2003/05/25 14:43:30 joy Exp $
+# $Id: db2html.in,v 1.22 2004/04/19 10:03:53 cjwatson Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
@@ -22,7 +22,8 @@ chdir("$gSpoolDir") || die "chdir spool: $!\n";
 $diff = 0;
 $stampfile = 'stamp.html';
 $tail_html = $gHTMLTail; 
-$expirynote_html = $gHTMLExpireNote;
+$expirynote_html = '';
+$expirynote_html = $gHTMLExpireNote if $gRemoveAge;
 $shorthead = ' Ref   * Package    Keywords/Subject                    Submitter';
 $shortindex = ''; 
 $amonths = -1;
@@ -86,13 +87,14 @@ close(MM);
 
 #load all database files
 opendir(D,'db-h') || &quit("opendir db-h: $!");
-@dirs = sort { $a <=> $b } grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
+@dirs = grep(s#^#db-h/#,grep(/^\d+$/,readdir(D)));
 closedir(D);
 foreach my $dir (@dirs) {
     opendir(D,$dir);
-    push @files, sort { $a <=> $b } grep(/^-?\d+\.log$/,readdir(D));
+    push @files, grep(/^-?\d+\.log$/,readdir(D));
     closedir(D);
 }
+@files = sort { $a <=> $b } @files;
 
 for $pending (qw(pending done forwarded)) 
 {      for $severity (@showseverities) 
@@ -141,7 +143,7 @@ for $f (@files)
         if ($data->{severity} eq '' || $data->{severity} eq 'normal') 
                {       $showseverity= '';
             $addseverity= $gDefaultSeverity;
-        } elsif (grep($data->{severity} eq $_, @strongseverities)) 
+        } elsif (isstrongseverity($data->{severity})) 
                {       $showseverity= "<strong>Severity: $data->{severity}</strong>;\n";
             $addseverity= $data->{severity};
         } else 
@@ -157,6 +159,8 @@ for $f (@files)
             if length($data->{package});
         $indexentry .= $showseverity;
         $indexentry .= "Reported by: ".&sani($data->{originator});
+        $indexentry .= ";\nOwned by: ".&sani($data->{owner})
+            if length($data->{owner});
         $indexentry .= ";\nKeywords: ".&sani($data->{keywords})
             if length($data->{keywords});
         $linkto= $ref; $linkto =~ s,^..,$&/$&,;