+if ($call[0] eq 'ALL') {
+ 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{sort => '[ACRSX]'}) {
+ push @call, $key;
+ ++$count;
+ }
+ }
+} elsif (@call == 0) {
+ @call = map {$_->call} DXChannel::get_all_nodes();