blob: 33263294205486ba629f1cd1e75a901ef097c600 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/perl -w
use strict;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch);
use FS::cust_svc;
use FS::svc_acct;
&untaint_argv; #what it sounds like (eww)
my($user, $action, $groupname, $svcpart) = @ARGV;
adminsuidsetup $user;
my @svc_acct = map { $_->svc_x } qsearch('cust_svc', { svcpart => $svcpart } );
if ( lc($action) eq 'add' ) {
foreach my $svc_acct ( @svc_acct ) {
my @groups = $svc_acct->radius_groups;
next if grep { $_ eq $groupname } @groups;
push @groups, $groupname;
my %hash = $svc_acct->hash;
$hash{usergroup} = \@groups;
my $new = new FS::svc_acct \%hash;
my $error = $new->replace($svc_acct);
die $error if $error;
}
} else {
die &usage;
}
# subroutines
sub untaint_argv {
foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
$ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
$ARGV[$_]=$1;
}
}
sub usage {
die "Usage:\n\n freeside-radgroup user action groupname svcpart\n";
}
=head1 NAME
freeside-radgroup - Command line utility to manipulate radius groups
=head1 SYNOPSIS
freeside-addgroup user action groupname svcpart
=head1 DESCRIPTION
B<user> is a freeside user as added with freeside-adduser.
B<command> is the action to take. Available actions are: I<add>
B<groupname> is the group to add (or remove, etc.)
B<svcpart> specifies which accounts will be updated.
=head1 EXAMPLES
freeside-radgroup freesideuser add groupname 3
Adds I<groupname> to all accounts with service definition 3.
=head1 BUGS
=head1 SEE ALSO
L<freeside-adduser>, L<FS::svc_acct>, L<FS::part_svc>
=cut
|
