my ($self, $line) = @_;
return (1, $self->msg('e5')) unless $self->priv >= 1;
-return (1, $self->msg('storable')) unless $DXUser::v3;
my @call = map {uc $_} split /\s+/, $line;
my @out;
shift @call;
my ($action, $key, $data) = (0,0,0);
for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
- if ($data =~ m{\01[ACRSX]\0\0\0\04sort}) {
- push @call, $key;
- ++$count;
+ if (iscallsign($key)) {
+ if ($data =~ /"sort":"[ACRSX]"/) {
+ push @call, $key;
+ }
}
}
}
my $call;
foreach $call (sort @call) {
my $clref = Route::Node::get($call);
- my $uref = DXUser->get_current($call);
+ my $uref = DXUser::get_current($call);
my ($sort, $ver, $build);
my $pcall = sprintf "%-11s", $call;
} else {
$ver = $clref->version if $clref && $clref->version;
$ver = $uref->version if !$ver && $uref->version;
+ $sort = "CCClus" if $ver >= 1000 && $ver < 4000 && $sort eq "Spider";
}
if ($uref->is_spider || ($clref && $clref->do_pc9x)) {