Changeset 29895 for trunk/ippScripts/scripts/ipp_inject_fileset.pl

Timestamp:

Dec 1, 2010, 12:51:46 PM (15 years ago)

Author:

bills

Message:

Allow the user to supply an exp_name. Add a new file type for Megacam

File:

• trunk/ippScripts/scripts/ipp_inject_fileset.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_inject_fileset.pl

@@ -24 +24 @@
 # Parse the command-line arguments
 my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $label, $dbname, $no_op, $help);
+my $exp_name;
 GetOptions('camera|i=s'     => \$camera,    # user-supplied camera name
            'telescope|t=s'  => \$telescope, # user-supplied telescope name
+           'exp_name|=s'    => \$exp_name,  # user-supplied exp_name name
            'workdir|w=s'    => \$workdir,   # working directory for output files
            'reduction=s'    => \$reduction, # user-supplied camera name
@@ -79 +81 @@
 }
 
-# use the first file name as the exp_name (strip off .fits)
+# if not supplied, use the first file name as the exp_name (strip off .fits)
 my $num = 0;
-my $exp_name;
 foreach my $file ( @ARGV ) {
     # check for file existence
@@ -89 +90 @@
         # strip off the extension
         my ( $vol, $path, $name ) = File::Spec->splitpath( $file );
-        ( $exp_name ) = $name =~ /(.*)\.(fits|fit|fts)(|.gz)/;
+        ( $exp_name ) = $name =~ /(.*)\.(fits|fit|fts|flt)(|.gz)/;
         print "exp_name : $exp_name.\n";
     }