version 1.14, 2006/09/07 03:49:34 |
version 1.15, 2006/09/07 03:59:03 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
# $RedRiver: Trango.pm,v 1.13 2006/09/07 02:39:36 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.14 2006/09/07 02:49:34 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
loc => $loc, |
loc => $loc, |
tm => $tm, |
tm => $tm, |
suid => $suid, |
suid => $suid, |
cur_tm => \$current_tm, |
|
}; |
}; |
} elsif ($line =~ /(\d+)\s+entries/) { |
} elsif ($line =~ /(\d+)\s+entries/) { |
$total_entries = $1; |
$total_entries = $1; |
|
|
$current_tm = $1 |
$current_tm = $1 |
} |
} |
} |
} |
|
|
|
map { $_->{'cur_tm'} = $current_tm } @decoded; |
|
|
if (scalar @decoded == $total_entries) { |
if (scalar @decoded == $total_entries) { |
return \@decoded; |
return \@decoded; |
} else { |
} else { |