Changeset 29320 for trunk/tools/czarplot.pl

Timestamp:

Oct 5, 2010, 9:42:28 AM (16 years ago)

Author:

rhenders

Message:

Added option to plot a single day's worth of data

File:

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

trunk/tools/czarplot.pl

@@ -17 +17 @@
 my $begin = undef;
 my $end = undef;
+my $day = undef;
 my $path = undef;
 my $verbose = undef;
@@ -32 +33 @@
         "begin|b=s" => \$begin,
         "end|e=s" => \$end,
+        "day|d=s" => \$day,
         "output|o=s" => \$path,
         "histogram|h" => \$histogram,
@@ -64 +66 @@
     print "* OPTIONAL: choose time interval in past    -i <'1 hour'|'1 day'|etc>   (default=none\n";} 
 if (!$begin) {
-    print "* OPTIONAL: choose a begin time             -b <datetime>               (default=7am this morning)\n";} 
+    print "* OPTIONAL: choose a begin time             -b <datetime>               (default=6:35am this morning)\n";} 
 if (!$end) {
     print "* OPTIONAL: choose an end time              -e <datetime>               (default=now)\n";} 
+if (!$day) {
+    print "* OPTIONAL: choose a single day to plot     -d <date>                   (default=today)\n";} 
 if (!$path) {
     print "* OPTIONAL: choose an output location       -o <path>                   (default=none)\n";
@@ -84 +88 @@
 $czarDb->setDateFormat("%Y%m%d-%H%i%s");
 
-
-# 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);
-my $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);
+my $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);
 
 # sort out times
-if (!$end) {$end = $czarDb->getNowTimestamp();}
-if (!$begin) {
-    if ($interval) {$begin = $czarDb->subtractInterval($end, $interval);}
-    else {$begin =  strftime('%Y-%m-%d 06:35',localtime);}
+if($day) {
+    $end = "$day 23:59";
+    $begin =  "$day 06:35";
 }
+else {
 
+    if (!$end) {$end = $czarDb->getNowTimestamp();}
+    if (!$begin) {
+
+        if ($interval) {$begin = $czarDb->subtractInterval($end, $interval);}
+        else {$begin =  strftime('%Y-%m-%d 06:35',localtime);}
+    }
+}
 my $diskUsage = 1; # TODO