JAM committed bugfix from fall 2011 in cleanup.pl

diff --git a/disks/cleanup.pl b/disks/cleanup.pl
index 1cd05770512c81469c8a5d4a07a686edefbeaaf4..5f6a16f33887472ba628d8a85c17c5bb479a7e9a 100755 (executable)
--- 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 ec4d215407c37950ad0055d885fc73b0205ba687..427eb15ead253f5248b75f58f4e872c26ae4ba4e 100755 (executable)
Binary files a/disks/daq_disks and b/disks/daq_disks differ