4 use vars qw($opt_s $opt_g $opt_n);
8 my $FREESIDE_CONF = "%%%FREESIDE_CONF%%%";
11 my $user = shift or die &usage;
14 use FS::UID qw(adminsuidsetup);
17 use FS::access_usergroup;
19 $FS::CurrentUser::upgrade_hack = 1;
20 #adminsuidsetup $rootuser;
23 my $access_user = new FS::access_user {
25 'first' => 'Firstname', # $opt_f ||
26 'last' => 'Lastname', # $opt_l ||
28 $access_user->change_password_fields($password) if length($password);
29 my $au_error = $access_user->insert;
30 die $au_error if $au_error;
34 my $access_usergroup = new FS::access_usergroup {
35 'usernum' => $access_user->usernum,
38 my $aug_error = $access_usergroup->insert;
39 die $aug_error if $aug_error;
46 die "Usage:\n\n freeside-adduser [ -g groupnum ] username [ password ]"
51 freeside-adduser - Command line interface to add (freeside) users.
55 freeside-adduser [ -g groupnum ] username [ password ]
59 Adds a user to the Freeside billing system. This is for adding users (internal
60 sales/tech folks) to the web interface, not for adding customer accounts.
62 This functionality is now available in the web interface as well, under
63 B<Configuration | Employees | View/Edit employees>.
69 Base Freeside documentation