--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use vars qw( $opt_p $opt_g );
+use Getopt::Std;
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw( qsearch ); #qsearchs );
+use FS::cust_svc;
+
+my $user = shift or die &usage;
+adminsuidsetup $user;
+
+getopts('p:g:');
+
+my @svc_x = ();
+if ( $opt_p ) {
+ push @svc_x, map { $_->svc_acct } qsearch('cust_svc', { svcpart=>$opt_p } );
+ die "no services with svcpart $opt_p found\n" unless @svc_x;
+} else {
+ die &usage;
+}
+
+foreach my $svc_x ( @svc_x ) {
+ next if $opt_g && $svc_x->gid == $opt_g;
+ $svc_x->gid($opt_g) if $opt_g;
+ my $error = $svc_x->replace;
+ die $error if $error;
+}
+
+sub usage {
+ return "Usage:\n\n freeside-svc_acct-bulk_change user -p svcpart -g gid\n";
+}
+
+=head1 NAME
+
+freeside-svc_acct-bulk_change - Command line tool to make bulk changes to svc_acct (account) records
+
+=head1 SYNOPSIS
+
+ freeside-svc_acct-bulk_change user -p svcpart -g gid
+
+=head1 DESCRIPTION
+
+ For the servcies of the given svcpart, changes the GID as specified.
+
+ Note: Unless you are changing the GID to match an new, fixed value in the
+ service definition, you will need to enable the B<svc_acct-edit_gid>
+ configuration setting prior to running this script.
+
+=head1 SEE ALSO
+
+L<FS::svc_acct>
+
+=cut
+
+1;