X-Git-Url: https://git.jankratochvil.net/?p=redirector-ad.git;a=blobdiff_plain;f=redirector;h=1d7718b0d0d1fb653e6da70d38b24f09eb16b89e;hp=74d3b58bb92dde3229a3a8aa0f5f5412ae161206;hb=a1632dacd7cd7b054d732f468e1a58eaff23a767;hpb=208a48f174f69ee32cc57bed777a9a6378db564d

diff --git a/redirector b/redirector
index 74d3b58..1d7718b 100755
--- a/redirector
+++ b/redirector
@@ -5,6 +5,8 @@
 use strict;
 use warnings;
 
+use re 'eval';
+
 use constant DIR_AD => "/usr/local/squid/etc/ad";
 
 
@@ -16,7 +18,9 @@ while (<M4>) {
 	chomp;
 	next if !$_;
 	$patt.="|" if $patt;
-	$patt.=$_;
+	$patt.=$_."(?{ '";
+	s/'/'."'".'/g;
+	$patt.="$_'; })";
 	}
 close M4;
 
@@ -24,6 +28,6 @@ select STDOUT;
 $|=1;
 
 while (<>) {
-	s@^http://($patt).*\n$@http://localhost/cgi-bin/redirector-ad.cgi?$1\n@os;
+	s@^http://($patt).*\n$@http://localhost/cgi-bin/redirector-ad.cgi?$^R\n@os;
 	print;
 	}