cmd/set/maxconnect.pl

   1 #
   2 # set the maximum no of connections this user/node can have
   3 # whilst connecting to this node
   4 #
   5 # Copyright (c) 2008 - Dirk Koopman G1TLH
   6 #
   7
   8 my ($self, $line) = @_;
   9 my @args = split /\s+/, $line;
  10 my $call;
  11 my @out;
  12 my $user;
  13 my $val = shift @args if @args;
  14
  15
  16 return (1, $self->msg('e5')) if $self->priv < 8;
  17 return (1, $self->msg('e14')) unless defined $val;
  18 return (1, $self->msg('e12')) unless @args;
  19
  20 foreach $call (@args) {
  21         $call = uc $call;
  22         $user = DXUser::get_current($call);
  23         if ($user) {
  24                 $user->maxconnect($val);
  25                 $user->put;
  26                 push @out, $self->msg('maxconnect', $call, $val);
  27         } else {
  28                 push @out, $self->msg('e3', "set/maxconnect", $call);
  29         }
  30 }
  31 return (1, @out);