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

added gennr for using nodels without database

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4888 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
vallard 2010-01-05 05:12:38 +00:00
parent ad45f701f8
commit 0d0cf639e1
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
xCAT-server/lib/xcat/plugins/tabutils.pm
View File

@ -49,7 +49,8 @@ sub handled_commands
chtype => "tabutils", # not implemented yet
nr => "tabutils", # not implemented yet
rnoderange => "tabutils", # not implemented yet
tabgrep => "tabutils"
tabgrep => "tabutils",
gennr => "tabutils"
};
}
@ -109,6 +110,10 @@ sub process_request
{
return nodech($nodes, $args, $callback, "groupch");
}
elsif ($command eq "gennr")
{
return gennr($nodes, $args, $callback);
}
elsif ($command eq "nodech" or $command eq "chnode")
{
return nodech($nodes, $args, $callback, 0);
@ -1015,6 +1020,24 @@ sub nodech
}
}
# gennr linked to xcatclientnnr and is used to generate a list of nodes
# external to the database.
sub gennr {
my $nodes = shift;
my $args = shift;
my $callback = shift;
@ARGV = @{$args};
my $nr = shift @ARGV;
$nodes = [noderange($nr, 0)];
my %rsp; # for output.
foreach (@$nodes){
#print $_ . "\n";
push @{$rsp{data}}, $_;
}
$callback->(\%rsp);
}
sub tabgrep
{
my $node = shift;