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

Fixed typo errors in annotatelog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2582 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
wanghuaz 2009-01-08 14:37:23 +00:00
parent 11befcd181
commit f613dfa614
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
xCAT-server/share/xcat/ib/scripts/annotatelog
View File

@ -68,7 +68,7 @@
# 1 - fail
###########################################################################
use strict;
use Net::Config;
use Getopt::Long;
use Time::Local;
@ -247,7 +247,6 @@ sub getArgs()
}
#-------------------------------------------------------------------------------
-
=head3 isIpaddr
@ -271,7 +270,6 @@ sub getArgs()
=cut
#-------------------------------------------------------------------------------
-
sub isIpaddr
{
my ($class, $addr) = @_;
@ -293,10 +291,8 @@ sub isIpaddr
}
#-------------------------------------------------------------------------------
-
#-------------------------------------------------------------------------------
-
=head3 getHost
@ -317,7 +313,6 @@ sub isIpaddr
=cut
#-------------------------------------------------------------------------------
-
sub getHost
{
@ -329,13 +324,14 @@ sub getHost
{
$ipaddr = $arg;
my $packedaddr = inet_aton($ipaddr);
$hostname = gethostbyaddr($packedaddr, AF_INET);
$hostname = gethostbyaddr($packedaddr,AF_INET);
if (!$hostname)
{
$hostname = $ipaddr;
}
#print "hostname=$hostname\n";
}
else # they specified a hostname
{
$hostname = $arg; # this may be a short hostname
@ -349,7 +345,6 @@ sub getHost
$name; # they may have specified a shorter or non-primary name
#print "ipaddr=$ipaddr, hostname=$hostname\n";
}
if $ipaddr =~ /127\.0\.0/;
return ($hostname, $ipaddr);
}