support fanout input
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@13043 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
74166dae00
commit
ecde4d3f0b
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user