Index: trunk/ippScripts/scripts/ipp_darkstats.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_darkstats.pl	(revision 13986)
+++ trunk/ippScripts/scripts/ipp_darkstats.pl	(revision 13987)
@@ -7,4 +7,5 @@
 use Pod::Usage qw( pod2usage );
 use IPC::Cmd 0.36 qw( can_run run );
+use IO::Handle;
 
 use PS::IPP::Metadata::List qw( parse_md_list );
@@ -78,6 +79,6 @@
     my $statsName = "$rootName.$class_id.stats";
 
-    # print STDERR "rootName: $rootName\n";
-    # print STDERR "statsName: $statsName\n";
+    # print STDERR "rootName: $rootName : $exp_time\n";
+    print STDERR "statsName: $statsName : $exp_time\n";
 
     my $statsFile;
@@ -107,4 +108,5 @@
 print STDERR "dumping stats\n";
 open (MANA, "|mana --norc");
+MANA->autoflush;
 
 foreach my $component (@components) {
@@ -133,4 +135,14 @@
     print MANA "echo\n";
     print MANA "output stdout\n";
+
+    print MANA "applyfit X Yf\n";
+    print MANA "lim X Y\n";
+    print MANA "clear\n";
+    print MANA "box\n";
+    print MANA "plot -x 2 -pt 2 -sz 1.0 -c black X Y\n";
+    print MANA "plot -x 2 -pt 7 -sz 1.0 -c red X Yf\n";
+
+    print STDERR "hit return to continue\n";
+    $answer = <STDIN>;
 }
 
@@ -152,13 +164,14 @@
         }
 
-        if ($entry->{name} =~ /^(SAMPLE|ROBUST|FITTED|CLIPPED)_/) {
+        if ($entry->{name} =~ /^(SAMPLE|ROBUST|FITTED|CLIPPED)/) {
             # It's a statistic of some sort
             if ($entry->{name} =~ /_STDEV$/) {
                 push @bg_stdev_data, $entry->{value};
             } else {
-                push @bg_data, $entry->{value};
+		push @bg_name,    $tag;
+                push @bg_data,    $entry->{value};
+		push @bg_exptime, $exp_time;
+		# print STDERR "$tag $exp_time $entry->{value}\n";
             }
-	    push @bg_name, $tag;
-	    push @bg_exptime, $exp_time;
 	    if (!$componentsHash{$tag}) {
 		push @components, $tag;