annok => '9,Announces?,yesno', # accept his announces?
reg => '0,Registered?,yesno', # is this user registered?
lang => '0,Language',
+ hmsgno => '0,Highest Msgno',
);
no strict;
{
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 ($!)";
+ confess "need a filename in User" if !$fn;
+ $dbm = tie (%u, MLDBM, $fn, O_CREAT|O_RDWR, 0666) or confess "can't open user file: $fn ($!)";
$filename = $fn;
}
sub new
{
- my ($pkg, $call) = @_;
- die "can't create existing call $call in User\n!" if $u{$call};
+ my $pkg = shift;
+ my $call = uc shift;
+ $call =~ s/-\d+//o;
+
+ confess "can't create existing call $call in User\n!" if $u{$call};
my $self = {};
$self->{call} = $call;
{
my $pkg = shift;
my $call = uc shift;
- $call =~ s/-\d+//o; # strip ssid
+ $call =~ s/-\d+$//o; # strip ssid
return $u{$call};
}
{
my $pkg = shift;
my $call = uc shift;
- $call =~ s/-\d+//o; # strip ssid
+ $call =~ s/-\d+$//o; # strip ssid
my $dxchan = DXChannel->get($call);
return $dxchan->user if $dxchan;