%# GET 'http://rt.openfoundry.org/REST/0.0/NoAuth/has_member?Queue=General&User=autrijus'
OK
<%INIT>
$m->print("OK\n") and return if $User eq 'root';

$Type =~ /^(?:Admin)?Cc$/ or $m->abort;

my $queue = RT::Queue->new($RT::SystemUser);
$queue->Load($Queue);
$m->abort if $queue->__Value('Disabled');
if (!$queue->Id) {
    my $queues = RT::Queues->new($RT::SystemUser);
    $queues->UnLimit;
    while (my $object = $queues->Next) {
	next unless $object->OriginObj->CustomFieldValue('UnixName') eq $Queue;
	$queue = $object;
	last;
    }
    $m->abort unless $queue->Id;
}

my $user = RT::User->new($RT::SystemUser);
$user->Load($User) or $m->abort;

$m->abort unless $queue->AdminCc->HasMember($user->PrincipalObj)
	      or $queue->Cc->HasMember($user->PrincipalObj);
</%INIT>
<%ARGS>
$Queue => ''
$User => ''
$Type => 'AdminCc';
</%ARGS>
