Index: trunk/ippScripts/scripts/rawcheck.pl
===================================================================
--- trunk/ippScripts/scripts/rawcheck.pl	(revision 39796)
+++ trunk/ippScripts/scripts/rawcheck.pl	(revision 39797)
@@ -22,5 +22,5 @@
 
 
-my ($server,$dbname,$exp_id,$do_cull);
+my ($server,$dbname,$exp_id,$do_cull,$save_log);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -30,4 +30,5 @@
     'dbname=s'       => \$dbname,
     'exp_id|x=s'     => \$exp_id,
+    'save_log'       => \$save_log
     'cull'           => \$do_cull,
 ) || pod2usage( 2 );
@@ -45,4 +46,11 @@
 pod2usage( -msg => "missing key", exitval => 2 )
     unless defined $exp_id;
+
+if ($save_log) {
+    my $time = time();
+    my $logDest = "neb://any/raw_check/exp_${exp_id}.${time}";
+    my $ipprc = PS::IPP::Config->new( "GPC1" ) or die "Could not create config object.\n";
+    $ipprc->redirect_output($logDest) or die "Could not redirect output to logfile ${logDest}\n";
+}
 
 # Global options: