Index: trunk/ippScripts/scripts/register_exp.pl
===================================================================
--- trunk/ippScripts/scripts/register_exp.pl	(revision 17803)
+++ trunk/ippScripts/scripts/register_exp.pl	(revision 17964)
@@ -25,5 +25,7 @@
 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,5 +36,8 @@
     '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;