On 26 June 2013 09:59, Landon <[email protected]> wrote:
> …snip...
> while (my $message = $attachments->Next) {
> next unless $message->ContentType =~
> m!^(text/html|text/plain|message|text$)!i;
> my $content = $message->Content;
> my @lines = split(/\n/,$content);
> foreach my $line (@lines) {
> if ($line =~ /($RE{net}{IPv4}|$RE{net}{IPv6})/g) {
> $CF_Obj->AddValueForObject( Object => $self->TicketObj, Content =>
> "TEST" )
> unless grep($1,@inserted); # *** See note
> push(@inserted,$ipaddr);
> }
> }
> }
>
>
Oh short note… The code actually says:
push(@inserted,$1);
--
Landon Stewart <[email protected]>
