Changeset 28003 for branches/pap/ippScripts/scripts/receive_advance.pl

Timestamp:

May 18, 2010, 12:49:05 PM (16 years ago)

Author:

eugene

Message:

merging changes from trunk into branches/pap

Location:

branches/pap

Files:

• . (modified) (1 prop)
• ippScripts/scripts/receive_advance.pl (modified) (3 diffs)

branches/pap/ippScripts/scripts/receive_advance.pl

@@ -7 +7 @@
 use Sys::Hostname;
 my $host = hostname();
-print "Starting script $0 on $host\n\n";
+my $date = `date`;
+print "\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use DateTime;
@@ -58 +60 @@
     &my_die( "Unable to set up", $fileset_id, $PS_EXIT_CONFIG_ERROR ); # IPP configuration
 
-# update the fileset entry
-
-if ($dbinfo_uri and ($dbinfo_uri ne "NULL")) {
+my $import_run_to_db = 0;
+if ($import_run_to_db and $dbinfo_uri and ($dbinfo_uri ne "NULL")) {
     my $filename = basename($dbinfo_uri);
     my ($stage) = $filename =~ m|^dbinfo\.(\S+)\.\d+\.mdc$|; # Stage of interest
@@ -100 +101 @@
 }
 
+# update the fileset entry
 # All done
 {