Modified telnetcmd() function to allow lsslp to call it to configure MMs after discovery
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1572 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
8d4c89e93b
commit
25fae0de19
@ -1648,7 +1648,7 @@ sub telnetcmds {
|
||||
my @unhandled;
|
||||
my %handled = ();
|
||||
my $result;
|
||||
my @tcmds = qw(snmpcfg sshcfg network swnet pd1 pd2 textid);
|
||||
my @tcmds = qw(snmpcfg sshcfg network swnet pd1 pd2 textid network_reset);
|
||||
|
||||
# most of these commands should be able to be done
|
||||
# through SNMP, but they produce various errors.
|
||||
@ -1680,9 +1680,10 @@ sub telnetcmds {
|
||||
}
|
||||
if (!$Rc) {
|
||||
push @cfgtext,$t->errmsg;
|
||||
return([1,\@unhandled]);
|
||||
return([1,\@unhandled,$t->errmsg]);
|
||||
}
|
||||
$Rc = 0;
|
||||
my @data;
|
||||
|
||||
foreach (keys %handled) {
|
||||
if (/^snmpcfg/) { $result = snmpcfg($t,$handled{$_},$user,$pass); }
|
||||
@ -1691,11 +1692,13 @@ sub telnetcmds {
|
||||
elsif (/^swnet$/) { $result = swnet($t,$handled{$_}); }
|
||||
elsif (/^pd1|pd2$/) { $result = pd($t,$_,$handled{$_}); }
|
||||
elsif (/^textid$/) { $result = mmtextid($t,$mpa,$handled{$_}); }
|
||||
elsif (/^network_reset$/) { $result = network($t,$handled{$_},$mpa,1); }
|
||||
push @data, "$_: @$result";
|
||||
$Rc |= shift(@$result);
|
||||
push @cfgtext,@$result;
|
||||
}
|
||||
$t->close;
|
||||
return([$Rc,\@unhandled]);
|
||||
return([$Rc,\@unhandled,\@data]);
|
||||
}
|
||||
|
||||
|
||||
@ -1745,6 +1748,7 @@ sub network {
|
||||
my $t = shift;
|
||||
my $value = shift;
|
||||
my $mpa = shift;
|
||||
my $reset = shift;
|
||||
my $cmd = "ifconfig -eth0 -c static -r auto -d auto -m 1500 -T system:mm[1]";
|
||||
my ($ip,$host,$gateway,$mask);
|
||||
|
||||
@ -1797,6 +1801,10 @@ sub network {
|
||||
if ($host) { push @result,"MM Hostname: $host"; }
|
||||
if ($gateway){ push @result,"Gateway: $gateway"; }
|
||||
if ($mask) { push @result,"Subnet Mask: $mask"; }
|
||||
|
||||
if (defined($reset)) {
|
||||
$t->cmd("reset -T system:mm[1]");
|
||||
}
|
||||
return([0,@result]);
|
||||
|
||||
}
|
||||
@ -2149,3 +2157,4 @@ sub dompa {
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user