public
Created

  • Download Gist
gistfile1.pl
Perl
1 2 3 4 5 6
#---TEST-IP-Addresses
while ($body =~ /X-IP-Addresses\:(.*)\n/gi){
my $ip = $1;
($id,$msg) = $cf->LoadByNameAndQueue (Name=>'TEST-IP-Addresses', Queue=>$queue);
($id,$msg) = $Ticket->AddCustomFieldValue (Field => $cf, Value =>$ip);
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.