sort => '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
xpert => '0,Expert Status,yesno',
bbs => '0,Home BBS',
- node => '0,Home Node',
+ node => '0,Last Node',
+ homenode => '0,Home Node',
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?
{
my $pkg = shift;
my $call = uc shift;
- $call =~ s/-\d+//o;
+# $call =~ s/-\d+$//o;
confess "can't create existing call $call in User\n!" if $u{$call};
$self->{sort} = 'U';
$self->{dxok} = 1;
$self->{annok} = 1;
+ $self->{lang} = $main::lang;
bless $self, $pkg;
$u{call} = $self;
}
{
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;