===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/08/31 22:29:53	1.12
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/09/07 03:39:36	1.13
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.11 2006/08/23 00:37:20 andrew Exp $
+# $RedRiver: Trango.pm,v 1.12 2006/08/31 21:29:53 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -967,6 +967,7 @@
 	my @lines = @_;
 	my @decoded;
 	my $total_entries = 0;
+	my $current_tm = 0;
 	foreach my $line (@lines) {
 		$line =~ s/\r?\n$//;
 		my ($mac, $loc, $tm) = $line =~ /
@@ -992,9 +993,12 @@
 				loc  => $loc,
 				tm   => $tm,
 				suid => $suid,
+				cur_tm => \$current_tm,
 			};
 		} elsif ($line =~ /(\d+)\s+entries/) {
 			$total_entries = $1;
+		} elsif ($line =~ /current tm = (\d+)\s+sec/) {
+			$current_tm = $1
 		}
 	}
 	if (scalar @decoded == $total_entries) {