4 # show all excluded users
6 # Copyright (c) 2000 Dirk Koopman G1TLH
15 my ($self, $line) = @_;
16 return (1, $self->msg('e5')) unless $self->priv >= 1;
20 if ($self->{_nospawn}) {
21 return (1, generate($self));
23 return (1, $self->spawn_cmd("show/isolate $line", sub { return (generate($self)); }));
34 my ($action, $count, $key, $data) = (0,0,0,0);
36 for ($action = DXUser::R_FIRST, $count=0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) {
37 if ($data =~ m{isolate}) {
38 my $u = DXUser::get_current($key);
39 if ($u && $u->isolate) {
47 foreach my $call (@val) {
49 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
55 push @l, "" while @l < 5;
56 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
59 push @out, , $self->msg('rec', $count);