Changeset 32267 for trunk/tools/diskspace/run_counter.pl

Timestamp:

Aug 31, 2011, 5:24:10 PM (15 years ago)

Author:

watersc1

Message:

last bit to allow overwriting

File:

• trunk/tools/diskspace/run_counter.pl (modified) (1 diff)

trunk/tools/diskspace/run_counter.pl

@@ -55 +55 @@
 my $datestring = $dt->ymd;
 my $outfile = "neb:///ipp_diskspace/${datestring}/run_im_counts.dat";
-my $out_fh = $ipprc->file_create_open($outfile);
+my $out_fh;
+if ($ipprc->file_exists($outfile)) {
+    my $U_file = $ipprc->file_resolve($outfile);
+    open($out_fh,">$U_file");
+}
+else {
+    $out_fh = $ipprc->file_create_open($outfile);
+}
 
 foreach $s (keys %stages) {