IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Nov 5, 2010, 3:54:50 PM (16 years ago)
Author:
rhenders
Message:

major changes to support generaionof IPP metrics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/czarplot.pl

    r29580 r29686  
    99use czartool::CzarDb;
    1010use czartool::Plotter;
     11use czartool::StageMetrics;
    1112
    1213my $czarDbName = "czardb";
     
    5758    print "* UNKNKOWN: option                          @ARGV\n";
    5859}
     60if ($analysis && !$stage) {
     61    $quit = 1;
     62    print "* REQUIRED: choose a stage for analsis      -s <chip|cam|warp|etc>      (default=none)\n";}
    5963if (!$histogram) {
    6064    print "* OPTIONAL: plot histogram                  -h                          (default=off)\n";}
     
    98102
    99103# default values
    100 if (!$nebulous && !$histogram && !$timeSeries) {$timeSeries = 1; $histogram = 0;}
     104if (!$nebulous && !$histogram && !$analysis && !$timeSeries) {$timeSeries = 1; $histogram = 0;}
    101105if (!$verbose) {$verbose = 0;}
    102106if (!$save_temps) {$save_temps = 0;}
     
    121125    $begin =  "$day 06:35";
    122126    $end = "$day 23:59";
     127        print "JKJKJK '$begin' '$end' \n";
     128
    123129}
    124130else {
     
    147153if($analysis) {
    148154
    149     my ($started, $finished, $stuck, $processed, $pending, $faults, $totalTime);
    150     $czarDb->runAnalysis($label, $stage, $begin, $end, \$started, \$finished, \$stuck, \$processed, \$pending, \$faults, \$totalTime);
    151 
    152     if (defined $started) {print "* Processing started at $started\n";}
    153     if (defined $finished) {print "* Processing finished at $finished and took $totalTime\n";}
    154     else {print "* Processing has not finished\n";}
    155     if (defined $stuck) {print "* Processing has been stuck since $stuck\n";}
    156     print "* $processed exposures have been processed, with $pending pending and $faults faults\n";
    157 
    158     print "*******************************************************************************\n";
     155    my $stageMetrics = new czartool::StageMetrics($stage, $label, $begin, $end);
     156    if ($czarDb->runAnalysis($stageMetrics)) {$stageMetrics->printMe();}
    159157}
Note: See TracChangeset for help on using the changeset viewer.