- my $t = $ref->{lastin} || 0;
- if ($main::systime > $t + $tooold) {
- unless ($ref->{lat} && $ref->{long} || $ref->{qth} || $ref->{qra}) {
- eval {$dbm->del($key)};
- dbg(carp("Export Error2: $key\t$val\n$@")) if $@;
- Log('DXCommand', "$ref->{call} deleted, too old");
- $del++;
- next;
- }
- }
- # only store users that are reasonably active or have useful information