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

Add tool to create roadrunner nodes and groups.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@913 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-03-27 18:36:32 +00:00
parent 2c9963ebed
commit 52c966f96f
1 changed files with 124 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
xCAT-server-2.0/share/xcat/tools/mkrrnodes Normal file
View File

@ -0,0 +1,124 @@
#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#(C)IBM Corp
#
use Getopt::Long;
#-----------------------------------------------------------------------------
=head1 mkrrnodes
mkrrnodes -C <cu letter> -R <startrange,endrange> (add)
mkrrnodes -d -C <cu letter> -R <startrange,endrange> (delete)
Build an nodelist entry that looks like this
"rrb048c","rrb048,qs22,cub,cell,cell-c,compute,tb,rack06","blade,osi",,,
=cut
#-----------------------------------------------------------------------------
# Main
my $rc = 0;
&parse_args;
my $cmd = "";
my @bladename;
@bladename=("a","b","c");
foreach my $CU (@::CU)
{
foreach my $range (@::RANGE)
{
foreach my $blade (@bladename)
{
$cmd = "rr";
$cmd .= $CU;
$cmd .= $range;
$cmd .= "$blade";
$cmd .= " ";
if ($blade eq "a" ) {
$cmd .= "groups=rr$CU$range,ls21,cu$CU,opteron,compute,tb";
} else {
if ($blade eq "b" ) {
$cmd .= "groups=rr$CU$range,qs22,cu$CU,cell,cell-b,compute,tb";
} else { # c
$cmd .= "groups=rr$CU$range,qs22,cu$CU,cell,cell-c,compute,tb";
}
}
if ($CU eq "a" ) {
$cmd .= ",rack05";
} else {
$cmd .= ",rack06";
}
$cmd .=" nodelist.nodetype=blade,osi";
if ($::DELETE) {
system("noderm $cmd");
} else {
system("nodeadd $cmd");
}
}
}
}
exit $rc;
#-----------------------------------------------------------------------------
=head3 parse_args
Parses for input
=cut
#-----------------------------------------------------------------------------
sub parse_args
{
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");
Getopt::Long::Configure("bundling");
if (
!GetOptions(
'C|CU=s' => \$::CU,
'h|help' => \$::HELP,
'd|delete' => \$::DELETE,
'R|RANGE=s' => \$::RANGE
)
)
{
my $usagemsg =
" mkrrnodes -h \n mkrrnodes [-d] -C [a|b|...,r] -R [startrange,endrange]\n";
printf $usagemsg;
exit 1;
}
if ($::HELP)
{
my $usagemsg =
" mkrrnodes -h \n mkrrnodes [-d] -C [a|b|,...,r] -R [startrange,endrange]\n";
printf $usagemsg;
exit 0;
}
@::CU = split(',', $::CU);
my ($fNum,$eNum) = split(',', $::RANGE);
my $prefix;
foreach my $suffix ($fNum .. $eNum)
{
my $numOfZeros = (length($fNum) - length($suffix));
my $prefix = '0' x $numOfZeros;
push @::RANGE, "$fRoot$prefix$suffix$fDomain";
}
}