From: hadaq <hadaq>
Date: Mon, 13 Feb 2012 13:55:24 +0000 (+0000)
Subject: JAM committed bugfix from fall 2011 in cleanup.pl
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=dd8e4951e517cd853de9589ce7824dde35de959e;p=daqdata.git

JAM committed bugfix from fall 2011 in cleanup.pl
---

diff --git a/disks/cleanup.pl b/disks/cleanup.pl
index 1cd0577..5f6a16f 100755
--- a/disks/cleanup.pl
+++ b/disks/cleanup.pl
@@ -190,12 +190,13 @@ sub rmData()
     foreach my $hldfile (@sorted_data){
 
 	my $cmd = "rm $hldfile";
-	#print "exe: $cmd, total RM size: $total_rm_size MB\n" if( $opt_verb );
+	print "exe: $cmd, total RM size: $total_rm_size MB\n" if( $opt_verb );
+	
 	#system($cmd);
-
+	# JAM: do not remove file before geting its size...
 	#- Convert to MBytes
 	$total_rm_size = $total_rm_size + int((stat($hldfile)->size) / 1024 / 1024);
-
+	system($cmd);
 	if($total_rm_size >= $nrOfMB2rm){
 	    last;
 	}
diff --git a/disks/daq_disks b/disks/daq_disks
index ec4d215..427eb15 100755
Binary files a/disks/daq_disks and b/disks/daq_disks differ