X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FUser.pm;fp=perl%2FRoute%2FUser.pm;h=274b26fee0e45fde0ed1a82a7fec8e931964bb18;hb=fdc49835d7dc5573453567bd41e52c5e580ad8e7;hp=0000000000000000000000000000000000000000;hpb=015e51891a2052454449c99fde521a36efdad9e2;p=spider.git

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
new file mode 100644
index 00000000..274b26fe
--- /dev/null
+++ b/perl/Route/User.pm
@@ -0,0 +1,57 @@
+#
+# User routing routines
+#
+# Copyright (c) 2001 Dirk Koopman G1TLH
+#
+# $Id$
+# 
+
+package Route::User;
+
+use DXDebug;
+use Route;
+
+use strict;
+
+use vars qw(%list %valid @ISA);
+@ISA = qw(Route);
+
+%valid = (
+		  node => '0,Node Calls,parray',
+);
+
+%list = ();
+
+sub new
+{
+	my $pkg = shift;
+	my $call = uc shift;
+	confess "already have $call in $pkg" if $list{$call};
+	
+	my $self = $pkg->SUPER::new($call);
+	$self->{node} = [ ];
+	$list{$call} = $self;
+	
+	return $self;
+}
+
+sub get
+{
+	my $call = shift;
+	$call = shift if ref $call;
+	return $list{uc $call};
+}
+
+sub addnode
+{
+	my $self = shift;
+    $self->_addlist('node', @_);
+}
+
+sub delnode
+{
+	my $self = shift;
+    $self->_dellist('node', @_);
+}
+
+1;