/usr/share/request-tracker4/etc/upgrade/shrink-transactions-table is in request-tracker4 4.4.2-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | #!/usr/bin/perl
# BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
#
# This software is Copyright (c) 1996-2017 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
#
#
# LICENSE:
#
# This work is made available to you under the terms of Version 2 of
# the GNU General Public License. A copy of that license should have
# been provided with this software, but in any event can be snarfed
# from www.gnu.org.
#
# This work is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301 or visit their web page on the internet at
# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
#
#
# CONTRIBUTION SUBMISSION POLICY:
#
# (The following paragraph is not intended to limit the rights granted
# to you to modify and distribute this software under the terms of
# the GNU General Public License and is only of importance to you if
# you choose to contribute your changes and enhancements to the
# community by submitting them to Best Practical Solutions, LLC.)
#
# By intentionally submitting any modifications, corrections or
# derivatives to this work, or any other work intended for use with
# Request Tracker, to Best Practical Solutions, LLC, you confirm that
# you are the copyright holder for those contributions and you grant
# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
# royalty-free, perpetual, license to use, copy, create derivative
# works based on those contributions, and sublicense and distribute
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
use 5.10.1;
use strict;
use warnings;
use lib "/usr/local/share/request-tracker4/lib";
use lib "/usr/share/request-tracker4/lib";
use RT::Interface::CLI qw(Init);
Init();
use RT::Transactions;
my $txns = RT::Transactions->new( RT->SystemUser );
$txns->Limit(
FIELD => 'ObjectType',
OPERATOR => '=',
VALUE => 'RT::Group',
QUOTEVALUE => 1,
ENTRYAGGREGATOR => 'AND',
);
my $alias = $txns->Join(
TYPE => 'LEFT',
FIELD1 => 'ObjectId',
TABLE2 => 'Groups',
FIELD2 => 'Id',
);
$txns->Limit(
ALIAS => $alias,
FIELD => 'Domain',
OPERATOR => '=',
VALUE => 'ACLEquivalence',
CASESENSITIVE => 0,
QUOTEVALUE => 1,
ENTRYAGGREGATOR => 'AND',
);
$txns->Limit(
ALIAS => $alias,
FIELD => 'Name',
OPERATOR => '=',
VALUE => 'UserEquiv',
QUOTEVALUE => 1,
CASESENSITIVE => 0,
ENTRYAGGREGATOR => 'AND',
);
my $total = $txns->Count;
my $i = 0;
FetchNext( $txns, 'init' );
while ( my $rec = FetchNext( $txns ) ) {
$i++;
printf("\r%0.2f %%", 100 * $i / $total);
$RT::Handle->BeginTransaction;
my ($status) = $rec->Delete;
unless ($status) {
$RT::Logger->error( "Couldn't delete TXN #". $rec->id );
exit 1;
}
$RT::Handle->Commit;
}
use constant PAGE_SIZE => 10000;
sub FetchNext {
my ($objs, $init) = @_;
if ( $init ) {
$objs->RowsPerPage( PAGE_SIZE );
$objs->FirstPage;
return;
}
my $obj = $objs->Next;
return $obj if $obj;
$objs->RedoSearch;
$objs->FirstPage;
return $objs->Next;
}
|