Changeset 29580 for trunk/tools/czarplot.pl

Timestamp:

Oct 27, 2010, 12:01:26 PM (16 years ago)

Author:

rhenders

Message:

Added anaysis option

File:

• trunk/tools/czarplot.pl (modified) (4 diffs)

trunk/tools/czarplot.pl

@@ -27 +27 @@
 my $nebulous = undef;
 my $savingToFile = undef;
+my $analysis = undef;
 my $log = undef;
 
@@ -43 +44 @@
         "rate|r" => \$rate,
         "deriv|d" => \$deriv,
+        "analysis|a" => \$analysis,
         "timeseries|t" => \$timeSeries,
         "verbose|v" => \$verbose,
@@ -64 +66 @@
     $deriv = 0;
     print "* OPTIONAL: plot first derivative           -d                          (default=$deriv)\n";} 
+if (!$analysis) {
+    $analysis = 0;
+    print "* OPTIONAL: include analysis                -a                          (default=$analysis)\n";} 
 if (!$showCleanup) {
     $showCleanup = 0;
@@ -139 +144 @@
 elsif ($nebulous) {$plotter->plotDiskUsageHistogram();}
 
+
+if($analysis) {
+
+    my ($started, $finished, $stuck, $processed, $pending, $faults, $totalTime);
+    $czarDb->runAnalysis($label, $stage, $begin, $end, \$started, \$finished, \$stuck, \$processed, \$pending, \$faults, \$totalTime);
+
+    if (defined $started) {print "* Processing started at $started\n";}
+    if (defined $finished) {print "* Processing finished at $finished and took $totalTime\n";}
+    else {print "* Processing has not finished\n";}
+    if (defined $stuck) {print "* Processing has been stuck since $stuck\n";}
+    print "* $processed exposures have been processed, with $pending pending and $faults faults\n";
+
+    print "*******************************************************************************\n";
+}