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

Timestamp:

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

Author:

bills

Message:

added --logfile

File:

• trunk/ippScripts/scripts/register_exp.pl (modified) (2 diffs)

trunk/ippScripts/scripts/register_exp.pl

@@ -25 +25 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op);
+my $ipprc = PS::IPP::Config->new();
+
+my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op, $logfile);
 GetOptions(
     'caches'        => \$cache,
@@ -34 +36 @@
     '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;