Maybe I'm just not getting it then.
my $shredder; = new RTx::Shredder(RT::SystemUser);
if ($ans =~ m/^(y|yes)$/i){
my $email;
foreach $email (@emails) {
$shredder-PutObject( Object = $email );
}
$shredder-WipeoutAll;
}
Yields
Odd number of
On 1/10/07, Mathew Snyder [EMAIL PROTECTED] wrote:
Maybe I'm just not getting it then.
my $shredder; = new RTx::Shredder;
if ($ans =~ m/^(y|yes)$/i){
my $email;
foreach $email (@emails) {
my $user = RT::User-new( $RT::SystemUser );
Ruslan Zakirov wrote:
On 12/30/06, Mathew Snyder [EMAIL PROTECTED] wrote:
I'm rewriting a script that will eliminate all spam users accrued over
the
course of a day. Presently, it is using the least efficient way of
executing
the wipeout by performing a system call to rtx-shredder. I would
Ruslan Zakirov wrote:
On 12/30/06, Mathew Snyder [EMAIL PROTECTED] wrote:
I'm rewriting a script that will eliminate all spam users accrued over
the
course of a day. Presently, it is using the least efficient way of
executing
the wipeout by performing a system call to rtx-shredder. I would
Mathew Snyder wrote:
I'm rewriting a script that will eliminate all spam users accrued over the
course of a day. Presently, it is using the least efficient way of executing
the wipeout by performing a system call to rtx-shredder. I would prefer to
run
the wipeout by way of the Shredder
I'm rewriting a script that will eliminate all spam users accrued over the
course of a day. Presently, it is using the least efficient way of executing
the wipeout by performing a system call to rtx-shredder. I would prefer to run
the wipeout by way of the Shredder API. I'm guessing along the