From 23eb3b596db2065d197e691d7b7dbc101bc2d972 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Wed, 5 Apr 2006 02:34:19 +0000
Subject: [PATCH] remove root_ip()

---
 Info/Layer3/AlteonAD.pm | 24 ++----------------------
 1 file changed, 2 insertions(+), 22 deletions(-)

diff --git a/Info/Layer3/AlteonAD.pm b/Info/Layer3/AlteonAD.pm
index 994d4961..fc34cfc0 100644
--- a/Info/Layer3/AlteonAD.pm
+++ b/Info/Layer3/AlteonAD.pm
@@ -249,21 +249,6 @@ sub bp_index {
     return \%bp_index;
 }
 
-sub root_ip {
-    my $alteon = shift;
-    my $ip_table = $alteon->ip_table();
-
-    # Return First IP Address    
-    foreach my $entry (keys %$ip_table){
-        my $router_ip = $ip_table->{$entry};
-        print " SNMP::Layer3::AlteonAD::root_ip() using $router_ip\n" if $alteon->debug();
-        next unless $router_ip;
-        return $router_ip if ($router_ip ne '0.0.0.0');
-    }
-    return undef;
-}
-
-
 1;
 __END__
 
@@ -350,21 +335,16 @@ Returns the model extracted from B<sysDescr>
 
 =item $alteon->vendor()
 
-Returns 'Nortel'
+Returns 'nortel'
 
 =item $alteon->os()
 
-Returns 'WebOS'
+Returns 'webos'
 
 =item $alteon->os_ver()
 
 Returns the software version reported by B<agSoftwareVersion>
 
-=item $alteon->root_ip()
-
-Returns the primary IP used to communicate with the device.  Currently returns
-the first interfaces IP.
-
 =item $alteon->tftp_action()
 
 (B<agTftpAction>)