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

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index 46ee36d0..de24f906 100644
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -3,27 +3,23 @@
 #
 # 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);
 
 %valid = (
 		  parent => '0,Parent Calls,parray',
+		  ip => '0,IP Address',
 );
 
 $filterdef = $Route::filterdef;
@@ -49,11 +45,14 @@ sub new
 	my $call = uc shift;
 	my $ncall = uc shift;
 	my $flags = shift;
+	my $ip = shift;
+
 	confess "already have $call in $pkg" if $list{$call};
 	
 	my $self = $pkg->SUPER::new($call);
 	$self->{parent} = [ $ncall ];
 	$self->{flags} = $flags || Route::here(1);
+	$self->{ip} = $ip if defined $ip;
 	$list{$call} = $self;
 
 	return $self;
@@ -97,6 +96,8 @@ sub delparent
     return $self->_dellist('parent', @_);
 }
 
+
+
 #
 # generic AUTOLOAD for accessors
 #