Index: trunk/ippScripts/scripts/sc_transfer_tool.pl
===================================================================
--- trunk/ippScripts/scripts/sc_transfer_tool.pl	(revision 37013)
+++ trunk/ippScripts/scripts/sc_transfer_tool.pl	(revision 37102)
@@ -10,6 +10,8 @@
 use Sys::Hostname;
 
-my $local_raw = '/scratch3/watersc1/raw/';
-my $local_tmp = '/scratch3/watersc1/tmp/';
+my $remote_root = '/lustre/scratch1/turquoise/watersc1/ps1/';
+
+my $local_raw = "${remote_root}/raw/";
+my $local_tmp = "${remote_root}/tmp/";
 my $threads = 10;
 my @hosts = ('ippc20.ipp.ifa.hawaii.edu','ippc24.ipp.ifa.hawaii.edu','ippc28.ipp.ifa.hawaii.edu',
@@ -68,5 +70,7 @@
     }
     elsif (!($fetch)) { # We are pushing
-	print { $filehandles[$i] } "${local_tmp}/$_" . "\n";
+	# The rsync call expects to find files of a given name in the directory specified.
+#	print { $filehandles[$i] } "${local_tmp}/$_" . "\n";
+	print { $filehandles[$i] } "$_" . "\n";
     }
 }
@@ -112,5 +116,6 @@
 
     # the transform bit is there because it looks like the ' gets dropped, so the * is interpreted, and why is our tar so out of date?
-    my $command = "tar cf - --ignore-failed-read --dereference --files-from=${transfer_filelist} | /usr/projects/cosmo/amd6100/bin/ssh -o NoneSwitch=yes -o NoneEnabled=yes $destination_host tar xf - -C /data/ --transform '" . 's,^.\*/data/,,' . "' --dereference"; 
+#    my $command = "tar cf - --ignore-failed-read --dereference --files-from=${transfer_filelist} | /usr/projects/cosmo/amd6100/bin/ssh -o NoneSwitch=yes -o NoneEnabled=yes $destination_host tar xf - -C /data/ --transform '" . 's,^.\*/data/,,' . "' --dereference"; 
+    my $command = "rsync -Lpt -e '/usr/projects/cosmo/amd6100/bin/ssh -o NoneSwitch=yes -o NoneEnabled=yes' --files-from=${transfer_filelist} ${local_tmp} ${destination_host}:/";
     print STDERR "$command\n";
 
@@ -118,5 +123,4 @@
 	run(command => $command, verbose => $verbose);
     unless ($success) {
-
 	print STDERR "ERROR:  $error_code\n";
 # 	my $std = join "\n", @{ $stdout_buf };
@@ -125,13 +129,13 @@
 # 	print "STDERR: $std\n";
 
-	foreach my $line (@{ $stderr_buf }) {  # This is a hack.  A messy ugly hack.
-	    if ($line =~ /No such file or directory/) { 
-		my $file = (split /\s+/, $line)[1];
-		$file =~ s/:$//;
-		if ($file !~ /nebulous/) { next; }
-		print STDERR "Touching $file so tar can continue.\n";
-		system("touch $file");
-	    }
-	}
+# 	foreach my $line (@{ $stderr_buf }) {  # This is a hack.  A messy ugly hack.
+# 	    if ($line =~ /No such file or directory/) { 
+# 		my $file = (split /\s+/, $line)[1];
+# 		$file =~ s/:$//;
+# 		if ($file !~ /nebulous/) { next; }
+# 		print STDERR "Touching $file so tar can continue.\n";
+# 		system("touch $file");
+# 	    }
+# 	}
 
 	warn("Transfer of $transfer_filelist to $destination_host failed with error $error_code.");