Added "rspconfig textid=[new-textid]" to get/set blade textids

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1430 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-05-16 19:02:10 +00:00
parent e306c0a478
commit 0a4da3a31e

View File

@ -418,6 +418,7 @@ sub mpaconfig {
my $mpa=shift;
my $user=shift;
my $pass=shift;
my $nodeid=shift;
my $parameter;
my $value;
my $assignment;
@ -458,6 +459,14 @@ sub mpaconfig {
push @cfgtext,"Build ID: $data";
next;
}
if ($parameter eq "textid") {
if ($assignment) {
setoid("1.3.6.1.4.1.2.3.51.2.22.1.7.1.1.5",$nodeid,$value,'OCTET');
}
my $data = $session->get([$bladeoname,$nodeid]);
push @cfgtext,"textid: $data";
return $returncode,@cfgtext;
}
if ($parameter =~ /^snmpcfg$/i) {
my $data = $session->get(['1.3.6.1.4.1.2.3.51.2.4.9.3.1.6',0]);
if ($data) {
@ -1106,7 +1115,7 @@ sub bladecmd {
} elsif ($command =~ /r[ms]preset/) {
return resetmp(@args);
} elsif ($command eq "rspconfig") {
return mpaconfig($mpa,$user,$pass,@args);
return mpaconfig($mpa,$user,$pass,$slot,@args);
} elsif ($command eq "rbootseq") {
return bootseq(@args);
} elsif ($command eq "switchblade") {
@ -2052,3 +2061,4 @@ sub dompa {