From: Steinar H. Gunderson <sesse@rietz>
Date: Sat, 31 Mar 2007 13:46:05 +0000 (+0000)
Subject: Add a page listing only the bugs relevant for stable.
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=3924a03164fa1d9a292bf9627cce5d37ee9335f2;hp=e661212395590736b373289a5c4386b2e6785397

Add a page listing only the bugs relevant for stable.
---

diff --git a/bugreport b/bugreport
index 5c6b0c8..3b128fd 100755
--- a/bugreport
+++ b/bugreport
@@ -21,13 +21,14 @@ sub ShowVersion() {
 sub ShowUsage() {
 	print <<EOF;
 Usage:
-  $0 [-V] [-h] [-H] [-l] [-s] [-d distrib] [-S file] [-C file]
+  $0 [-V] [-h] [-H] [-l] [-s] [-b] [-t] [-d distrib] [-S file] [-C file]
 Options:
   -V    show version
   -h    show some (hopefully) helpful information
   -H    produce HTML output
   -l    list all release-critical bugs
   -s    list bug statistics
+  -b    show bugs relevant for stable only
   -t    show bugs relevant for testing only
   -d    only list these distributions (comma-separated)
   -S    use different statusfile
@@ -183,9 +184,16 @@ sub FilterBugs() {
 	}
 }
 
-our ($opt_h,$opt_V,$opt_S,$opt_H,$opt_d,$opt_t,$opt_s,$opt_l);
+sub FilterBugsStable() {
+	for my $p (sort keys %scanlib::packagelist) {
+		$scanlib::packagelist{$p} = [ grep { scanlib::check_worry_stable($scanlib::bugs{$_}) } @{$scanlib::packagelist{$p}} ];
+		delete $scanlib::packagelist{$p} if (scalar @{$scanlib::packagelist{$p}} == 0);
+	}
+}
+
+our ($opt_h,$opt_V,$opt_S,$opt_H,$opt_d,$opt_b,$opt_t,$opt_s,$opt_l);
 
-getopts('VhHlstd:S:');
+getopts('VhHlsbtd:S:');
 ShowUsage if ($opt_h);
 ShowVersion if ($opt_V);
 $statusfile=$opt_S if ($opt_S);
@@ -194,6 +202,7 @@ $html=1 if ($opt_H);
 scanlib::readstatus($statusfile);
 
 FilterPackages($opt_d) if ($opt_d);
+FilterBugsStable() if ($opt_b);
 FilterBugs() if ($opt_t);
 
 MakeStatistics if ($opt_s);
diff --git a/dohtml b/dohtml
index 66e03b1..c86d56a 100755
--- a/dohtml
+++ b/dohtml
@@ -122,6 +122,8 @@ EOF
   <li><a href="other/pseudo.html">pseudo-packages</a>
        <a href="http://www.debian.org/Bugs/pseudo-packages">(?)</a>
   <li><a href="other/all.html">Everything in one page</a>
+    <br>
+     + <a href="other/stable.html">Only bugs relevant to stable</a>
     <br>
      + <a href="other/testing.html">Only bugs relevant to testing</a>
 </ul>
@@ -154,6 +156,7 @@ makepage "debian/non-free" "$title" $htmldir/debian/non-free.html "$time"
 makepage "debian/source" "$title" $htmldir/debian/source.html "$time"
 
 makepage "" "$title" $htmldir/other/all.html "$time"
+makepage "" "$title" "$htmldir/other/stable.html" "$time" "-b"
 makepage "" "$title" "$htmldir/other/testing.html" "$time" "-t"
 
 makemainpage > $htmldir/index.html.new