Changeset 85462fb for fedkit

Timestamp:

May 25, 2010 5:39:21 AM (15 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-3.01, version-3.02

Children:

479a7d9

Parents:

acaa9b9

Message:

Move get_ip into the library so others can use it. Minor other fixes to support the use of Net::hostent.

File:

• fedkit/gateway_lib.pm (modified) (3 diffs)

fedkit/gateway_lib.pm

@@ -20 +20 @@
 use File::Temp;
 use File::Copy;
+use Net::hostent;
 
 # Standard locations of these commands (FreeBSD)
@@ -77 +78 @@
     my $start = time();
     $sleep = 5 unless $sleep;
-    my @rv;
-
-    while (!@rv) {
-        @rv = gethostbyname($name);
+    my $rv;
+
+    while (!$rv) {
+        $rv = gethostbyname($name);
         die "Timeout waiting for DNS to get $name\n" 
             if ($timeout && time() - $start > $timeout);
-        sleep($sleep) unless @rv;
+        sleep($sleep) unless $rv;
     }
 }
@@ -438 +439 @@
 }
 
+sub get_ip { 
+    my($name) = @_;
+    my $gwip;
+    if ( my $hent = gethostbyname($name) ) {
+        $gwip = inet_ntoa($hent->addr_list->[0]);
+    }
+    return $gwip;
+}
+
 1;