Index: trunk/ippScripts/scripts/ipp_inject_fileset.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_inject_fileset.pl	(revision 24201)
+++ trunk/ippScripts/scripts/ipp_inject_fileset.pl	(revision 29895)
@@ -24,6 +24,8 @@
 # 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,7 +81,6 @@
 }
 
-# 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,5 +90,5 @@
 	# 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";
     }