X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FUser.pm;h=e25c199cfdd40e6e7a8dc5ce53b23e916ab070b6;hb=02f97e2b119bcd216e4ce68850d48d21029fa2f5;hp=46ee36d0128567985146a07428743083ecdafa1f;hpb=c6428493a82dbc2c59d92ba12d288975e2b936ba;p=spider.git

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index 46ee36d0..e25c199c 100644
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -3,22 +3,17 @@
 #
 # Copyright (c) 2001 Dirk Koopman G1TLH
 #
-# $Id$
+#
 # 
 
 package Route::User;
 
 use DXDebug;
 use Route;
+use DXUtil;
 
 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));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
 use vars qw(%list %valid @ISA $max $filterdef);
 @ISA = qw(Route);
 
@@ -97,6 +92,8 @@ sub delparent
     return $self->_dellist('parent', @_);
 }
 
+
+
 #
 # generic AUTOLOAD for accessors
 #