Ruslan, Michael:
I have the scrip working fine, and wanted to share my information with the
mailing list (see below). I also want to say thank you to both of you for your
efforts in pointing me in the right direction!
$RT::Logger->debug(“begin Script 175”);
my $AttachObj = $self->TransactionObj->Attachments->First;
my $content = $AttachObj->Content;
$RT::Logger->debug(“Just before if statement Script 175”);
if( $content =~ m/^Set-Start(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$/m ) {
$RT::Logger->debug(“Within if statement of Script 175”);
$self->TicketObj->SetStarts( “$1” );
}
$RT::Logger->debug(“Just after if statement Script 175”);
$RT::Logger->debug(“Just before clean line Script 175”);
strip special commands from email content
$content =~ s/^Set-Start(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$//gm;
$RT::Logger->debug(“Just after clean line Script 175”);
$RT::Logger->debug(“Just before replace content Script 175”);
silently overwrite attachment content
$AttachObj->__Set( Field => ‘Content’, Value => $content );
$RT::Logger->debug(“Just after replace content Script 175”);
$RT::Logger->debug(“end Script 175”);
return 1;
Explanation:
-
the key is in the regular expression
m/^Set-Start(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$/m
-
m/ /m simply defines the search string
-
^Set-Start identifies the beginning of line to search for
-
\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2}
identifies the actual date format to search for -
the ()'s around the date format tell Perl that if it finds a match
then to save this matching string into variable $1 -
$self->TicketObj->SetStarts( “$1” ) sets the start date to the match
Perl found above and placed into varuable $1 -
$content = ~s/^Set-Start(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$//gm;
This line substitutes a blank (signified by the // near the end of the line)
for the matching regular expression. The /s at the beginning tells Perl
to substitute and not just to search. -
I found the following web site helpful, and many thanks to the author(s).
http://www.sstcommunications.com/docs/catalog/perlre.html -
I also found the book “Learning Perl” by R. L. Schwartz and T. Phoenix to
be extermely useful as well. ( also thanks to the authors) -
The debugging statements may be taken out when the scrip is complete.
-
There is one final hurdle to clear here, however. That is, RT’s internal
clock is set to GMT, so you must migrate your dates to GMT before inserting
them into the database. I do this outside of , via a PHP
function/subroutine.
Good luck!
Ennis McCaffrey
Time Warner Cable
Digital Network Engineer
1001 West Kennedy Avenue
PO Box 145
Kimberly, WI 54136
(920) 831-9220 Office
(920) 378-0416 Cell