perl/Route/User.pm

   1 #
   2 # User routing routines
   3 #
   4 # Copyright (c) 2001 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 package Route::User;
  10
  11 use DXDebug;
  12 use Route;
  13
  14 use strict;
  15
  16 use vars qw(%list %valid @ISA);
  17 @ISA = qw(Route);
  18
  19 %valid = (
  20                   node => '0,Node Calls,parray',
  21 );
  22
  23 %list = ();
  24
  25 sub new
  26 {
  27         my $pkg = shift;
  28         my $call = uc shift;
  29         confess "already have $call in $pkg" if $list{$call};
  30
  31         my $self = $pkg->SUPER::new($call);
  32         $self->{node} = [ ];
  33         $list{$call} = $self;
  34
  35         return $self;
  36 }
  37
  38 sub get
  39 {
  40         my $call = shift;
  41         $call = shift if ref $call;
  42         return $list{uc $call};
  43 }
  44
  45 sub addnode
  46 {
  47         my $self = shift;
  48     $self->_addlist('node', @_);
  49 }
  50
  51 sub delnode
  52 {
  53         my $self = shift;
  54     $self->_dellist('node', @_);
  55 }
  56
  57 1;