Changeset 29060 for branches/sc_branches/trunkTest/tools/czarplot.pl

Timestamp:

Aug 26, 2010, 9:18:39 AM (16 years ago)

Author:

Serge CHASTEL

Message:

Merging trunk in branch

Location:

branches/sc_branches/trunkTest

Files:

• . (modified) (1 prop)
• tools/czarplot.pl (modified) (5 diffs)

branches/sc_branches/trunkTest/tools/czarplot.pl

@@ -38 +38 @@
         );
 
-print "\n";
+
+print "\n*******************************************************************************\n";
+print "* \n";
+my $quit = 0;
+if (@ARGV) {
+    $quit=1;
+    print "* UNKNKOWN: option                          @ARGV\n";
+}
 if (!$histogram) {
     print "* OPTIONAL: plot histogram                  -h                          (default=off)\n";}
@@ -50 +57 @@
     print "* OPTIONAL: choose a stage                  -s <chip|cam|warp|etc>      (default=none)\n";}
 if (!$interval) {
-    print "* OPTIONAL: choose time interval in past    -i <'1 hour'|'1 day'|etc>   (default=interval since 7am this morning)\n";} 
+    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";} 
@@ -57 +64 @@
 if (!$path) {
     print "* OPTIONAL: choose an output location       -o <path>                   (default=none)\n";} 
+print "*\n*******************************************************************************\n";
 
-print "\n";
+if ($quit) { exit; }
 
 # default values
@@ -71 +79 @@
 $czarDb->setDateFormat("%Y%m%d-%H%i%s");
 
+
+# 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);
 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);
-
-my @allStages = ("chip", "cam", "fake", "warp", "stack", "diff", "magic", "magicDS", "dist");
 
 # sort out times
@@ -79 +87 @@
 if (!$begin) {
     if ($interval) {$begin = $czarDb->subtractInterval($end, $interval);}
-    else {$begin =  strftime('%Y-%m-%d 07:00',localtime);}
+    else {$begin =  strftime('%Y-%m-%d 06:30',localtime);}
 }