Index: /trunk/Ohana/src/perl/src/mkdetrend
===================================================================
--- /trunk/Ohana/src/perl/src/mkdetrend	(revision 55)
+++ /trunk/Ohana/src/perl/src/mkdetrend	(revision 56)
@@ -771,4 +771,7 @@
 
 	if ($DBmode eq "MEF") {
+	    # empty link directory:
+	    system ("rm -f $links/*.fits");
+
 	    # make links 
 	    foreach $ccd (@ccds) {
@@ -780,4 +783,5 @@
 	    # mef, register
 	    $mef = mknames ("mef", $confline);
+	    if (-e $mef) { unlink $mef; }
 	    vsystem ("fhtool -P $links $mef");
 	    if ($status) { $success = 0; }
@@ -932,5 +936,5 @@
     
     system ("$MKDETREND dup $config");
-    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">\n";
+    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">\n";
     
     &goodbye;
@@ -946,5 +950,5 @@
     
     system ("$MKDETREND del $config");
-    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">\n";
+    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">\n";
     
     &goodbye;;
@@ -984,8 +988,8 @@
 	print STDOUT "<tr><td> $version </td>\n";
 	print STDOUT "<td> $from </td><td> $to </td>\n";
-	print STDOUT "<td> <a href=$CGI/elixir2?$version&elconf=$elconf> $status </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/split?$config&elconf=$elconf>      split </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/delete?$version&elconf=$elconf>   delete </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/redef?$version&elconf=$elconf>  redefine </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $status </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.split?$config&elconf=$elconf>      split </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.delete?$version&elconf=$elconf>   delete </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.redef?$version&elconf=$elconf>  redefine </a></td>\n";
 	print STDOUT "</tr>\n";
     }
@@ -1004,5 +1008,5 @@
     
     # create a simple form for redefine:
-    print STDOUT "<form method=post action=$CGI/redefine&elconf=$elconf>\n";
+    print STDOUT "<form method=post action=$CGI/dt.redefine&elconf=$elconf>\n";
     print STDOUT "start: <input type=text value=$from name=start size=40 maxlength=40> <br>\n";
     print STDOUT "stop: <input type=text value=$to name=stop size=40 maxlength=40> <br>\n";
@@ -1066,5 +1070,5 @@
     save_config (@list);
 
-    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir2?$key&elconf=$elconf\">\n";
+    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir2?$key&elconf=$elconf\">\n";
     &goodbye;
 }
@@ -1094,5 +1098,5 @@
     save_config (@list);
     
-    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/elixir1?&elconf=$elconf\">";
+    print STDOUT "<meta http-equiv=refresh content=\"0; url=$CGI/dt.elixir1?&elconf=$elconf\">";
     &goodbye;
 }
@@ -1107,5 +1111,5 @@
     
     # create a simple form for redefine:
-    print STDOUT "<form method=post action=$CGI/newconfig>\n";
+    print STDOUT "<form method=post action=$CGI/dt.newconfig>\n";
     if ($elconf) {
 	print STDOUT "enter new config: <input type=text value=$elconf name=config size=40 maxlength=40> <br>\n";
@@ -1139,8 +1143,8 @@
 	print STDOUT "<tr><td> $version </td>\n";
 	print STDOUT "<td> $from </td><td> $to </td>\n";
-	print STDOUT "<td> <a href=$CGI/elixir2?$version&elconf=$elconf> $status </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/split?$config&elconf=$elconf> split </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/delete?$version&elconf=$elconf> delete </a></td>\n";
-	print STDOUT "<td> <a href=$CGI/redef?$version&elconf=$elconf> redefine </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $status </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.split?$config&elconf=$elconf> split </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.delete?$version&elconf=$elconf> delete </a></td>\n";
+	print STDOUT "<td> <a href=$CGI/dt.redef?$version&elconf=$elconf> redefine </a></td>\n";
 	print STDOUT "</tr>\n";
     }
@@ -1152,5 +1156,5 @@
 	print STDOUT "Current Config: <b>$elconf</b><br>\n";
     }
-    print STDOUT "<a href=$CGI/config?&elconf=$elconf>Change Config</a></td>\n";
+    print STDOUT "<a href=$CGI/dt.config?&elconf=$elconf>Change Config</a></td>\n";
     print STDOUT "</body>\n";
     &goodbye;;
@@ -1692,10 +1696,10 @@
     print STDOUT "$statline\n";
     print STDOUT "you have the following choices: <br>\n";
-    print STDOUT "<a href=$CGI/elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
-    print STDOUT "<a href=$CGI/split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
-    print STDOUT "<a href=$CGI/accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
     print STDOUT "</td><td width=640px align=right><img width=100% src=$imbin></td></tr></table>\n";
     
-    print STDOUT "<form method=post action=$CGI/modify?&elconf=$elconf>\n";
+    print STDOUT "<form method=post action=$CGI/dt.modify?&elconf=$elconf>\n";
 
     print STDOUT "<center><b>Statistics on each available input image.</b></center>
@@ -1705,11 +1709,11 @@
     print STDOUT "<table bgcolor=#fff0e0 border=1 cellspacing=0 cellpadding=3>\n";
     print STDOUT "<tr bgcolor=#00aaaa>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.0&elconf=$elconf> image </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.0&elconf=$elconf> image </a></th>\n";
     print STDOUT "<th > Date </th>\n";
     print STDOUT "<th > Time </th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
     print STDOUT "<th > image </th>\n";
     print STDOUT "<th > used? </th>\n";
