Changeset 37286

Timestamp:

Aug 21, 2014, 8:15:25 PM (12 years ago)

Author:

eugene

Message:

transfer back needs to record the files that actually exist

Location:

tags/ipp-pv3-20140717/ippScripts/scripts

Files:

• sc_remote_poll.pl (added)
• sc_transfer_tool.pl (modified) (5 diffs)

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

@@ -88 +88 @@
 }
 
+open (STATFILE, ">${local_tmp}/${input_base}.stat");
+
 $i = 0;
 while(<I>) {
@@ -112 +114 @@
         if ($quickfetch && (-e $_)) { next; }
         print { $filehandles[$i] } $fline;
-    }
-    elsif (!($fetch)) { # We are pushing
-        # The rsync call expects to find files of a given name in the directory specified.
-#       print { $filehandles[$i] } "${local_tmp}/$_" . "\n";
-#       if (-e "${local_tmp}/$_") {
-        print { $filehandles[$i] } "$_" . "\n";
-        # }
-        # else {
-        #     print "missing $_\n";
-        # }
+    } else { 
+        # We are pushing, but only send back files we actually have
+        if (-e "$_") {
+            print { $filehandles[$i] } "$_" . "\n";
+            print STATFILE, "$_ PASS\n";
+        } else {
+            print STATFILE, "$_ FAIL\n";
+        }
     }
 }
 close(I);
+close(STATFILE);
 
 for ($i = 0; $i < $threads; $i++) {
@@ -130 +131 @@
 }
 
-# fork the tars
+# fork the rsync
 my @pids = ();
 for ($i = 0; $i < $threads; $i++) {
@@ -146 +147 @@
     }
 }
+
 my $global_status = 0;
 for ($i = 0; $i < $threads; $i++) {
@@ -157 +159 @@
 #   unlink("${local_tmp}/${input_base}.${i}");
 }
+
+my $scp_command = "$scp_cmd $option ${local_tmp}/${input_base}.stat $hosts[0]:/tmp/";
+print "$scp_command\n";
+system("$scp_command");
+# XXX check return status
 
 print "global status: $global_status\n";