Index: trunk/ippScripts/scripts/register_exp.pl
===================================================================
--- trunk/ippScripts/scripts/register_exp.pl	(revision 17956)
+++ 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;
Index: trunk/ippScripts/scripts/register_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/register_imfile.pl	(revision 17956)
+++ trunk/ippScripts/scripts/register_imfile.pl	(revision 17964)
@@ -28,5 +28,5 @@
 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,9 +35,12 @@
     '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,4 +51,5 @@
     defined $tmp_exp_name and
     defined $uri;
+
 
 my $RECIPE = "REGISTER"; # Recipe to use for ppStats