[rt-users] Problems with RTx::Shredder!

[Sven Sternberger]

Hi Ruslan!

first thanks for your help and the script. we really needed
such a tool, because our database will probably reach
2gig at the end of the year.

> Hmmm. As I see users a little bit confused with my distribution :(

You are right, it's your fault ;-)
my proposals
1.) Correct the example script 
http://search.cpan.org/~ruz/RTx-Shredder-0.01/lib/RTx/Shredder.pm
-$deleted->Limit( VALUE => 'deleted' );
+$deleted->LimitStatus( VALUE => 'deleted' );
2.) Note the installed scripts in README
3.) Note that it is >> necessary << to install the patch. (So this
was my second fault/thank you Todd). For our absolute beginners the
"patch -p0 ...." line
4.) Some hints for users of the debian distribution, because some path
are different, so I had to modify the Makefile to get the installer
work.

and a question isn't it possible to put all the affected files
in the local tree? so i don't have to touch the files of the
distribution

best regards

sven



> 
> Did you see `rtx-shredder` script? It should be installed with 
> RTx::Shredder under /path/to/rt3/local/sbin path.
> 
> RTx::Shredder currently is more API then end-user tool. For end-user 
> there is two scripts `rtx-shredder` and `rtx-validator`. Both under 
> 'local/sbin'.
> 
> I'll try to update docs to be more clear on this topic in next release.
> 
> 
>                     Best regards. Ruslan.
> 
> PS: See also comment below about your error.
> 
> Sven Sternberger wrote:
> 
>> Hello!
>>
>> I'm running RT3.0.11 on a debian sarge box. Now I installed
>> RTx::Shredder v0.01. But the "demo" programm, don't work :-(
>>
>>
>> #!/usr/bin/perl
>>
>> use lib "/usr/share/request-tracker3/lib";
>>
>> use RTx::Shredder;
>>
>> RTx::Shredder::Init();
>> my $deleted = RT::Tickets->new( $RT::SystemUser );
>> $deleted->{'allow_deleted_search'} = 1;
>> $deleted->Limit( VALUE => 'deleted' );
> 
> 
> You forgot "FIELD => 'Status'" here.
> 
> 
>> print "Start wipeout\n";
>> while( my $t = $deleted->Next ) {
>>         print ".";
>>         $t->Wipeout;
>> }
>> print "\nEnded\n";
>>