Fix a problem where peerhost wasn't being populated correctly due to the IPv6 support change

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@40 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2007-11-08 15:32:10 +00:00
parent e74a7bcedb
commit fcce602669

View File

@ -278,7 +278,7 @@ until ($quit) {
if (defined $tmp->{value}) {
$domain = $tmp->{value};
}
$peerhost = gethostbyaddr(inet_aton($connection->peerhost),AF_INET);
$peerhost = gethostbyaddr($connection->peeraddr),AF_INET6);
$peerhost =~ s/\.$domain\.*$//;
$peerhost =~ s/-eth\d*$//;
$peerhost =~ s/-myri\d*$//;