rt 4.0.23

[freeside.git] / rt / etc / upgrade / shrink_cgm_table.pl

diff --git a/rt/etc/upgrade/shrink_cgm_table.pl b/rt/etc/upgrade/shrink_cgm_table.pl
index 0ce3d28..85aa307 100644 (file)
--- a/rt/etc/upgrade/shrink_cgm_table.pl
+++ b/rt/etc/upgrade/shrink_cgm_table.pl
@@ -1,9 +1,9 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # BEGIN BPS TAGGED BLOCK {{{
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -56,7 +56,7 @@ RT->Config->Set('LogToScreen' => 'debug');
 RT::Init();
 
 use RT::CachedGroupMembers;
-my $cgms = RT::CachedGroupMembers->new( $RT::SystemUser );
+my $cgms = RT::CachedGroupMembers->new( RT->SystemUser );
 $cgms->Limit(
     FIELD => 'id',
     OPERATOR => '!=',
@@ -106,7 +106,7 @@ while ( my $rec = FetchNext( $cgms ) ) {
     $RT::Handle->Commit;
 }
 
-use constant PAGE_SIZE => 1000;
+use constant PAGE_SIZE => 10000;
 sub FetchNext {
     my ($objs, $init) = @_;
     if ( $init ) {