Changeset 29618

Timestamp:

Oct 29, 2010, 3:42:30 PM (16 years ago)

Author:

rhenders

Message:

Now not leaving annoying png files around

File:

• trunk/tools/czartool/Plotter.pm (modified) (6 diffs)

trunk/tools/czartool/Plotter.pm

@@ -83 +83 @@
     use FileHandle;
     GP->autoflush(1);
+
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
+
     print GP
         "set term $self->{_outputFormat};" .
-        "set output \"$outputFile\";" .
         "set title \"'$label', '$selectedStage' during '$beginTime' to '$endTime'\";" .
         #"set xdata time;" .
@@ -234 +236 @@
     else {$maxY = $maxY*1.1;}
 
+
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
     print GP
         "set term $self->{_outputFormat};" .
-        "set output \"$outputFile\";" .
         "set title \"'$label', '$beginTime' to '$endTime'\";" .
         "set grid;" .
@@ -319 +322 @@
         ${$divX} = 604800;
     }
+    # otherwise, show monthly ticks
     else {
 
@@ -357 +361 @@
     GP->autoflush(1);
 
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
     print GP
         "set term $self->{_outputFormat};" .
-        "set output \"$outputFile\";" .
         "set title \"$title\";" .
         "set key left top;" .
@@ -423 +427 @@
     GP->autoflush(1);
 
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
     print GP
         "set term $self->{_outputFormat};" .
-        "set output \"$outputFile\";" .
         "set title \"Total available cluster space over time\";" .
         "set key left top;" .
@@ -464 +468 @@
     GP->autoflush(1);
 
+    if ($self->{_outputFormat} ne "X11") {print GP "set output \"$outputFile\";";}
     print GP
         "set term $self->{_outputFormat};" .
-        "set output \"$outputFile\";" .
         "set title \"Nebulous disk use across IPP cluster ($totalPercent of total allocated)\";" .
         "set style fill solid 1.00 border -1;" .