fix a mistake about the mac address formate in AIX system

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9874 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-06-21 13:16:59 +00:00
parent d34f3b9e73
commit af5c3e578b

View File

@ -1942,7 +1942,7 @@ sub match_ip_mac
for (@mac_sections ) {
$_ = "0$_" if ( length($_) == 1) ;
}
$mac = join ':', @mac_sections;
$mac = join '', @mac_sections;
}
} elsif ( $arpent =~ /^(\S+)+\s+\S+\s+(\S+)\s/ ) {
($ip, $mac) = ($1,$2);
@ -2412,7 +2412,8 @@ sub parse_responses {
} else {
$mac = undef;
}
unless ( $mac =~ /\w+\:\w+\:\w+\:\w+\:\w+\:\w+/ ) { $mac = undef;}
# This is originally used to check the invalid mac address in AIX, but failed to do it.
#unless ( $mac =~ /\w+\:\w+\:\w+\:\w+\:\w+\:\w+/ ) { $mac = undef;}
push @$data, $mac;
trace ( $request, " Then find the node's mac $mac.", 1);