5 my $user = shift or die &usage;
6 my $password = shift or die &usage;
8 use FS::UID qw(adminsuidsetup);
9 use FS::Record qw( qsearchs );
14 my $access_user = qsearchs('access_user', {'username'=>$user})
15 or die "unknown username $user\n";
16 my $error = $access_user->change_password($password);