4 # show all excluded users
6 # Copyright (c) 2000 Dirk Koopman G1TLH
11 my ($self, $line) = @_;
12 return (1, $self->msg('e5')) unless $self->priv >= 1;
18 @out = $self->spawn_cmd(sub {
22 my ($action, $count, $key, $data) = (0,0,0,0);
24 for ($action = DXUser::R_FIRST, $count=0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
25 if ($data =~ m{isolate}) {
26 my $u = DXUser::get_current($key);
27 if ($u && $u->isolate) {
35 foreach my $call (@val) {
37 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
43 push @l, "" while @l < 5;
44 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
47 push @out, , $self->msg('rec', $count);