<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On 26 June 2013 09:59, Landon <span dir="ltr"><<a href="mailto:landonstewart@gmail.com" target="_blank">landonstewart@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div dir="ltr">…snip...<br><div><div><div><div><font face="courier new, monospace">while (my $message = $attachments->Next) {</font></div>
<div><font face="courier new, monospace">  next unless $message->ContentType =~ m!^(text/html|text/plain|message|text$)!i;</font></div><div><font face="courier new, monospace">  my $content = $message->Content;</font></div>


<div><font face="courier new, monospace">  my @lines = split(/\n/,$content);</font></div><div><font face="courier new, monospace">  foreach my $line (@lines) {</font></div><div><font face="courier new, monospace">    if ($line =~ /($RE{net}{IPv4}|$RE{net}{IPv6})/g) {</font></div>


<div><font face="courier new, monospace">      $CF_Obj->AddValueForObject( Object  => $self->TicketObj, Content => "TEST" )</font></div><div><font face="courier new, monospace">          unless grep($1,@inserted);</font><span style="font-family:'courier new',monospace"> </span><span style="font-family:'courier new',monospace">   # *** See note</span></div>


<div><font face="courier new, monospace">        push(@inserted,$ipaddr);</font></div><div><font face="courier new, monospace">    }</font></div><div><font face="courier new, monospace">  }  </font></div><div><font face="courier new, monospace">}</font></div>


</div><div><br></div></div></div></div></blockquote></div><div><br></div><div>Oh short note…  The code actually says:<div><br></div><div>        push(@inserted,$1);</div></div><div><br></div>-- <br><div>Landon Stewart <LandonStewart@Gmail.com><br>

</div>
</div></div>