Kill the comments stuff; it hasn't been used for ages.

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index dbe1bcf602e03c63d9c475092753177bb3f10515..85c77168d2af8b44c48d5c0c0f523129fa4cc08f 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -80,19 +80,11 @@ sub MakeBuglist() {
        my $nr;                 # Current bugnumber
        my $sect;                       # BTS-subsection for bugnumber
        my $header;             # Flag if packagename has already been printed
-       my $fontset;            # Did we change the font?
 
        for my $p (sort {$a cmp $b} keys %scanlib::packagelist) {
                next if (defined $bugcfg::exclude{$p});
                $header = 0;
-               $fontset = 0;
                if (defined $scanlib::comments{$p}) {
-                       if ($html && defined($scanlib::comments{$p})) {
-                               if ($scanlib::comments{$p} =~ m/^\[REMOVE\]/) {
-                                       $fontset=1;
-                                       print "<span style=\"color: red\">";
-                               }
-                       }
                        $header=1;
                        &PrintPackageHeader($p);
                        print $scanlib::comments{$p};
@@ -131,7 +123,6 @@ sub MakeBuglist() {
                        print "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
                                                      $scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
                }
-               print "</span>" if ($fontset);
                if ($header) {
                        &PrintPackageFooter($p);
                }
@@ -141,7 +132,6 @@ sub MakeBuglist() {
 
 sub MakeStatistics() {
        my $bugcount=0;         # Total number of bugs so far
-       my $remtotal=0;         # Total number of bugs for packages marked REMOVE
        my $patchtotal=0;       # Total number of bugs marked patch
        my $pendingtotal=0;     # Total number of bugs marked pending
        my $ignoretotal=0;      # Total number of bugs marked ignore
@@ -165,12 +155,10 @@ sub MakeStatistics() {
                                $count++;
                        } 
                }
-               $remtotal+=$count if (defined($scanlib::comments{$p}) && $scanlib::comments{$p} =~ m/^\[REMOVE\]/);
        }
 
        if ($html) {
                print "<strong>Total number of release-critical bugs:</strong> $bugcount<BR>\n";
-               printf("<strong>Number that will disappear after removing packages marked [REMOVE]:</strong> %d<BR>\n", $remtotal);
                printf("<strong>Number that have a patch:</strong> %d<BR>\n", $patchtotal);
                printf("<strong>Number that have a fix prepared and waiting to upload:</strong> %d<BR>\n", $pendingtotal);
                printf("<strong>Number that are being ignored:</strong> %d<BR>\n", $ignoretotal);
@@ -178,7 +166,6 @@ sub MakeStatistics() {
                printf("<strong>Number concerning the next release (excluding ignored and not-in-testing):</strong> %d<P>\n", $worrytotal);
        } else {
                print "Total number of release-critical bugs: $bugcount\n";
-               printf("Number that will disappear after removing packages marked [REMOVE]: %d\n", $remtotal);
                printf("Number that have a patch: %d\n", $patchtotal);
                printf("Number that have a fix prepared and waiting to upload: %d\n", $pendingtotal);
                printf("Number that are being ignored: %d\n", $ignoretotal);