Changeset 39797

Timestamp:

Oct 31, 2016, 5:26:17 PM (10 years ago)

Author:

watersc1

Message:

Added option to save log into nebulous. When running at a higher
volume, the default of just dumping into the pantasks logs isn't going
to be feasible.

File:

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

trunk/ippScripts/scripts/rawcheck.pl

@@ -22 +22 @@
 
 
-my ($server,$dbname,$exp_id,$do_cull);
+my ($server,$dbname,$exp_id,$do_cull,$save_log);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -30 +30 @@
     'dbname=s'       => \$dbname,
     'exp_id|x=s'     => \$exp_id,
+    'save_log'       => \$save_log
     'cull'           => \$do_cull,
 ) || pod2usage( 2 );
@@ -45 +46 @@
 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: