--- loncom/lonnet/perl/lonnet.pm	2007/03/02 23:17:40	1.838
+++ loncom/lonnet/perl/lonnet.pm	2007/03/02 23:43:24	1.839
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.838 2007/03/02 23:17:40 albertel Exp $
+# $Id: lonnet.pm,v 1.839 2007/03/02 23:43:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7634,6 +7634,15 @@ BEGIN {
     }
 }
 
+sub get_hosts_from_ip {
+    my ($ip) = @_;
+    my %iphosts = &get_iphost();
+    if (ref($iphosts{$ip})) {
+	return @{$iphosts{$ip}};
+    }
+    return;
+}
+
 sub get_iphost {
     if (%iphost) { return %iphost; }
     my %name_to_ip;