use Exporter;
@ISA = qw(Exporter);
-%cluster = (); # this is where we store the dxcluster database
+use strict;
+
+my %cluster = (); # this is where we store the dxcluster database
+
+my %valid = (
+ mynode => '0,Parent Node',
+ call => '0,Callsign',
+ confmode => '0,Conference Mode,yesno',
+ here => '0,Here?,yesno',
+ dxchan => '5,Channel ref',
+ pcversion => '5,Node Version',
+ list => '5,User List,dolist',
+);
sub alloc
{
- my ($pkg, $call, $confmode, $here, $dxprot) = @_;
+ my ($pkg, $call, $confmode, $here, $dxchan) = @_;
die "$call is already alloced" if $cluster{$call};
my $self = {};
$self->{call} = $call;
$self->{confmode} = $confmode;
$self->{here} = $here;
- $self->{dxprot} = $dxprot;
+ $self->{dxchan} = $dxchan;
$cluster{$call} = bless $self, $pkg;
return $self;
delete $cluster{$self->{call}};
}
-%valid = (
- mynode => '0,Parent Node',
- call => '0,Callsign',
- confmode => '5,Conference Mode,yesno',
- here => '5,Here?,yesno',
- dxprot => '5,Channel ref',
- version => '5,Node Version',
-);
# return a prompt for a field
sub field_prompt
return $valid{$ele};
}
+sub dolist
+{
+
+}
+
+no strict;
sub AUTOLOAD
{
my $self = shift;
# USER special routines
#
-package DXUser;
+package DXNodeuser;
@ISA = qw(DXCluster);
-%users = ();
+use strict;
+my %users = ();
sub new
{
- my ($pkg, $mynode, $call, $confmode, $here, $dxprot) = @_;
- my $self = $pkg->alloc($call, $confmode, $here, $dxprot);
+ my ($pkg, $mynode, $call, $confmode, $here, $dxchan) = @_;
+ my $self = $pkg->alloc($call, $confmode, $here, $dxchan);
$self->{mynode} = $mynode;
$users{$call} = $self;
return $self;
}
-sub delete
+sub del
{
my $self = shift;
$self->delcluster(); # out of the whole cluster table
return %users + 1; # + 1 for ME (naf eh!)
}
+no strict;
+
#
# NODE special routines
#
@ISA = qw(DXCluster);
-%nodes = ();
+use strict;
+my %nodes = ();
sub new
{
- my ($pkg, $call, $confmode, $here, $version, $dxprot) = @_;
- my $self = $pkg->alloc($call, $confmode, $here, $dxprot);
- $self->{version} = $version;
+ my ($pkg, $call, $confmode, $here, $pcversion, $dxchan) = @_;
+ my $self = $pkg->alloc($call, $confmode, $here, $dxchan);
+ $self->{version} = $pcversion;
$nodes{$call} = $self;
return $self;
}
my $list;
my @out;
foreach $list (values(%nodes)) {
- push @out, $list if $list->{version};
+ push @out, $list if $list->{pcversion};
}
return @out;
}
-sub delete
+sub del
{
my $self = shift;
my $call = $self->call;
- DXUser->delete($call); # delete all the users one this node
+ DXUser->delete($call); # delete all the users on this node
delete $nodes{$call};
}
{
return %nodes + 1; # + 1 for ME!
}
+
+sub dolist
+{
+
+}
1;
__END__