1 files changed, 0 insertions, 76 deletions
diff --git a/FS/bin/freeside-radgroup b/FS/bin/freeside-radgroup
deleted file mode 100644
index ed85626..0000000
--- a/FS/bin/freeside-radgroup
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/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
-