less hardcoding, more good

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17687 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/support-scripts/test-scripts/ftp_ls.pl b/Open-ILS/src/support-scripts/test-scripts/ftp_ls.pl
index 987a419..61cb800 100755 (executable)
--- a/Open-ILS/src/support-scripts/test-scripts/ftp_ls.pl
+++ b/Open-ILS/src/support-scripts/test-scripts/ftp_ls.pl
@@ -57,7 +57,7 @@ while (my $line = <TEMP>) {
 }
 close TEMP;
 
-my $dir = '/home/some_user/out';
+my $dir = '/home/' . $config{remote_user} . '/out';
 $delay and print "Sleeping $delay seconds\n" and sleep $delay;
 
 my $glob6 = $dir . '/*Q*';