#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
my $count;
# search thru the user for nodes
-if ($call[0] eq 'ALL') {
+if (@call == 0) {
+ @call = map {$_->call} DXChannel::get_all_nodes();
+} elsif ($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) {
push @call, $key;
++$count;
}
- }
-} elsif (@call == 0) {
- @call = map {$_->call} DXChannel::get_all_nodes();
+ }
}
my $call;