Hi all, > Is there a way to create a search-query to find all the enabled recurring > tickets?
after investigating the original rt-repeat-ticket perl script, I "developed" my
own list implementation (1).
best regards
Danny
(1) rt-repeat-ticket
#!/opt/perl-5.18.4/bin/perl
use strict;
use warnings;
BEGIN {
use lib qw(/opt/rt4/local/lib /opt/rt4/lib);
use RT;
RT::LoadConfig;
RT::Init;
}
use RT::Attributes;
use RT::Ticket;
use RT::User;
__PACKAGE__->run(@ARGV) unless caller;
sub run{
my $attrs = RT::Attributes->new( RT->SystemUser );
$attrs->Limit( FIELD => 'Name', VALUE => 'RepeatTicketSettings' );
my $ticket = RT::Ticket->new( RT->SystemUser );
while ( my $attr = $attrs->Next ) {
next unless $attr->Content->{'repeat-enabled'};
next unless $attr->Content->{'repeat-type'};
next unless $attr->ObjectType eq "RT::Ticket";
if (!defined $ticket->Load($attr->ObjectId)) {
$RT::Logger->error("Can't load ticket ". $attr->ObjectId);
next;
}
print '#' . $attr->ObjectId . ' ' . $ticket->Subject
. ' (' . $ticket->OwnerObj->FriendlyName . '): '
. $attr->Content->{'repeat-type'} . "\n";
}
return;
}
1;
__END__
smime.p7s
Description: S/MIME cryptographic signature
