Index: /trunk/Ohana/src/perl/src/mkdetrend
===================================================================
--- /trunk/Ohana/src/perl/src/mkdetrend	(revision 114)
+++ /trunk/Ohana/src/perl/src/mkdetrend	(revision 115)
@@ -106,6 +106,4 @@
 	}
     }
-    $file = mkfiles ("split");
-    symlink ("/data/koa/split", $file);
     &save_dates ($start, $stop, "init");
 
@@ -148,6 +146,4 @@
 	}
     }
-    $file = mkfiles ("split");
-    symlink ("/data/koa/split", $file);
     &save_dates ($start, $stop, "init");
 
@@ -336,11 +332,6 @@
     # 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,19 +364,4 @@
 		$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,8 +370,4 @@
     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,5 +435,4 @@
 	    } 
 	    if (($status eq "freeze") || ($status eq "accepted")) {
-		$confline = stconfig ($confline, "status", "freeze");
 		next RESET;
 	    }