请求跟踪器“脚本”如何在 RT4 的新 IP 地址自定义字段中插入多个 IP 地址？

Question

RT4 允许新的 CustomField 包含经过验证的 ipv4 或 ipv6 地址，并且还允许多个值。这允许我拥有一个“IP 地址”自定义字段，其中包含多个票证地址。

我似乎无法获得一个scrip 可以接受来自电子邮件的多个地址（或任何correspond 事件），只能接受一个地址。

我使用的scrip 是一个自定义操作，如下所示：

my $Ticket = $self->TicketObj;
my $Transaction = $self->TransactionObj;
my $body = $Transaction->Content();
my $cf = new RT::CustomField($RT::SystemUser);
my $id;
my $msg;
my $queue = 'Testes';

#---IPS
if($body =~ /X-addresses\:(.*)\n/i){
my $iplist = $1;
($id,$msg) = $cf->LoadByNameAndQueue (Name=>'addresses', Queue=>$queue);
($id,$msg) = $Ticket->AddCustomFieldValue (Field => $cf, Value =>$iplist);
}
return(1);

我不反对被告知我这样做是错误的；我的 RT 安装目前的做法是让 Web 表单提交请求，目前该请求将有一个 IP 地址字段，该字段由类似的scrip 拾取（除了 x-fqdn、x-contact、x-OS、以及正在收集的其他信息），我在想一个逗号分隔的混合 ipv4、ipv6 列表可以在一行中被捕获，只要 RT 的地址解析器验证它，我们就可以开展业务。

任何建议都将不胜感激，除了那些将我引导到可怕的 BestPractical wiki 的建议，我已经梳理了每一个风滚草缠身的页面，但都是空的。

Answer 1

这里的问题是您只执行一次正则表达式，并且只获得第一个匹配项。您听起来像是想循环并找到尽可能多的匹配项。为了演示我制作了一些快速的 perl 脚本（我面前没有我的 RT 安装，所以我省略了 RT 特定的东西）。

第一个和你的非常相似，抓取第一场比赛并打印出来：

~/perl/test$ cat testRegex.pl
#! /usr/bin/perl

my $body = <<END;
X-Addresses:1.2.3.4
X-Addresses:2.3.4.5
X-Addresses:10.0.0.1
some other text
another line of content
END

if($body =~ /X-addresses\:(.*)\n/i){
        my $iplist = $1;
        print $iplist, "\n";
}

这个脚本的输出是：

~/perl/test$ ./testRegex.pl
1.2.3.4

第二个演示了你要使用的语法：

~/perl/test$ cat testRegex2.pl
#! /usr/bin/perl

my $body = <<END;
X-Addresses:1.2.3.4
X-Addresses:2.3.4.5
X-Addresses:10.0.0.1
some other text
another line of content
END

while ($body =~ /X-addresses\:(.*)\n/gi){
        my $ip = $1;
        print $ip, "\n";
}

这个脚本的输出是：

~/perl/test$ ./testRegex2.pl
1.2.3.4
2.3.4.5
10.0.0.1

您可以将其传递给另一个函数或方法，例如 AddCustomFieldValue，而不是打印 $ip 变量。

解释一下：正则表达式稍作改动以使用g（或全局）开关，表示它将搜索整个字符串而不是在第一个匹配时停止 if 更改为一段时间-您可能可以通过 if 以某种方式执行此操作-我只是不知道该怎么做。如果你这样做了，你将不得不在一个变量中获取所有匹配项 - 可能是一个数组。之后，无论如何您都需要遍历数组，为每个元素运行 AddCustomFieldValue。我的 perl 不够强大，无法使用 if 来计算它，但我认为它在一段时间内更易读和更整洁。