4 # show all excluded users
6 # Copyright (c) 2000 Dirk Koopman G1TLH
13 my ($self, $line) = @_;
14 return (1, $self->msg('e5')) unless $self->priv >= 1;
18 if ($self->{_nospawn}) {
19 return (1, generate($self));
21 return (1, $self->spawn_cmd("show/isolate $line", sub { return (generate($self)); }));
32 # my ($action, $count, $key, $data) = (0,0,0,0);
34 # for ($action = DXUser::R_FIRST, $count=0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
35 # if ($data =~ m{isolate}) {
36 # my $u = DXUser::get_current($key);
37 # if ($u && $u->isolate) {
43 @val = DXUser::scan(sub {
46 # cheat, don't decode because we can easily pull it out from the json test
47 return $l =~ m{"isolate":1} ? $k : ();
52 foreach my $call (@val) {
54 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
60 push @l, "" while @l < 5;
61 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
64 push @out, , $self->msg('rec', $count);