8 my ( $self, $ip ) = @_;
10 my $telnet = new Net::Telnet (Telnetmode => 1);
11 $telnet->open(Host => $ip,Port => 23);
12 $telnet->login('support','support');
16 foreach my $line ( $telnet->cmd("adsl info --show") ) {
18 if ( $line =~ /^([^:]+):\s+(\S+)\s+(\S+)\s*$/ ) {
20 my ( $down, $up ) = ( $2,$3 );
21 $name =~ s/\s*\(.+?\)//g;
24 $rec->{"${name}_down"} = $down;
25 $rec->{"${name}_up"} = $up;
31 foreach my $line ( $telnet->cmd("ifconfig br0") ) {
33 if ($line=~/^br0.*/) {
34 my ($mac) = ($line=~/^br0.*HWaddr\s(\S+)/);