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

Use xCAT::Utils::toIP() instead of local function

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1070 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-04-15 18:51:35 +00:00
parent 76ff5ead41
commit 1f3cf42124
1 changed files with 16 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
perl-xCAT-2.0/xCAT/PPC.pm
View File

@ -361,6 +361,7 @@ sub resolve_netwk {
my %nethash = xCAT::DBobjUtils->getNetwkInfo( $noderange );
my $tab = xCAT::Table->new( 'mac' );
my %result = ();
my $ip;
#####################################
# Network attributes undefined
@ -392,11 +393,13 @@ sub resolve_netwk {
send_msg( $request, 1, $msg );
next;
}
my $gateway_ip = toIP( $gateway );
if ( !defined( $gateway_ip ) ) {
$ip = xCAT::Utils::toIP( $gateway );
if ( @$ip[0] != 0 ) {
send_msg( $request, 1, "$_: Cannot resolve '$gateway'" );
next;
}
my $gateway_ip = @$ip[1];
#################################
# Get server (-S)
#################################
@ -405,19 +408,23 @@ sub resolve_netwk {
send_msg( $request, 1, "$_: Unable to identify master" );
next;
}
my $server_ip = toIP( $server );
if ( !defined( $server_ip ) ) {
$ip = toIP( $server );
if ( @$ip[0] != 0 ) {
send_msg( $request, 1, "$_: Cannot resolve '$server'" );
next;
}
my $server_ip = @$ip[1];
#################################
# Get client (-C)
#################################
my $client_ip = toIP( $_ );
if ( !defined( $client_ip ) ) {
$ip = toIP( $_ );
if ( @$ip[0] != 0 ) {
send_msg( $request, 1, "$_: Cannot resolve '$_'" );
next;
}
my $client_ip = @$ip[1];
#################################
# Get mac-address (-m)
#################################
@ -439,33 +446,6 @@ sub resolve_netwk {
}
##########################################################################
# Converts the specified hostname to an IP address
##########################################################################
sub toIP {
################################
# Already in IP format
################################
if ( $_[0] !~ /[a-zA-Z]/g ) {
return( $_[0] );
}
################################
# Convert to IP format
################################
my $raw_addr = (gethostbyname($_[0]))[4];
if ( !$raw_addr or $! ) {
return undef;
}
my @octets = unpack( "C4", $raw_addr );
my $ip = join( ".", @octets );
return( $ip );
}
##########################################################################
# Finds attributes for given node is various databases
##########################################################################
@ -667,12 +647,12 @@ sub invoke_cmd {
my @exp;
my $verbose_log;
my @outhash;
########################################
# Direct-attached FSP handler
########################################
if ( $hwtype eq "fsp" ) {
####################################
# Dynamically load FSP module
####################################
@ -836,7 +816,6 @@ sub process_request {
# Get hwtype
####################################
$package =~ s/xCAT_plugin:://;
####################################
# Prompt for usage if needed
@ -855,15 +834,12 @@ sub process_request {
$req = {};
return;
}
if (!$noderange) {
$usage_string=xCAT::Usage->getUsage($command);
$callback->({data=>$usage_string});
$req = {};
return;
}
####################################
# Build hash to pass around
####################################
@ -914,3 +890,4 @@ sub process_request {