Changeset 37144

Timestamp:

Jul 30, 2014, 2:12:34 PM (12 years ago)

Author:

watersc1

Message:

fetching needs to try harder to do its job.

File:

• tags/ipp-pv3-20140717/ippScripts/scripts/sc_remote_exec.pl (modified) (1 diff, 1 prop)

tags/ipp-pv3-20140717/ippScripts/scripts/sc_remote_exec.pl

@@ -253 +253 @@
 # Feed teh return list into the transfer tool
 # If this fails, we should go to an auth wait point.
-my $return_push_output = ssh_exec_command("${remote_root}/sc_transfer_tool.pl --input $remote_return --offset $offset");
-my $return_push_output_print = join "\n", @{ $return_push_output };
-print "$return_push_output_print\n";
-
-
+if ($poll_word eq 'Completed') { 
+    my $iter = 0;
+    do {
+        check_ssh_connection(); 
+        my $return_push_output = ssh_exec_command("${remote_root}/sc_transfer_tool.pl --input $remote_return --offset $offset");
+        my $return_push_output_print = join "\n", @{ $return_push_output };
+        print "$return_push_output_print\n";
+    } while ($iter < 10);  # Try harder;
+}
+else {
+    my $return_push_output = ssh_exec_command("${remote_root}/sc_transfer_tool.pl --input $remote_return --offset $offset");
+    my $return_push_output_print = join "\n", @{ $return_push_output };
+    print "$return_push_output_print\n";
+}
 
 foreach my $file (@dbinfo_files) {