Changeset 115

Timestamp:

Oct 8, 2003, 12:04:57 AM (23 years ago)

Author:

eugene

Message:

improved the 'cleanup' function

File:

• trunk/Ohana/src/perl/src/mkdetrend (modified) (6 diffs)

trunk/Ohana/src/perl/src/mkdetrend

@@ -106 +106 @@
         }
     }
-    $file = mkfiles ("split");
-    symlink ("/data/koa/split", $file);
     &save_dates ($start, $stop, "init");
 
@@ -148 +146 @@
         }
     }
-    $file = mkfiles ("split");
-    symlink ("/data/koa/split", $file);
     &save_dates ($start, $stop, "init");
 
@@ -336 +332 @@
     # only deletes temporary files for configs in state 'done'
     
-    @delete = ('fits', 'norm', 'proc.imbin', 'proc.medbin', 'proc.tenbin');
-    @list = load_config ();
-    
-    $split = mkfiles ("split");
-    @answer = `df -k $split`;
-    @words = split (" ", $answer[1]);
-    print STDERR "space free at start: $words[3]\n";
+    @list = load_config ();
+    
     $detdir = mkfiles ("detdir");
     open (CF, ">$detdir/clean.fail");
@@ -373 +364 @@
                 $Ngood ++;
             }
-
-            # delete files names in these files (not needed with flips2)
-            $name = &mknames ("msplit", $confline, $ccd); 
-            open (FILE, "$name");
-            @dlist = <FILE>;
-            close (FILE);
-
-            # delete file, if it exists
-            foreach $file (@dlist) { 
-                chop $file;
-                if (! -e $file) { $Nmiss ++; next; }
-                if (!unlink $file) { $Nfail ++; print CF "$file\n"; next; }
-                $Ngood ++;
-            }
-
         }
         $confline = stconfig ($confline, "status", "clean");
@@ -394 +370 @@
     close (CF);
     
-    $split = mkfiles ("split");
-    @answer = `df -k $split`;
-    @words = split (" ", $answer[1]);
-    print STDERR "space free at end: $words[3]\n";
     print STDERR "$Ngood files deleted\n";
     print STDERR "$Nmiss files already removed\n";
@@ -463 +435 @@
             } 
             if (($status eq "freeze") || ($status eq "accepted")) {
-                $confline = stconfig ($confline, "status", "freeze");
                 next RESET;
             }