Various fixes.

[usit-rt.git] / local / bin / rt-disable-ticketless

#!/usr/bin/perl

use lib '/www/data/rt/rt-perl/current-perl10/share/perl5';
use lib '/www/data/rt/rt-perl/current-perl10/lib/perl5';
use lib '/www/data/rt/rt-perl/current-perl10/lib64/perl5';

use lib ("/www/var/rt/local/lib", "/www/var/rt/lib");
use strict;
use warnings;

use RT;

RT::LoadConfig();
RT::Init();

my $priv = new RT::Group($RT::SystemUser);
$priv->LoadSystemInternalGroup('Privileged');

# This is a more efficient way to do my $users = new RT::Users($SystemUser);while (my $user = $users->next) {...}
my $Handle = $RT::Handle->SimpleQuery("SELECT DISTINCT main.id FROM Users main JOIN Principals Principals_1 ON ( Principals_1.id = main.id ) WHERE (Principals_1.Disabled = '0') AND (LOWER(Principals_1.PrincipalType) = 'user') ORDER BY main.id");

while (my @r = $Handle->fetchrow) {
my $id = $r[0];
next if $priv->HasMember($id);
next if ($id==10); # Nobody has a bunch of tickets.
# This is really slow but after the first run it will be smooth sailing.
my @result = $RT::Handle->FetchResult("SELECT DISTINCT main.* FROM Tickets main JOIN Groups Groups_1 ON ( Groups_1.Domain = 'RT::Ticket-Role' ) AND ( Groups_1.Instance = main.id ) JOIN CachedGroupMembers CachedGroupMembers_2 ON ( CachedGroupMembers_2.GroupId = Groups_1.id ) JOIN Users Users_3 ON ( Users_3.id = CachedGroupMembers_2.MemberId ) WHERE (CachedGroupMembers_2.Disabled = '0') AND ( ( Users_3.id = $id ) ) AND (main.Type = 'ticket') AND (main.EffectiveId = main.id) LIMIT 1");
unless (@result) {
my $User = new RT::User($RT::SystemUser);
	$User->Load($id);
	print "$id - ".$User->Name." - ";
	print $User->SetDisabled(1)."\n";
	
}

}