From b29a32f1590b0a9c162718470fae54d911f3c15c Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 8 Jun 2012 11:38:07 +0000
Subject: [PATCH] support fanout input

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13044 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-client/bin/prsync | 13 ++++++++++---
 xCAT-client/bin/pscp   | 12 ++++++++++--
 2 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/xCAT-client/bin/prsync b/xCAT-client/bin/prsync
index f5b485f7c..d5233940e 100755
--- a/xCAT-client/bin/prsync
+++ b/xCAT-client/bin/prsync
@@ -28,7 +28,6 @@ if ($ENV{XCATHOST}) {
           $xcathost=$ENV{XCATHOST};
 }
 
-my $pshmaxp = 64; #TODO: should this be server dictated or local conf?
 if (!(@ARGV)) {
        &usage;
        exit(1);
@@ -38,6 +37,7 @@ if (!GetOptions(
   'h|help'     => \$help,
   'v|version'  => \$version,
   'o|options=s' => \$opts,
+  'f|fanout=s' => \$fanout,
   'i|interface=s'  => \$interface))
 {
        &usage;
@@ -52,7 +52,14 @@ if ($version) {
     print "$version \n";
     exit(0);
 }
-
+my $pshmaxp = 64; 
+# determine fanout
+if ($fanout) {  # see if they overroad the fanout from the command line
+  $pshmaxp=$fanout;
+}
+if ($ENV{XCATPSHFANOUT}) {  # env variable rules
+  $pshmaxp=$ENV{XCATPSHFANOUT};
+}
 (my $noderange,my $destloc) = split(/:/,$ARGV[1]);
 my @user = getpwuid($>);
 my $homedir=$user[7];
@@ -159,7 +166,7 @@ sub scpnode {
 }
 sub usage {
     print "Usage: prsync filename [filename ...] noderange:destinationdirectory\n";
-    print "       prsync  [-o rsync options] [filename filename ...] [directory directory ...]";
+    print "       prsync [-f fanout]  [-o rsync options] [filename filename ...] [directory directory ...]";
     print "  noderange:destinationdirectory\n";
     print "       prsync {-h|--help|-v|--version}\n";
 }
diff --git a/xCAT-client/bin/pscp b/xCAT-client/bin/pscp
index d1c562faa..bb405cc2e 100755
--- a/xCAT-client/bin/pscp
+++ b/xCAT-client/bin/pscp
@@ -18,6 +18,7 @@ use POSIX qw(:signal_h :errno_h :sys_wait_h);
 my $interface;
 GetOptions(
   "interface=s" => \$interface,
+  "f|fanout=s" => \$fanout,
   );
 my %nodehdl;
 my $xcathost='localhost:3001';
@@ -28,11 +29,18 @@ if ($ENV{XCATHOST}) {
 sub usage
 {
   print $_[0];
-  print "Usage: pscp [-i <SUFFIX>] [SCP OPTIONS...] FILE... <NODERANGE>:<DESTINATION>\n";
+  print "Usage: pscp [ -f fanout] [-i <SUFFIX>] [SCP OPTIONS...] FILE... <NODERANGE>:<DESTINATION>\n";
   exit 1;
 }
 
-my $pshmaxp = 64; #TODO: should this be server dictated or local conf?
+my $pshmaxp = 64; 
+if ($fanout) {  # see if they overroad the fanout from the command line
+  $pshmaxp=$fanout;
+}
+if ($ENV{XCATPSHFANOUT}) {  # env variable rules
+  $pshmaxp=$ENV{XCATPSHFANOUT};
+}
+
 
 # Processing arguments
 usage unless @ARGV;