Changeset 32268

Timestamp:

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

Author:

watersc1

Message:

allow overwriting run counts

Location:

tags/ipp-20110622/tools/diskspace

Files:

• . (modified) (1 prop)
• run_counter.pl (modified) (1 diff)

tags/ipp-20110622/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) {