use MLDBM qw(DB_File);
use Fcntl;
+use Carp;
+
+use strict;
+use vars qw(%u $dbm $filename %valid);
%u = undef;
$dbm = undef;
lockout => '9,Locked out?,yesno', # won't let them in at all
dxok => '9,DX Spots?,yesno', # accept his dx spots?
annok => '9,Announces?,yesno', # accept his announces?
- reg => '0,Registered?,yesno', # is this user registered?
+ reg => '0,Registered?,yesno', # is this user registered?
+ lang => '0,Language',
);
+no strict;
sub AUTOLOAD
{
my $self = shift;
return if $name =~ /::DESTROY$/;
$name =~ s/.*:://o;
- die "Non-existant field '$AUTOLOAD'" if !$valid{$name};
+ confess "Non-existant field '$AUTOLOAD'" if !$valid{$name};
if (@_) {
$self->{$name} = shift;
$self->put();
my ($pkg, $fn) = @_;
die "need a filename in User" if !$fn;
- $dbm = tie %u, MLDBM, $fn, O_CREAT|O_RDWR, 0666 or die "can't open user file: $fn ($!)";
+ $dbm = tie (%u, MLDBM, $fn, O_CREAT|O_RDWR, 0666) or die "can't open user file: $fn ($!)";
$filename = $fn;
}
+use strict;
+
#
# close the system
#
sub get
{
- my ($pkg, $call) = @_;
+ my $pkg = shift;
+ my $call = uc shift;
+ $call =~ s/-\d+//o; # strip ssid
return $u{$call};
}
+#
+# get all callsigns in the database
+#
+
+sub get_all_calls
+{
+ return keys %u;
+}
+
#
# get an existing either from the channel (if there is one) or from the database
#
sub get_current
{
- my ($pkg, $call) = @_;
+ my $pkg = shift;
+ my $call = uc shift;
+ $call =~ s/-\d+//o; # strip ssid
+
my $dxchan = DXChannel->get($call);
return $dxchan->user if $dxchan;
return $u{$call};