-foreach $call (@args) {
- $call = uc $call;
- if ($ref = DXUser->get_current($call)) {
- $ref->passwd($pass);
- $ref->put();
- push @out, $self->msg("password", $call);
- } else {
- push @out, $self->msg('e3', 'User record for', $call);
- }
+if ($ref = DXUser->get_current($call)) {
+ $line =~ s/^\s*$call\s+//;
+ $line =~ s/\s+//og; # remove any blanks
+ $line =~ s/[{}]//g; # no braces allowed
+ $ref->passwd($line);
+ $ref->put();
+ push @out, $self->msg("password", $call);
+} else {
+ push @out, $self->msg('e3', 'User record for', $call);