X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;fp=perl%2FRoute.pm;h=695eed8dffa05aea3e627b4a31c793060d6000f0;hb=8c23f70c2487e906a80ef323763cb7cb123baf28;hp=b6671154186afb71a943be119a739c16cf71c4eb;hpb=eb631a639a657f071f4711f6f4f5c585ab6364c6;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index b6671154..695eed8d 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -16,14 +16,16 @@ package Route;
 
 use DXDebug;
 use DXChannel;
+use DXUtil;
+
 use Prefix;
 
 use strict;
 
 
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /:\s+(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /:\s+\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 
@@ -66,7 +68,7 @@ sub new
 	$pkg = ref $pkg if ref $pkg;
 
 	my $self = bless {call => $call}, $pkg;
-	dbg("create $pkg with $call") if isdbg('routelow');
+	dbg("Create $pkg with $call") if isdbg('routelow');
 
 	# add in all the dxcc, itu, zone info
 	($self->{dxcc}, $self->{itu}, $self->{cq}, $self->{state}, $self->{city}) =
@@ -204,7 +206,8 @@ sub dec_pc59
 	} elsif ($sort eq 'U') {
 		$node = Route::User::get($call) || Route::User->new($call);
 	}
-	$node->flags = $here;
+	$node->{flags} = $here;
+	$node->{lastseen} = $main::systime;
 	return $node;
 }