IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 29863


Ignore:
Timestamp:
Nov 26, 2010, 3:23:01 PM (15 years ago)
Author:
rhenders
Message:

Finished first 'draft' of daily metrics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/czartool/DayMetrics.pm

    r29770 r29863  
    4343
    4444    # create path, dir and html file
    45     $self->{dayDir} = "$self->{baseDir}/$self->{day}";
    46     rmdir($self->{dayDir});
    47     mkdir($self->{dayDir}, 0777);
    48     $self->{plotter}->setOutputPath($self->{dayDir});
     45    $self->{path} = "$self->{baseDir}/$self->{day}";
     46    rmdir($self->{path});
     47    mkdir($self->{path}, 0777);
     48    $self->{plotter}->setOutputPath($self->{path});
    4949
    5050    if ($self->{verbose}) {print "* Creating metrics for $self->{day}\n";}
    … …  
    6464
    6565    # create HTML file and write header stuff
    66     open (HTMLDOC, ">$self->{dayDir}/index.html");
    67     print HTMLDOC "<html>\n";
    68     print HTMLDOC "<head>\n";
    69     print HTMLDOC "<title>IPP Metrics for $self->{day}</title>\n";
    70     print HTMLDOC "<a name=\"top\"></a>\n";
    71     print HTMLDOC "<h1 align=\"middle\">IPP Metrics for $self->{day}</h1>\n";
     66
     67
     68    $self->createHtml("IPP Metrics for $self->{day}");
     69    my $htmlFile = $self->{htmlFile};
    7270
    7371    # summit and burntool exposures
    … …  
    7977    my $nextDay = $self->{czarDb}->addInterval($self->{day}, "1 DAY");
    8078
    81     print HTMLDOC "<h5  align=\"middle\">";
    82     print HTMLDOC "<a href=\"../$previousDay/index.html\"> \< previous day</a> | <a href=\"../$nextDay/index.html\">next day \></a><br>\n";
    83     print HTMLDOC "Measured from $self->{begin} to $self->{end} HST<br>\n";
    84     printf ( HTMLDOC "%d exposures taken on summit last night, %d through burntool today</h5>\n",
     79    print $htmlFile "<h5  align=\"middle\">";
     80    print $htmlFile "<a href=\"../$previousDay/index.html\"> \< previous day</a> | <a href=\"../index.html\">all</a> | <a href=\"../$nextDay/index.html\">next day \></a><br>\n";
     81    print $htmlFile "Measured from $self->{begin} to $self->{end} HST<br>\n";
     82    printf ( $htmlFile "%d exposures taken on summit last night, %d through burntool today</h5>\n",
    8583            $summitExposures, $burntoolMetrics->getProcessed() ? $burntoolMetrics->getProcessed() : 0 );
    86     print HTMLDOC "</head>\n";
    87     print HTMLDOC "<body>\n";
     84    print $htmlFile "</head>\n";
     85    print $htmlFile "<body>\n";
    8886
    8987
    … …  
    176174    }
    177175
    178     # create hyperlink list of list of active labels
    179     print HTMLDOC "<h2>Active labels for this day</h1>\n";
     176    # create contents
     177    print $htmlFile "<h2>Contents</h2>\n";
     178    print $htmlFile "<a href=\"#surveys\">Survey timings</a><br>\n";
     179    print $htmlFile "<a href=\"#summaryplot\">Summary plots</a><br>\n";
     180    print $htmlFile "<a href=\"#stages\">Stage totals</a><br>\n";
     181    print $htmlFile "<a href=\"#mask\">Magic mask fraction</a><br>\n";
    180182    foreach my $label (keys (%labelTables)) {
    181183
    182         print HTMLDOC "<a href=\"#$label\">$label</a><br>\n";
    183     }
    184 
    185     # some plots
    186     print HTMLDOC "<h1 align=\"middle\">Summary plots</h1>\n";
    187     $self->{plotter}->createTimeSeries("all_stdscience_labels", undef, $self->{begin}, $self->{end}, 0, 0, 0);
    188     print HTMLDOC "<img src=\"czarplot_linear_all_stdscience_labels_all_stages_t.png\" alt=\"All labels and all stages for $self->{day}\" />\n";
    189     $self->{plotter}->createHistogram("all_stdscience_labels", $self->{begin}, $self->{end}, 0, 0, 0);
    190     print HTMLDOC "<img src=\"czarplot_linear_all_stdscience_labels_all_stages_h.png\" alt=\"All stages for all_stdscience_labels for $self->{day}\" />\n";
    191     $self->{plotter}->createRateTimeSeries("all_stdscience_labels", undef, $self->{begin}, $self->{end}, "1 HOUR", 0);
    192     print HTMLDOC "<img src=\"czarplot_linear_all_stdscience_labels_all_stages_r.png\" alt=\"All stages for all_stdscience_labels for $self->{day}\" />\n";
    193     $self->{plotter}->plotMagicMaskFractionHistogram($self->{day}, $self->{day});
    194     print HTMLDOC "<img src=\"czarplot_magic_mask_fraction_h.png\" alt=\"\" />\n";
    195     $self->{plotter}->plotStorageTimeSeries($self->{begin}, $self->{end});
    196     print HTMLDOC "<img src=\"czarplot_cluster.png\" alt=\"All stages for all_stdscience_labels for $self->{day}\" />\n";
    197     print HTMLDOC "<img src=\"czarplot_magic_mask_fraction_d.png\" alt=\"\" />\n";
    198 
     184        print $htmlFile "<a href=\"#$label\">$label</a><br>\n";
     185    }
    199186
    200187    # survey table
    201188    $self->printSurveyTable();
    202189
     190    # some summary plots
     191    $self->createSummaryPlots();
     192
     193    # magic mask plots
     194    $self->createMaskPlots($self->{day}, $self->{day});
     195
    203196    # table for stage totals
    204     $table =  "<h2  align=\"middle\">Totals for all labels</h1>\n";
     197    $table = "<a name=\"stages\"></a>\n";
     198    $table .= "<h2  align=\"middle\">Stage totals <a href=\"#top\">(top)</a></h1>\n";
    205199    $table .= "<table border='1'>";
    206200    $table .= "  <tr>\n";
    … …  
    224218    $table .= "<br>\n";
    225219
    226     print HTMLDOC $table;
     220    print $htmlFile $table;
    227221
    228222    # print all label tables to page
    229223    foreach my $label (keys (%labelTables)) {
    230224
    231         print HTMLDOC "<a name=\"$label\"></a>\n";
    232         print HTMLDOC "<h2  align=\"middle\">$label <a href=\"#top\">(top)</a></h1>\n";
     225        print $htmlFile "<a name=\"$label\"></a>\n";
     226        print $htmlFile "<h2  align=\"middle\">$label <a href=\"#top\">(top)</a></h1>\n";
    233227        $self->{plotter}->createTimeSeries($label, undef, $self->{begin}, $self->{end}, 0, 0, 0);
    234         print HTMLDOC "<img src=\"czarplot_linear_".$label."_all_stages_t.png\" alt=\"All stages for $label for $self->{day}\" />\n";
     228        print $htmlFile "<img src=\"czarplot_linear_".$label."_all_stages_t.png\" alt=\"All stages for $label for $self->{day}\" />\n";
    235229        $self->{plotter}->createHistogram($label, $self->{begin}, $self->{end}, 0, 0, 0);
    236         print HTMLDOC "<img src=\"czarplot_linear_".$label."_all_stages_h.png\" alt=\"All stages for $label for $self->{day}\" />\n";
    237 
    238         print HTMLDOC $labelTables{$label};
    239     }
    240 
    241 
    242     print HTMLDOC "<br>\n";
    243     print HTMLDOC "</body>\n";
    244     print HTMLDOC "</html>\n";
    245     close(HTMLDOC);
     230        print $htmlFile "<img src=\"czarplot_linear_".$label."_all_stages_h.png\" alt=\"All stages for $label for $self->{day}\" />\n";
     231
     232        print $htmlFile $labelTables{$label};
     233    }
     234
     235
     236    $self->finishHtml();
    246237}
    247238
    … …  
    254245    my ($self) = @_;
    255246
    256     print HTMLDOC "<h2  align=\"middle\">Survey statistics</h1>\n";
    257     print HTMLDOC "<table border='1'>";
    258     print HTMLDOC "  <tr>\n";
    259     print HTMLDOC "    <th>Survey</th>\n";
    260     print HTMLDOC "    <th>Started burntool</th>\n";
    261     print HTMLDOC "    <th>Finished distribution</th>\n";
    262     print HTMLDOC "    <th>Time taken</th>\n";
    263     print HTMLDOC "  </tr>\n";
     247    my $htmlFile = $self->{htmlFile};
     248
     249    print $htmlFile "<a name=\"surveys\"></a>\n";
     250    print $htmlFile "<h2  align=\"middle\">Survey timings <a href=\"#top\">(top)</a></h1>\n";
     251    print $htmlFile "<table border='1'>";
     252    print $htmlFile "  <tr>\n";
     253    print $htmlFile "    <th>Survey</th>\n";
     254    print $htmlFile "    <th>Started burntool</th>\n";
     255    print $htmlFile "    <th>Finished distribution</th>\n";
     256    print $htmlFile "    <th>Time taken</th>\n";
     257    print $htmlFile "  </tr>\n";
    264258
    265259    # OSS survey
    … …  
    307301    $self->printSurveyDetails("All", $started, $finished, $timeTaken);
    308302
    309     print HTMLDOC "</table>\n";
     303    print $htmlFile "</table>\n";
    310304}
    311305
    … …  
    318312    my ($self, $survey, $started, $finished, $timeTaken, $processed, $pending) = @_;
    319313
    320     print HTMLDOC "  <tr>\n";
    321     print HTMLDOC "    <td>$survey</td>\n";
    322     printf (HTMLDOC "    <td>%s</td>\n", $started ? $started : "no");
    323     printf (HTMLDOC "    <td>%s</td>\n", $finished ? $finished : "no");
    324     printf (HTMLDOC "    <td>%s</td>\n", $timeTaken ? $timeTaken : "na");
    325     print HTMLDOC "  </tr>\n";
     314    my $htmlFile = $self->{htmlFile};
     315
     316    print $htmlFile "  <tr>\n";
     317    print $htmlFile "    <td>$survey</td>\n";
     318    printf ($htmlFile "    <td>%s</td>\n", $started ? $started : "no");
     319    printf ($htmlFile "    <td>%s</td>\n", $finished ? $finished : "no");
     320    printf ($htmlFile "    <td>%s</td>\n", $timeTaken ? $timeTaken : "na");
     321    print $htmlFile "  </tr>\n";
    326322}
    3273231;
Note: See TracChangeset for help on using the changeset viewer.