From 83bdf117b1a25c954d54164ac54eb31af596a0e4 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Mon, 16 Apr 2007 19:47:39 +0000 Subject: [PATCH] parse scans from waves.pl too --- ND/Web/Pages/AddIntel.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ND/Web/Pages/AddIntel.pm b/ND/Web/Pages/AddIntel.pm index c422e01..916dc99 100644 --- a/ND/Web/Pages/AddIntel.pm +++ b/ND/Web/Pages/AddIntel.pm @@ -47,7 +47,7 @@ sub render_body { my $addpoint = $DBH->prepare('UPDATE users SET scan_points = scan_points + 1 WHERE uid = ? '); my $intel = param('intel'); my @scans; - while ($intel =~ m/http:\/\/game.planetarion.com\/showscan.pl\?scan_id=(\d+)/g){ + while ($intel =~ m/http:\/\/game.planetarion.com\/.+?scan(?:_id)?=(\d+)/g){ my %scan; $scan{Scan} = $1; $scan{Message} = "Scan $1: "; -- 2.39.2