FS/bin/freeside-passwd

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $user = shift or die &usage;
   6 my $password = shift or die &usage;
   7
   8 use FS::UID qw(adminsuidsetup);
   9 use FS::Record qw( qsearchs );
  10 use FS::access_user;
  11
  12 adminsuidsetup $user;
  13
  14 my $access_user = qsearchs('access_user', {'username'=>$user})
  15   or die "unknown username $user\n";
  16 my $error = $access_user->change_password($password);
  17 die $error if $error;
  18
  19 1;