3 # quick'n'dirty hack of fs-setup to add radius attributes
7 use FS::UID qw(adminsuidsetup checkeuid getsecrets);
8 die "Not running uid freeside!" unless checkeuid();
10 my $user = shift or die &usage;
13 my $dbh = adminsuidsetup $user;
17 print "\n\n", <<END, ":";
18 Enter the additional RADIUS check attributes you need to track for
19 each user, separated by whitespace.
21 my @attributes = map { s/\-/_/g; $_; } split(" ",&getvalue);
24 my($x)=scalar(<STDIN>);
31 my($char_d) = 80; #default maxlength for text fields
35 foreach my $attribute ( @attributes ) {
36 foreach my $statement (
37 "ALTER TABLE svc_acct ADD rc_$attribute varchar($char_d) NULL",
38 "ALTER TABLE part_svc ADD svc_acct__rc_$attribute varchar($char_d) NULL;",
39 "ALTER TABLE part_svc ADD svc_acct__rc_${attribute}_flag char(1) NULL;",
41 $dbh->do( $statement ) or warn "Error executing $statement: ". $dbh->errstr; }
44 $dbh->disconnect or die $dbh->errstr;
46 print "\n\n", "Now you must run dbdef-create.\n\n";
49 die "Usage:\n fs-radius-add user\n";