@@ -1734,5 +1738,5 @@
 	$medname = $tmpw[-1];
 	
-	print STDOUT "<tr><td> <a href=$CGI/elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
+	print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
 	if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
 	else       { print STDOUT "<td> $word[2] </td>\n"; }
@@ -1741,5 +1745,5 @@
 	print STDOUT "<td> $word[6] </td>\n"; # Sigma (clip)
 	print STDOUT "<td> $word[8] </td>\n"; # Sigma (med)
-	print STDOUT "<td> <a border=0 href=$CGI/elixir3?$N.$key&elconf=$elconf>\n";
+	print STDOUT "<td> <a border=0 href=$CGI/dt.elixir3?$N.$key&elconf=$elconf>\n";
 	print STDOUT "<img src=$www/$medname></a></td>\n";
 	if ($used) { print STDOUT "<td>yes</td>\n"; }
@@ -1810,7 +1814,7 @@
     print STDOUT "$statline\n";
     print STDOUT "you have the following choices: <br>\n";
-    print STDOUT "<a href=$CGI/elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
-    print STDOUT "<a href=$CGI/split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
-    print STDOUT "<a href=$CGI/accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.elixir1?&elconf=$elconf> <b> return to top level </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.split?$config&elconf=$elconf> <b> split config </b><br></a>\n";
+    print STDOUT "<a href=$CGI/dt.accept?$key&elconf=$elconf> <b> accept config </b><br></a>\n";
     print STDOUT "</td><td width=640px align=right><img width=100% src=$imbin></td></tr></table>\n";
     
@@ -1821,11 +1825,11 @@
     print STDOUT "<table bgcolor=#fff0e0 border=1 cellspacing=0 cellpadding=3>\n";
     print STDOUT "<tr bgcolor=#00aaaa>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.0&elconf=$elconf> image </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.0&elconf=$elconf> image </a></th>\n";
     print STDOUT "<th > Date </th>\n";
     print STDOUT "<th > Time </th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
-    print STDOUT "<th > <a href=$CGI/elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.3&elconf=$elconf> Mean </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.5&elconf=$elconf> Sigma (raw) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.6&elconf=$elconf> Sigma (clipped) </a></th>\n";
+    print STDOUT "<th > <a href=$CGI/dt.elixir2?$key.8&elconf=$elconf> Sigma (med) </a></th>\n";
     print STDOUT "<th > image </th>\n";
     print STDOUT "<th > used? </th></tr>\n\n";
@@ -1849,5 +1853,5 @@
 	$medname = $tmpw[-1];
 	
-	print STDOUT "<tr><td> <a href=$CGI/elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
+	print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$N.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
 	if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
 	else       { print STDOUT "<td> $word[2] </td>\n"; }
@@ -1856,5 +1860,5 @@
 	print STDOUT "<td> $word[6] </td>\n"; # Sigma (clip)
 	print STDOUT "<td> $word[8] </td>\n"; # Sigma (med)
-	print STDOUT "<td> <a border=0 href=$CGI/elixir3?$N.$key&elconf=$elconf>\n";
+	print STDOUT "<td> <a border=0 href=$CGI/dt.elixir3?$N.$key&elconf=$elconf>\n";
 	print STDOUT "<img src=$www/$medname></a></td>\n";
 	if ($used) { print STDOUT "<td>yes</td>\n"; }
@@ -1911,5 +1915,5 @@
 	$mean = sprintf "%8.1f", $word[3];
 	
-	print STDOUT "<tr><td> <a href=$CGI/elixir3?$i.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
+	print STDOUT "<tr><td> <a href=$CGI/dt.elixir3?$i.$key&elconf=$elconf> $word[0] </a></td><td> $word[1] </td>\n";
 	if ($dawn) { print STDOUT "<td bgcolor=#cccccc> $word[2] </td>\n"; }
 	else       { print STDOUT "<td> $word[2] </td>\n"; } 
@@ -1983,8 +1987,8 @@
     print STDOUT "</td></tr>\n";
 
-    print STDOUT "<tr><td> return to <a href=$CGI/elixir1&elconf=$elconf> config list </a></tr></td>\n"; 
-    print STDOUT "<tr><td> return to <a href=$CGI/elixir2?$version&elconf=$elconf> $version </a></tr></td>\n"; 
-    if (!$first) { print STDOUT "<tr><td> goto <a href=$CGI/elixir3?$prev.$version&elconf=$elconf> prev </a> image </td></tr>\n"; }
-    if (!$last)  { print STDOUT "<tr><td> goto <a href=$CGI/elixir3?$next.$version&elconf=$elconf> next </a> image </td></tr>\n"; }
+    print STDOUT "<tr><td> return to <a href=$CGI/dt.elixir1&elconf=$elconf> config list </a></tr></td>\n"; 
+    print STDOUT "<tr><td> return to <a href=$CGI/dt.elixir2?$version&elconf=$elconf> $version </a></tr></td>\n"; 
+    if (!$first) { print STDOUT "<tr><td> goto <a href=$CGI/dt.elixir3?$prev.$version&elconf=$elconf> prev </a> image </td></tr>\n"; }
+    if (!$last)  { print STDOUT "<tr><td> goto <a href=$CGI/dt.elixir3?$next.$version&elconf=$elconf> next </a> image </td></tr>\n"; }
     print STDOUT "</table>\n";