Changeset 37143 for trunk/ippScripts

Timestamp:

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

Author:

watersc1

Message:

The fetch code needs to try harder to succeed. If it fails, it needs
to try again. Rsync will speed things up somewhat, so we're not going
to retransfer things. Still, if the word is that we completed, we
better get everything that we made.

File:

• trunk/ippScripts/scripts/sc_remote_exec.pl (modified) (1 diff)

trunk/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) {