Changeset 17964 for trunk/ippScripts/scripts/register_imfile.pl

Timestamp:

Jun 6, 2008, 1:57:57 PM (18 years ago)

Author:

bills

Message:

added --logfile

File:

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

trunk/ippScripts/scripts/register_imfile.pl

@@ -28 +28 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $verbose, $no_update, $no_op);
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $verbose, $no_update, $no_op, $logfile);
 GetOptions(
     'caches'           => \$cache,
@@ -35 +35 @@
     'tmp_exp_name|n=s' => \$tmp_exp_name,
     'uri|u=s'          => \$uri,
-    'dbname|d=s'       => \$dbname,# Database name
+    'dbname|d=s'       => \$dbname,    # Database name
     'verbose'          => \$verbose,   # Print to stdout
     'no-update'        => \$no_update,
     'no-op'            => \$no_op,
+    'logfile=s'        => \$logfile,
 ) or pod2usage( 2 );
+
+$ipprc->redirect_output($logfile) if $logfile;
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -48 +51 @@
     defined $tmp_exp_name and
     defined $uri;
+
 
 my $RECIPE = "REGISTER"; # Recipe to use for ppStats