Count RC bugs in stable.
authorSteinar H. Gunderson <sesse@rietz>
Tue, 20 Mar 2007 01:46:41 +0000 (01:46 +0000)
committerSteinar H. Gunderson <sesse@rietz>
Tue, 20 Mar 2007 01:46:41 +0000 (01:46 +0000)
bugcounts
bugreport
dograph
scanlib.pm

index 3051b19..de473a1 100755 (executable)
--- a/bugcounts
+++ b/bugcounts
@@ -43,6 +43,7 @@ my $patchcount=0;     # Number of bugs that have a fix proposed
 my $pendingcount=0;    # Number of bugs that will have a fix uploaded RSN
 my $ignorecount=0;      # Number of bugs being ignored
 my $worrycount=0;      # Number of bugs we're actually worried about
+my $stablecount=0;     # Number of bugs affecting stable
 
 for my $p (keys %scanlib::packagelist) {
        next if (defined $bugcfg::exclude{$p});
@@ -53,7 +54,8 @@ for my $p (keys %scanlib::packagelist) {
                $patchcount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
                $ignorecount++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
                $worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+               $stablecount++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
        }
 }
 
-printf("%d %d %d 0 %d 0 %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount);
+printf("%d %d %d 0 %d 0 %d %d\n", $total, $pendingcount, $patchcount, $ignorecount, $worrycount, $stablecount);
index 123a5b0..8bb3b58 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -132,6 +132,7 @@ sub MakeStatistics() {
        my $pendingtotal=0;     # Total number of bugs marked pending
        my $ignoretotal=0;      # Total number of bugs marked ignore
        my $worrytotal=0;       # Total number of bugs we're actually worried about
+       my $stabletotal=0;      # Total number of bugs affecting stable
        my %list;               # List of bugnumber associated with package
 
        for my $p (sort keys %scanlib::packagelist) {
@@ -143,6 +144,7 @@ sub MakeStatistics() {
                        $patchtotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*\+/);
                        $ignoretotal++ if ($scanlib::bugs{$nr} =~ m/^\[[^]]*I/);
                        $worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
+                       $stabletotal++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
 
                        if (not defined($scanlib::exclude{$nr})) {
                                $bugcount++;
@@ -156,13 +158,15 @@ sub MakeStatistics() {
                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);
-               printf("<strong>Number concerning the next release (excluding ignored and not-in-testing):</strong> %d<P>\n", $worrytotal);
+               printf("<strong>Number concerning the next release (excluding ignored and not-in-testing):</strong> %d<BR>\n", $worrytotal);
+               printf("<strong>Number concerning the current stable release:</strong> %d<P>\n", $stabletotal);
        } else {
                print "Total number of release-critical bugs: $bugcount\n";
                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);
                printf("Number concerning the next release (excluding ignored and not-in-testing): %d\n", $worrytotal);
+               printf("Number concerning the current stable release: %d<P>\n", $stabletotal);
        }
 }
 
diff --git a/dograph b/dograph
index d85ee53..a005901 100755 (executable)
--- a/dograph
+++ b/dograph
@@ -6,11 +6,14 @@ cd /home/sesse/bugscan
 
 tmp=`tempfile`
 tmp2=`tempfile`
+tmp3=`tempfile`
 
 find counts -type f | sort | xargs grep '^' /dev/null |
     sed 's/^.*count-//;s/ .*$//;s/:/ /' >"$tmp"
-find counts -type f | sort | xargs egrep '^(.* ){6}' /dev/null |
-    sed 's/^.*count-//;s/:.* / /;' >"$tmp2"
+find counts -type f | sort | xargs egrep '^(.* ){6}' /dev/null | tr ":-" " " |
+    cut -d" " -f2,9 >"$tmp2"
+find counts -type f | sort | xargs egrep '^(.* ){7}' /dev/null | tr ":-" " " |
+    cut -d" " -f2,10 >"$tmp3"
 
 #for i in counts/count-[0-9]* ; do
 #      date=`echo $i | sed -e s/.*count-//`
@@ -29,7 +32,7 @@ set yrange [0:]
 #set xtics 2678400
 #set nomxtics
 set output "/home/sesse/bugscan/www/graph.png"
-plot "$tmp" using 1:2 with lines, "$tmp2" using 1:2 with lines
+plot "$tmp" using 1:2 with lines, "$tmp2" using 1:2 with lines, "$tmp3" using 1:2 with lines
 quit
 EOF
 
index 398687b..ed9fd37 100644 (file)
@@ -319,4 +319,13 @@ sub check_worry {
        return 1;
 }
 
+sub check_worry_stable {
+       my ($status) = @_;
+
+       if ($status !~ m/ \[[^]]*S/) {
+               return 0;
+       }
+       return 1;
+}
+
 1;