Hi,<br>have a look onto your code:<br><br>1. Condition: <br><br><br>
==Condition==<br>
my @exceptionGroups = ('no-reply');<br>
<br>
my $principalobj = RT::Principal->new($RT::<div id=":128" class="ii gt">SystemUser);<br>
$principalobj->Load($self->TransactionObj->CreatorObj->Id);<br>
<br>
my $transactionType = $self->TransactionObj->Type;<br>
if ($transactionType eq 'Create') {<br>
    foreach (@exceptionGroups) {<br>
        my $groupobj = RT::Group->new($RT::SystemUser);<br>
        $groupobj->LoadUserDefinedGroup($_);<br>
        if ($groupobj->HasMemberRecursively($principalobj)) {<br>
            return 1;<br>
        }<br>
    }<br>
}<br>
return 0;<br>
<br>I think, if you use the default condition (OnCreate) and do the rest inside a userdefined action, this will work.<br><br>Torsten<br></div><br><br><div class="gmail_quote">2009/11/20 darthmarth37 <span dir="ltr"><<a href="mailto:darthmarth@gmail.com">darthmarth@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">I'm trying to write a scrip that removes the requestor of a new ticket<br>
if the requestor's email address is in a specific "no-reply" group in<br>
RT (for things like Nagios messages that don't need replies), and I<br>
think I'm getting confused when trying to make it work.  What I have<br>
so far (below) doesn't have any effect on new tickets.  Any ideas what<br>
I'm messing up?<br>
<br>
==Condition==<br>
my @exceptionGroups = ('no-reply');<br>
<br>
my $principalobj = RT::Principal->new($RT::SystemUser);<br>
$principalobj->Load($self->TransactionObj->CreatorObj->Id);<br>
<br>
my $transactionType = $self->TransactionObj->Type;<br>
if ($transactionType eq 'Create') {<br>
    foreach (@exceptionGroups) {<br>
        my $groupobj = RT::Group->new($RT::SystemUser);<br>
        $groupobj->LoadUserDefinedGroup($_);<br>
        if ($groupobj->HasMemberRecursively($principalobj)) {<br>
            return 1;<br>
        }<br>
    }<br>
}<br>
return 0;<br>
<br>
==Action==<br>
my $principalobj = RT::Principal->new($RT::SystemUser);<br>
$principalobj->Load($self->TransactionObj->CreatorObj->Id);<br>
<br>
my ($status, $msg) = $self->TicketObj->DeleteWatcher(Type =><br>
"Requestor", PrincipalId => $principalobj);<br>
return $status;<br>
_______________________________________________<br>
<a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users" target="_blank">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users</a><br>
<br>
Community help: <a href="http://wiki.bestpractical.com" target="_blank">http://wiki.bestpractical.com</a><br>
Commercial support: <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a><br>
<br>
<br>
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.<br>
Buy a copy at <a href="http://rtbook.bestpractical.com" target="_blank">http://rtbook.bestpractical.com</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>MFG<br><br>Torsten Brumm<br><br><a href="http://www.brumm.me">http://www.brumm.me</a><br><a href="http://www.elektrofeld.de">http://www.elektrofeld.de</a><br>