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

resolve compatiblity issue

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10116 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhaoertao 2011-07-19 07:38:12 +00:00
parent 04ada1712d
commit 8f17cd4cb6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl-xCAT/xCAT/PPCfsp.pm
View File

@ -141,7 +141,7 @@ sub connect {
##################################
my $hosttab = xCAT::Table->new( 'hosts' );
if ( $hosttab) {
my $hostshash = $hosttab->getNodeAttribs( $server, [qw(otherinterfaces)]);
my $hostshash = $hosttab->getNodeAttribs( $server, [qw(ip otherinterfaces)]);
if ( $hostshash ) {
$server = $hostshash->{ip};
}
@ -262,6 +262,7 @@ sub loginstate {
return ([RC_ERROR, $res->status_line]);
}
if ($res->content =~ m#$log_name</td><td>(\w+)</td>#) {
if ($res->content =~ m#[\d\D]+Status[\d\D]+$log_name</td><td[^>]+>(\w+)</td>#) {
my $out = sprintf("%9s: %8s", $log_name, $1);
return ( [SUCCESS, $out]);
} else {