X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-adduser;h=6b4becb5fde045a2ff4229e2bfa0ee75c9bf7141;hp=6bfb759f808f11e035887e4c9a89868421f4496f;hb=1f1190b8fb6d06852dbd16c6a288f9acd9cc83dd;hpb=3d0a1bb06b895c5be6e3f0517d355442a6b1e125

diff --git a/FS/bin/freeside-adduser b/FS/bin/freeside-adduser
old mode 100644
new mode 100755
index 6bfb759f8..6b4becb5f
--- a/FS/bin/freeside-adduser
+++ b/FS/bin/freeside-adduser
@@ -9,6 +9,7 @@ my $FREESIDE_CONF = "%%%FREESIDE_CONF%%%";
 
 getopts("g:");
 my $user = shift or die &usage;
+my $password = shift;
 
 use FS::UID qw(adminsuidsetup);
 use FS::CurrentUser;
@@ -21,10 +22,10 @@ adminsuidsetup $user;
 
 my $access_user = new FS::access_user {
   'username'  => $user,
-  '_password' => '',
   'first'     => 'Firstname', # $opt_f || 
   'last'      => 'Lastname',  # $opt_l || 
 };
+$access_user->change_password_fields($password) if length($password);
 my $au_error = $access_user->insert;
 die $au_error if $au_error;