Cmatte: Fix deprecation warning in scrip

2025-02-27T16:41:09Z

Fix deprecation warning in scrip

← Older revision		Revision as of 12:41, 27 February 2025
Line 39:		Line 39:
	my $tickets_today = RT::Tickets->new($RT::SystemUser);		my $tickets_today = RT::Tickets->new($RT::SystemUser);
	$tickets_today->LimitCreated(OPERATOR => '>=', VALUE => $today->ISO);		$tickets_today->LimitCreated(OPERATOR => '>=', VALUE => $today->ISO);
	$tickets_today->~~Limit~~(FIELD => 'Creator', VALUE => $user);		$tickets_today->LimitField(FIELD => 'Creator', VALUE => $user);

	if ($tickets_today->Count > $limit) {		if ($tickets_today->Count > $limit) {

Cmatte: Create page

2024-09-20T16:09:04Z

Create page

New page

'''Author:''' Célestin Matte, while working for [https://spi-inc.org SPI]

The instance I’m managing has a policy of allowing anyone to create tickets. As a result, it is occasionally struck with email loops, when poorly-configured systems auto-respond to the ticket creation confirmation email.

In order to stop these email loops, I created this scrip that blocks users that create more than a certain number of tickets in a day.

This will add a comment in the last ticket indicating the block. Blocked users will be informed through “permission denied” emails.

Note: Technically, this will not stop the email loop between RT and users (you can’t prevent emails from being sent from scrips), but it will stop new tickets creation. I use this method because I’m not hosting this instance and have therefore no access to server-side settings, which would be necessary to completely break the loop.

This can also be used to block spammers.

== Scrip ==

* Description: Ticket creation rate limiting
* Condition: On Create
* Action: User Defined
* Template: Blank

Custom action preparation code:

<pre>
my $user = $self->TransactionObj->Creator;
my $limit = 30; # Maximum tickets per day

# A user that won't be affected by the rate limitation
my $excluded_user = 'someuse@domain.com';

if ($self->TicketObj->RequestorAddresses eq $excluded_user) {
return 0; # Allow the ticket creation without limits for excluded user
}

# Get today's date in a format RT can use
my $today = RT::Date->new($RT::SystemUser);
$today->Set(Format => 'unknown', Value => 'today');
$today->SetToMidnight();

# Search for tickets created by the user today
my $tickets_today = RT::Tickets->new($RT::SystemUser);
$tickets_today->LimitCreated(OPERATOR => '>=', VALUE => $today->ISO);
$tickets_today->Limit(FIELD => 'Creator', VALUE => $user);

if ($tickets_today->Count > $limit) {
$self->TicketObj->Comment(Content => "Rate limit reached for user" );
return 1; # Prevent ticket creation
}

return 0; # Allow ticket creation to proceed
</pre>

Custom action commit code:

<pre>
# Delete the ticket
# my $ticket = $self->TicketObj;
#$ticket->Delete();

my $user = $self->TicketObj->CreatorObj;

my $res = $user->SetEmailAddress("");
my $res2 = $user->SetDisabled(1);

$self->TicketObj->Comment(Content => "Email address change result: $res\nUser disabling result: $res2");

return 1;
</pre>

OnSpam - Revision history

Cmatte: Fix deprecation warning in scrip

Cmatte: Create page