Changeset 18982

Timestamp:

Aug 8, 2008, 3:44:11 PM (18 years ago)

Author:

bills

Message:

use :standard to import symbols add -req_file arg

File:

• trunk/pstamp/scripts/dquery_finish.pl (modified) (1 diff)

trunk/pstamp/scripts/dquery_finish.pl

@@ -18 +18 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 
-use PS::IPP::Config qw($PS_EXIT_SUCCESS
-                       $PS_EXIT_UNKNOWN_ERROR
-                       $PS_EXIT_SYS_ERROR
-                       $PS_EXIT_CONFIG_ERROR
-                       $PS_EXIT_PROG_ERROR
-                       $PS_EXIT_DATA_ERROR
-                       $PS_EXIT_TIMEOUT_ERROR
-                       metadataLookupStr
-                       metadataLookupBool
-                       caturi
-                       );
+use PS::IPP::Config qw( :standard );
 
-
-my ( $req_id, $req_name, $product, $dbname, $verbose, $save_temps );
+my ( $req_id, $req_name, $req_file, $product, $dbname, $verbose, $save_temps );
 
 GetOptions(
            'req_id=s'   => \$req_id,
+           'req_file=s' => \$req_file,
            'req_name=s' => \$req_name,
            'product=s'  => \$product,