From ee72346de68829fbdf4e9903c5fce6e5bc8baaed Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 8 Oct 2007 21:09:43 +0200
Subject: [PATCH] ignore hostname in scan urls

---
 NDWeb/Pages/AddIntel.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NDWeb/Pages/AddIntel.pm b/NDWeb/Pages/AddIntel.pm
index 1365905..4d7ad61 100644
--- a/NDWeb/Pages/AddIntel.pm
+++ b/NDWeb/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\/.+?scan(?:_id)?=(\d+)/g){
+			while ($intel =~ m{http://[\w.]+/.+?scan(?:_id)?=(\d+)}g){
 				my %scan;
 				$scan{Scan} = $1;
 				$scan{Message} = "Scan $1: ";
-- 
2.39.2