arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Change use library to require

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@993 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-04-07 19:24:28 +00:00
parent 7f5bcfcfde
commit e6a5bcc31c
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
xCAT-client-2.0/bin/xdsh
View File

@ -1,5 +1,4 @@
#!/usr/bin/perl
# !/usr/bin/env perl
#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN
{
@ -43,18 +42,24 @@ This program is the client interface for xdsh/xdcp.
my $cmdref;
my $arg;
my @SaveARGV = @ARGV;
$cmdref->{command}->[0] = $bname; # save my command name
my $arg = shift(@SaveARGV);
# Pull out the 1st non-hyphen arg as the noderange
for (my $i=0; $i<scalar(@ARGV); $i++) {
if ($ARGV[$i] !~ /^-/) { # found the noderange
$cmdref->{noderange}->[0] = splice(@ARGV, $i, 1); # removes and returns the noderange
last;
}
if ($arg =~ /^-/) # no noderange
{
push @{$cmdref->{arg}}, $arg;
foreach (@SAVEARGV)
{
push(@{$cmdref->{arg}}, $_);
}
@ARGV = @{$cmdref->{arg}}; # save just the argument to parse
}
else
{
$cmdref->{noderange}->[0] = $arg; # save noderange
@ARGV = @SaveARGV; # noderange removed for parsing
}
# Put all the rest of the args in the structure
push (@{$cmdref->{arg}}, @ARGV);
# check for help, bypass, other client flags
if ($bname eq "xdsh")
@ -66,6 +71,11 @@ else
&parse_args_xdcp;
}
foreach (@SaveARGV)
{
push(@{$cmdref->{arg}}, $_);
}
# add environment variables, if they have not already been assigned with
# command line flags
if (!($::NODE_RSH))