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