
<HTML>

<HEAD>

<TITLE>Scrip to add watchers from mail body</TITLE>

</HEAD>

<BODY>

<FONT SIZE="4"><FONT FACE="Calibri, Verdana, Helvetica, Arial"><SPAN STYLE='font-size:11pt'>Hi list,<BR>

<BR>

I’m trying to create a scip that will add several watchers from a mail body on ticket creation. It works alright for the first line but can’t get it to add several watchers. I’ve followed <a href="http://wiki.bestpractical.com/view/SetTicketPropertiesViaMail">http://wiki.bestpractical.com/view/SetTicketPropertiesViaMail</a> but I’m not too confident with perl to get it work.<BR>

<BR>

<BR>

My message body looks like this:<BR>

<BR>

Set-CC:john.doe@mycompany.com<BR>

Set-CC:marcus.whatever@mycompany.com<BR>

Set-CC:brian.surname@mycompany.com<BR>

<BR>

<BR>

And my scrip looks like:<BR>

<BR>

my $AttachObj = $self->TransactionObj->Attachments->First;<BR>

# go out if content is not text!<BR>

unless( $AttachObj->ContentType =~ /^text/ ) {<BR>

     return 1;<BR>

}<BR>

<BR>

my $content = $AttachObj->Content;<BR>

if( $content =~ m/^\QSet-CC:\E\s*(\S+)\s*$/m ) {<BR>

      $self->TicketObj->AddWatcher( Type => "Cc", Email => $1);<BR>

}<BR>

<BR>

# strip special commands from email content<BR>

$content =~ s/^\QSet-CC:\E\s*(\S+)\s*$//gm;<BR>

<BR>

# silently overwrite attachment content<BR>

$AttachObj->__Set( Field => 'Content', Value => $content );<BR>

1;<BR>

<BR>

I guess I should make the scrip go through each line but don’t know how?<BR>

<BR>

Thank in advance<BR>

Johan</SPAN></FONT></FONT>

###########################################<br><br>This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.<br>For more information, connect to http://www.f-secure.com/</BODY>

</HTML>