Hi,
we installed the RT-Extension-RepeatTicket (1) which create recurring tickets - looks fine (-:
Is there a way to create a search-query to find all the enabled recurring tickets?
The docu (2) said only
To help you find this initial ticket, which may have been resolved long
ago, a custom field is created on each ticket
in the recurrence with link called “Original Ticket.”
In the code (3), I found an object
$ticket->Attributes->Named(‘RepeatTicketSettings’);
which has a member
$args{‘repeat-enabled’}
telling me about the state.
I’m interesting in all enabled recurring tickets which will be able to create new childs by running bin/rt-repeat-ticket.
Is there a query or a 5-line-perl-code showing me this information
regards
Danny
(1) RT-Extension-RepeatTicket-1.00 - Repeat tickets based on schedule - metacpan.org
(2) http://cpansearch.perl.org/src/ALEXMV/RT-Extension-RepeatTicket-1.00/README
(3) http://cpansearch.perl.org/src/ALEXMV/RT-Extension-RepeatTicket-1.00/lib/RT/Extension/RepeatTicket.pm
smime.p7s (2.23 KB)
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 (2.23 KB)