cmd/show/isolate.pl

   1 #
   2 # show/isolate
   3 #
   4 # show all excluded users
   5 #
   6 # Copyright (c) 2000 Dirk Koopman G1TLH
   7 #
   8 # $Id$
   9 #
  10
  11 my ($self, $line) = @_;
  12 return (1, $self->msg('e5')) unless $self->priv >= 1;
  13
  14 # search thru the user for nodes
  15 my @out = sort map { my $ref; (($ref = DXUser->get_current($_)) && $ref->isolate) ? $_ : () } DXUser::get_all_calls;
  16 return (1, @out);