072e9d80fe
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@107 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
26 lines
580 B
Perl
Executable File
26 lines
580 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
use File::Basename;
|
|
|
|
#######################################
|
|
# It handles the commands without noderanges.
|
|
#######################################
|
|
my $bname = basename($0);
|
|
my $cmd;
|
|
if($bname =~ /xcatclientnnr/) {
|
|
$cmd = shift @ARGV;
|
|
} elsif ($bname =~/^(.*$)/) {
|
|
$cmd = $1;
|
|
} else {
|
|
printf("Bad usage\n");
|
|
exit(1);
|
|
}
|
|
exec("xcatclient $cmd NO_NODE_RANGE @ARGV 2>&1");
|
|
#if (system("/usr/bin/xcatclient $cmd NO_NODE_RANGE @ARGV 2>&1") != 0) {
|
|
# print "$cmd failed: $?\n";
|
|
#}
|
|
|
|
#exit;
|
|
|
|
|