6 use FS::UID qw(adminsuidsetup);
7 use FS::Record qw(qsearch);
12 use FS::access_groupagent;
15 my $user = shift or die &usage; #just for adminsuidsetup
16 my $group = shift or die &usage;
18 $FS::CurrentUser::upgrade_hack = 1;
19 #adminsuidsetup $rootuser;
22 my $access_group = new FS::access_group { 'groupname' => $group };
23 my $error = $access_group->insert;
27 foreach my $rightname ( FS::AccessRight->default_superuser_rights ) {
28 my $access_right = new FS::access_right {
29 'righttype' => 'FS::access_group',
30 'rightobjnum' => $access_group->groupnum,
31 'rightname' => $rightname,
33 my $ar_error = $access_right->insert;
34 die $ar_error if $ar_error;
37 foreach my $agent ( qsearch('agent', {} ) ) {
38 my $access_groupagent = new FS::access_groupagent {
39 'groupnum' => $access_group->groupnum,
40 'agentnum' => $agent->agentnum,
42 my $aga_error = $access_groupagent->insert;
43 die $aga_error if $aga_error;
48 die "Usage:\n\n freeside-addgroup [ -s ] username groupname"