cmd/unset/passphrase.pl

   1 #
   2 # unset a user's passphrase
   3 #
   4 # Copyright (c) 2002 Dirk Koopman G1TLH
   5 #
   6 # Syntax:       unset/passphrase <callsign> ...
   7 #
   8
   9 my ($self, $line) = @_;
  10 my @args = split /\s+/, $line;
  11 my @out;
  12 my $user;
  13 my $ref;
  14
  15 if ($self->remotecmd) {
  16         Log('DXCommand', $self->call . " attempted to unset passphrase for @args remotely");
  17         return (1, $self->msg('e5'));
  18 }
  19
  20 if ($self->priv < 9) {
  21         Log('DXCommand', $self->call . " attempted to unset passphrase for @args");
  22         return (1, $self->msg('e5'));
  23 }
  24
  25 for (@args) {
  26         my $call = uc $_;
  27         if ($ref = DXUser->get_current($call)) {
  28                 $ref->unset_passphrase;
  29                 $ref->put();
  30                 push @out, $self->msg("passphraseu", $call);
  31                 Log('DXCommand', $self->call . " unset passphrase for $call");
  32         } else {
  33                 push @out, $self->msg('e3', 'User record for', $call);
  34         }
  35 }
  36
  37 return (1, @out);