| version 1.14, 2006/09/07 03:49:34 |
version 1.16, 2006/09/07 04:00:07 |
|
|
| 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 { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Trango.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet