X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugreport;h=5749ac2ccb2d38afffca83741cab39e4ecae7b31;hp=83c8736e03485c2a37324bd4d6fb6a00334008a3;hb=48093e7da5d32895f13996e8b8a41c4fd3ff207f;hpb=2864b55f40b6cb63e0ef04232d869a71155646ef

diff --git a/bugreport b/bugreport
index 83c8736..5749ac2 100755
--- a/bugreport
+++ b/bugreport
@@ -23,13 +23,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] [-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
+  -t    show bugs relevant for testing only
   -d    only list these distributions (comma-separated)
   -S    use different statusfile
   -C    use different commentsfile
@@ -198,7 +199,14 @@ sub FilterPackages() {
 	}
 }
 
-getopts('VhHlsd:S:C:');
+sub FilterBugs() {
+	for $p (sort keys %packagelist) {
+		$packagelist{$p} = join(' ', grep { check_worry($bugs{$_}) } split / /, $packagelist{$p});
+		delete $packagelist{$p} if ($packagelist{$p} eq '');
+	}
+}
+
+getopts('VhHlstd:S:C:');
 ShowUsage if ($opt_h);
 ShowVersion if ($opt_V);
 $statusfile=$opt_S if ($opt_S);
@@ -210,6 +218,7 @@ $html=1 if ($opt_H);
 &readNMUstatus($NMUfile);
 
 &FilterPackages($opt_d) if ($opt_d);
+&FilterBugs() if ($opt_t);
 
 MakeStatistics if ($opt_s);
 if ($opt_l) {