Upgrade to 4.2.8
[usit-rt.git] / local / bin / rt-move-nomail
1 #!/usr/bin/perl
2
3 use lib '/www/data/rt/perl/share/perl5';
4 use lib '/www/data/rt/perl/lib/perl5';
5 use lib '/www/data/rt/perl/lib64/perl5';
6
7 use lib ("/www/var/rt/local/lib", "/www/var/rt/lib");
8 use warnings;
9 use strict;
10
11 package RT;
12 use RT;
13
14 RT::LoadConfig();
15 RT::Init();
16
17 #my $sql = "queue = 'aaa-rt-test' AND Created > '2009-06-01'";
18 my $sql = "queue = 'generl'";
19 my $to_queue = "request-tracker";
20 my $do_it = 0;
21
22 my $tickets = new RT::Tickets($RT::SystemUser);
23 my $queue = RT::Queue->new($RT::SystemUser);
24 $queue->Load($to_queue);
25 $tickets->FromSQL($sql);
26 while (my $ticket = $tickets->Next) {
27 print "Moving ticket \"".$ticket->Subject."\" (".$ticket->id.") to ".$queue->Name()." (".$queue->id().") " if $ticket->id;
28 my ($status, $msg) = ("0","Not moving.");
29 ($status, $msg) = $ticket->__Set( Field => 'Queue', Value => $queue->id()) if ($do_it && $ticket->id);
30 print  "Status: $status - $msg\n";
31 }