2 # Node routing routines
4 # Copyright (c) 2001 Dirk Koopman G1TLH
16 use vars qw(%list %valid @ISA $me);
20 dxchancall => '0,DXChannel Calls,parray',
21 parent => '0,Parent Calls,parray',
22 version => '0,Version',
29 $me = Route::Node->new(@_);
36 confess "already have $call in $pkg" if $list{$call};
38 my $self = $pkg->SUPER::new($call);
39 $self->{dxchancall} = [ ];
40 $self->{parent} = [ ];
41 $self->{version} = shift;
51 $call = shift if ref $call;
52 return $list{uc $call};
58 $self->_addlist('dxchancall', @_);
64 $self->_dellist('dxchancall', @_);
70 $self->_addlist('parent', @_);
76 $self->_dellist('parent', @_);