work around missing id, RT#83146

[freeside.git] / FS / bin / freeside-adduser

diff --git a/FS/bin/freeside-adduser b/FS/bin/freeside-adduser
old mode 100644 (file)
new mode 100755 (executable)
index 6bfb759..6b4becb
--- 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;