Index: /trunk/tools/wiki_nightly_stacks_table.pl
===================================================================
--- /trunk/tools/wiki_nightly_stacks_table.pl	(revision 26671)
+++ /trunk/tools/wiki_nightly_stacks_table.pl	(revision 26672)
@@ -4,5 +4,5 @@
 use Getopt::Std;
 
-getopts('P',\%opt);
+getopts('PC',\%opt);
 
 $dbname = 'gpc1';
@@ -281,4 +281,46 @@
     print '||' . "\n";
 }
+print '||' . "\n";
+# faulted distributed
+
+$sth = "select * from rcDSFileset join distRun using(dist_id) where rcDSFileset.fault > 0 and date(registered) >= '2010-01-01' AND label LIKE 'M%.nightlystack' order by fs_id asc";
+$data_ref = $db->selectall_arrayref( $sth );
+
+foreach $rr (@{ $data_ref }) {
+#    ($dist_id,$fs_id,$dest_id,$name,$state,$registered,$fault,$target_id,$stage,$stage_id,$magic_ds_id,$label,$outroot,$outdir,$clean,$no_magic,$state2,$time_stamp,$fault,$data_group,$note) = @{ $rr };
+    
+    $data_group = ${ $rr }[19];
+    ($dist_group,$date_str) = split /\./, $data_group;
+    $date = sprintf("%d%d%d%d-%d%d-%d%d",(split //,$date_str));
+    
+    unless(defined($fault_diststacks{$date}{$dist_group})) {
+	$fault_diststacks{$date}{$dist_group} = 0;
+    }
+    
+    $fault_diststacks{$date}{$dist_group} ++;
+
+    if (exists($opt{C})) {
+        print STDERR "## disttool -dbname gpc1 -revertfileset -fs_id ${ $rr }[1]\n";
+    }
+
+}
+
+print "|| '''Faulted Dists (Nstack_ids):'''\n||\n";
+print '|| Date ||';
+foreach $t (@targets) {
+    print "$t ||";
+}
+print "\n";
+
+foreach $d (sort (keys %diststacks)) {
+    print '||' . $d ;
+    foreach $t (@targets) {
+	print '|| ' ;
+	$i = 0;
+	if (exists($fault_diststacks{$d}{$t})) {
+	    print "$fault_diststacks{$d}{$t}";
+	}
+    }
+    print '||' . "\n";
+}
 print "\n\n";
-