mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-30 17:46:38 +00:00
56 lines
1.6 KiB
Perl
Executable File
56 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use Cwd;
|
|
|
|
#use IO::Socket::SSL;
|
|
#use IO::Socket::INET;
|
|
my %rvidhash;
|
|
my $xcatroot = $ENV{'XCATROOT'};
|
|
unless ($xcatroot) {
|
|
$xcatroot = "/opt/xcat"
|
|
}
|
|
use File::Basename;
|
|
use xCAT::Client;
|
|
|
|
#use Data::Dumper;
|
|
sub process_response {
|
|
my $resp = shift;
|
|
foreach my $rst (\@{ $resp->{node} }) {
|
|
foreach my $rsp (@$rst) {
|
|
if ($rsp->{errorcode} and (not ref $rsp->{errorcode} or $rsp->{errorcode}->[0])) {
|
|
print $rsp->{name}->[0] . ": Error: " . $rsp->{error}->[0] . "\n";
|
|
} else {
|
|
$rvidhash{ $rsp->{name}->[0] }->{ $rsp->{data}->[0]->{desc}->[0] } = $rsp->{data}->[0]->{contents}->[0];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
my $cmdref;
|
|
$cmdref->{command}->[0] = 'getrvidparms';
|
|
|
|
# Consider the 1st non-hyphen arg to be the noderange. All others (before and after) go on the arg list.
|
|
my $arg = shift(@ARGV);
|
|
while ($arg =~ /^-/) {
|
|
push(@{ $cmdref->{arg} }, $arg);
|
|
$arg = shift(@ARGV);
|
|
}
|
|
if ($arg ne "NO_NODE_RANGE") {
|
|
$cmdref->{noderange}->[0] = $arg;
|
|
}
|
|
push(@{ $cmdref->{arg} }, @ARGV);
|
|
|
|
xCAT::Client::submit_request($cmdref, \&process_response);
|
|
my %CLEANENV = %ENV;
|
|
foreach my $node (keys %rvidhash) {
|
|
%ENV = %CLEANENV;
|
|
foreach my $var (keys %{ $rvidhash{$node} }) {
|
|
$ENV{"rvid_$var"} = $rvidhash{$node}->{$var};
|
|
}
|
|
system("$xcatroot/share/xcat/rvid/rvid." . $ENV{"rvid_method"} . " &");
|
|
}
|
|
exit $xCAT::Client::EXITCODE;
|