Adding comment on "On Create"?


I’m trying to modify “On Create Autoreply To Requestors” scrip to
detect invalid email addresses and disable autoreply for those
tickets (we have bunch of web-forms -> buggy addresses).

What I have now is basically something like this (I also check that
the queue is where I want to have autoreply):

if ($self->TransactionObj->Type ne ‘Create’) {
return 0;

Extract requestor address

my $requestor = lc($self->TicketObj->RequestorAddresses);

Empty requestor

if (! defined($requestor)) {
return 1;

my $addrok = 0;
eval {
use Email::Valid;
$addrok = Email::Valid->address(
-address => $requestor,
-mxcheck => 1,
-tldcheck => 1,
-fqdn => 1 );


Eval failed … what to do ?

if ($@) {
return 1;
if (!$addrok) {
$RT::Logger->info(“No autoreply (invalid address) for ticket #”. $self->TicketObj->id ." in queue ‘". $self->TicketObj->QueueObj->Name . "’");
return 0;
return 1;

This seems to work OK, but I’d like to know if it’s possible to add a
comment (“Possibly invalid email, please check”) to the ticket
(and not send an autoreply).

Sorry if this has been answered before, but I haven’t found a solution


Jarno Huuskonen