Changeset 108

Timestamp:

Oct 7, 2003, 11:55:14 PM (23 years ago)

Author:

eugene

Message:

added code to skip focus frames, save failed links in failure dir

File:

• trunk/Ohana/src/perl/src/elixir.link (modified) (2 diffs)

trunk/Ohana/src/perl/src/elixir.link

@@ -19 +19 @@
     if ($camera eq "cfh12k")  { last; } 
     if ($camera eq "megacam") { last; } 
+    if ($camera eq "meganorth") { last; } 
     if ($camera eq "cfhtir")  { last; } 
     die "invalid camera $camera";
@@ -65 +66 @@
     }
     
-    # these files always come in as MEF or CUBE
-    vsystem ("imsort $opts $rawfile");
+    # these files always come in as MEF or CUBE 
+    # -needtype will skip focus frames
+    vsystem ("imsort -needtype $opts $rawfile");
     if ($?) { 
         # allow for retry on failure
         $Nfail ++;
-        unlink ($rawfile);
+
+        # save links for record.
+        if (! -d "$linkdir/failure") { mkdir "$linkdir/failure"; }
+        system ("mv $name $linkdir/failure/");
         next; 
     }