});
my @scans;
my $intel = $c->req->param('message');
- while ($intel =~ m{http://[\w.]+/.+?scan(_id|_grp)?=(\w+)}g){
+ while ($intel =~ m{https?://[\w.]+/.+?scan(_id|_grp)?=(\w+)}g){
my $groupscan = (defined $1 && $1 eq '_grp') || 0;
my %scan;
$scan{id} = $2;
my @targets = split /\s+/, $+{targets};
my @lts = split /\s+/, $+{lts};
my @etas;
- my $_ = $+{etas};
+ local $_ = $+{etas};
while(/$etare/sxg){
push @etas, $1;
}