From 0aa31123d529d7d07801d7bc5cf19074bd8a6dd9 Mon Sep 17 00:00:00 2001 From: ligc Date: Fri, 7 May 2010 02:53:44 +0000 Subject: [PATCH] call NetworkUtils.pm subroutines instead of Utils.pm subroutines git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6013 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/NetworkUtils.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm index 34c61eee2..7fdc2a68e 100755 --- a/perl-xCAT/xCAT/NetworkUtils.pm +++ b/perl-xCAT/xCAT/NetworkUtils.pm @@ -55,7 +55,7 @@ This program module file, is a set of network utilities used by xCAT commands. Error: none Example: - my ($ip, $host) = xCAT::Utils->gethostnameandip($iporhost); + my ($ip, $host) = xCAT::NetworkUtils->gethostnameandip($iporhost); Comments: none =cut @@ -67,11 +67,11 @@ sub gethostnameandip() if (($iporhost =~ /\d+\.\d+\.\d+\.\d+/) || ($iporhost =~ /:/)) #ip address { - return (xCAT::Utils->gethostname($iporhost), $iporhost); + return (xCAT::NetworkUtils->gethostname($iporhost), $iporhost); } else #hostname { - return ($iporhost, xCAT::Utils->getipaddr($iporhost)); + return ($iporhost, xCAT::NetworkUtils->getipaddr($iporhost)); } } @@ -90,7 +90,7 @@ sub gethostnameandip() Error: none Example: - my $host = xCAT::Utils->gethostname($ip); + my $host = xCAT::NetworkUtils->gethostname($ip); Comments: none =cut @@ -152,7 +152,7 @@ sub gethostname() Error: none Example: - my $ip = xCAT::Utils->getipaddr($hostname); + my $ip = xCAT::NetworkUtils->getipaddr($hostname); Comments: none =cut @@ -206,7 +206,7 @@ sub getipaddr() Error: none Example: - my $linklocaladdr = xCAT::Utils->linklocaladdr($mac); + my $linklocaladdr = xCAT::NetworkUtils->linklocaladdr($mac); Comments: none =cut @@ -263,7 +263,7 @@ sub linklocaladdr { Error: none Example: - if(xCAT::Utils->ishostinsubnet($ip, $netmask, $subnet); + if(xCAT::NetworkUtils->ishostinsubnet($ip, $netmask, $subnet); Comments: none =cut