diff options
author | Ivan Kohler <ivan@freeside.biz> | 2018-01-22 16:52:49 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2018-01-22 16:52:49 -0800 |
commit | cf1c4c688aa010c5995e9d255b46e61a592a47f2 (patch) | |
tree | d6550c7ceeca9e86891aeb3f1202858407420dc1 /FS/bin | |
parent | d9100e5450673da22735c22efa212d0fb32b6d30 (diff) |
set employee password CLI
Diffstat (limited to 'FS/bin')
-rwxr-xr-x | FS/bin/freeside-passwd | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/bin/freeside-passwd b/FS/bin/freeside-passwd new file mode 100755 index 000000000..dbd566e84 --- /dev/null +++ b/FS/bin/freeside-passwd @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w + +use strict; + +my $user = shift or die &usage; +my $password = shift or die &usage; + +use FS::UID qw(adminsuidsetup); +use FS::Record qw( qsearchs ); +use FS::access_user; + +adminsuidsetup $user; + +my $access_user = qsearchs('access_user', {'username'=>$user}) + or die "unknown username $user\n"; +my $error = $access_user->change_password($password); +die $error if $error; + +1; |