IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Sep 3, 2010, 3:55:23 PM (16 years ago)
Author:
rhenders
Message:

Changes to way log/linear plots are generated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/czarplot.pl

    r29114 r29119  
    88
    99use czartool::CzarDb;
    10 use czartool::Czarplot;
     10use czartool::Plotter;
    1111
    1212my $czarDbName = "czardb";
     
    8585
    8686
    87 # GENE PLOTS my $czarplot = new czartool::Czarplot($czarDb, "%Y%m%d-%H%M%S", $savingToFile ? "png size 1280,960 font \"/usr/share/fonts/corefonts/arial.ttf\" 12" : "X11", $path, $save_temps);
    88 my $czarplot = new czartool::Czarplot($czarDb, "%Y%m%d-%H%M%S", $savingToFile ? "png font \"/usr/share/fonts/corefonts/arial.ttf\" 8" : "X11", $path, $save_temps);
     87# GENE PLOTS my $plotter = new czartool::Plotter($czarDb, "%Y%m%d-%H%M%S", $savingToFile ? "png size 1280,960 font \"/usr/share/fonts/corefonts/arial.ttf\" 12" : "X11", $path, $save_temps);
     88my $plotter = new czartool::Plotter($czarDb, "%Y%m%d-%H%M%S", $savingToFile ? "png font \"/usr/share/fonts/corefonts/arial.ttf\" 8" : "X11", $path, $save_temps);
    8989
    9090# sort out times
     
    9292if (!$begin) {
    9393    if ($interval) {$begin = $czarDb->subtractInterval($end, $interval);}
    94     else {$begin =  strftime('%Y-%m-%d 06:30',localtime);}
     94    else {$begin =  strftime('%Y-%m-%d 06:35',localtime);}
    9595}
    9696
    9797my $diskUsage = 1; # TODO
    9898
    99 if (!$nebulous && $timeSeries) {$czarplot->createTimeSeries($label, $stage, $begin, $end, !$log, $log);}
    100 if ($histogram) {$czarplot->createHistogram($label, $begin, $end);}
    101 if ($nebulous && $timeSeries) {$czarplot->plotStorageTimeSeries($begin, $end);}
    102 elsif ($nebulous) {$czarplot->plotDiskUsageHistogram();}
     99if (!$nebulous && $timeSeries) {$plotter->createTimeSeries($label, $stage, $begin, $end, $log);}
     100if ($histogram) {$plotter->createHistogram($label, $begin, $end);}
     101if ($nebulous && $timeSeries) {$plotter->plotStorageTimeSeries($begin, $end);}
     102elsif ($nebulous) {$plotter->plotDiskUsageHistogram();}
    103103
Note: See TracChangeset for help on using the changeset viewer.