$t //= 0;
if ($ref->is_user) {
- if ($ref->{priv} == 0 && $main::systime > $t + $tooold) {
+ if (!$ref->{priv} && $main::systime > $t + $tooold) {
unless (($ref->{lat} && $ref->{long}) || $ref->{qth} || $ref->{name} || $ref->{qra}) {
LogDbg('DXCommand', sprintf("$ref->{call} deleted, empty and too Old at %s", difft($t, ' ')));
++$del;
dbg(carp("Export Error2: delete '$key' => '$val' $@")) if $@;
next;
}
- if ($ref->{lockout} == 1 && $ref->{priv} == 1) {
+ if (exists $ref->{lockout} && $ref->{lockout} == 1 && exists $ref->{priv} && $ref->{priv} == 1) {
LogDbg('DXCommand', "$ref->{call} depriv'd and unlocked");
$ref->{lockout} = $ref->{priv} = 0;
$ref->put;
sub registered
{
my $self = shift;
+ my $val;
+ if (defined $_[0]) {
+ $val = unpad($_[0]);
+ $self->{registered} = $val;
+ }
if (exists $self->{registered}) {
- return $self->{registered} || 0;
+ $val = $self->{registered} // 0;
}
- return ''; # to stop undef warnings
+ return $val // 0 ; # to stop undef warnings
}
1;