2 # set a user's password
4 # Copyright (c) 1998 Iain Phillips G0RDI
7 # Syntax: set/pass <password> <callsign>
10 my ($self, $line) = @_;
11 my @args = split /\s+/, $line;
13 my $pass = shift @args;
18 return (1, $self->msg('e5')) if $self->priv < 9;
20 foreach $call (@args) {
22 if ($ref = DXUser->get_current($call)) {
25 push @out, $self->msg("password", $call);
27 push @out, $self->msg('e3', 'User record for', $call);