View source for CloseAll

= CloseAll =

Simple perl script to change all TT, but the one in state deleted, in a queue to Resolved

Take one argument "queue name"

 <nowiki>#!/usr/bin/perl -w
 
 use strict;
 use Carp;
 use Getopt::Long;
 
 use lib '/http/www/rt-3.4.5/lib';
 use lib '/http/www/rt-3.4.5/etc';
 
 use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent loc);
 CleanEnv();
 
 use RT;
 use RT::Ticket;
 use RT::Tickets;
 
 #Load RT's config file
 RT::LoadConfig();
 
 # Connect to the database. set up loggign
 RT::Init();
 
 #Get the current queue all loaded
 my $queue = shift || '--help';
 
 if ($queue eq '--help') {
 print &lt;&lt;END;
 closeall &lt;queue&gt;
 END
 exit(0);
 }
 
 my $Tickets = new RT::Tickets($RT::SystemUser);
 $Tickets-&gt;LimitWatcher(TYPE =&gt; 'Queue', VALUE =&gt; $queue);
 $Tickets-&gt;LimitStatus(VALUE =&gt; 'Deleted', OPERATOR =&gt; '!=');
 
 unless ($Tickets-&gt;Count) {
 print "tickets not found with queue $queue\n";
 }
 print "Amount of tickets in $queue is ".$Tickets-&gt;Count."\n";
 
 while (my $t=$Tickets-&gt;Next) {
 my ($val,$msg) = $t-&gt;Resolve();
 if ($val) {
 print "OK: $msg\n";
 } else {
 print "Not Ok: $msg\n";
 }
 }
 
 $RT::Handle-&gt;Disconnect();
 </nowiki>