[Rt-commit] rt branch, 4.0/increase-shrink-page-size, created. rt-4.0.8-216-g0541182

[Kevin Falcone]

The branch, 4.0/increase-shrink-page-size has been created
        at  05411822cfb1e1f1c2d1a049519155ac54539f31 (commit)

- Log -----------------------------------------------------------------
commit 05411822cfb1e1f1c2d1a049519155ac54539f31
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Thu Dec 6 10:46:11 2012 -0800

    Handle group Transactions and CGM rows 10,000 at a time
    
    I've been running large upgrades for a while with these bumped to 10,000
    or even sometimes 50,000.  There's a memory cost (shrink_cgm_table.pl
    seems to top out around 200M RSS) and would be higher on a 64 bit perl,
    but hopefully your RT server has at least that much RAM available.  The
    larger page size provides a pretty huge time savings (greater than 50%
    in my experience) and seems worth the memory burn.

diff --git a/etc/upgrade/shrink_cgm_table.pl b/etc/upgrade/shrink_cgm_table.pl
index cf39d04..5e14873 100644
--- a/etc/upgrade/shrink_cgm_table.pl
+++ b/etc/upgrade/shrink_cgm_table.pl
@@ -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 ) {
diff --git a/etc/upgrade/shrink_transactions_table.pl b/etc/upgrade/shrink_transactions_table.pl
index c23d091..18840cc 100644
--- a/etc/upgrade/shrink_transactions_table.pl
+++ b/etc/upgrade/shrink_transactions_table.pl
@@ -106,7 +106,7 @@ while ( my $rec = FetchNext( $txns ) ) {
     $RT::Handle->Commit;
 }
 
-use constant PAGE_SIZE => 1000;
+use constant PAGE_SIZE => 10000;
 sub FetchNext {
     my ($objs, $init) = @_;
     if ( $init ) {

-----------------------------------------------------------------------