Changeset 28783 for trunk/tools/czartool/Czarplot.pm

Timestamp:

Jul 29, 2010, 2:46:11 PM (16 years ago)

Author:

rhenders

Message:

Not using temp files anymore

File:

• trunk/tools/czartool/Czarplot.pm (modified) (3 diffs)

trunk/tools/czartool/Czarplot.pm

@@ -4 +4 @@
 use warnings;
 use strict;
-
-use File::Temp qw(tempfile);
 
 my @allStages = ("chip", "cam", "fake", "warp", "stack", "diff", "magic", "magicDS", "dist");
@@ -100 +98 @@
     my $outputFile = createImageFileName($self, $label, undef, "h");
 
-    my ($tempFile, $inputFile) = tempfile( "/tmp/czartool_gnuplot_histogram.XXXX", UNLINK => !$self->{_save_temps});
+    my $inputFile = "/tmp/czarplot_gnuplot_".$label."_h.dat"; # TODO use stage not table
+    open (GNUDAT, ">$inputFile");
+
     my ($processed, $pending, $faults);
     my $stage = undef;
@@ -106 +106 @@
 
         $self->{_czarDb}->countProcessedPendingAndFaults($label, $stage, $beginTime, $endTime, \$processed, \$pending, \$faults);
-        print $tempFile "$stage $processed, $pending, $faults\n";
-    }
-
-    close($tempFile);
+        print GNUDAT "$stage $processed, $pending, $faults\n";
+    }
+
+    close(GNUDAT);
 
     plotHistogram($self, $inputFile, $outputFile, $label, $beginTime, $endTime);