X-Git-Url: https://git.jankratochvil.net/?p=redirector-ad.git;a=blobdiff_plain;f=redirector;h=1d7718b0d0d1fb653e6da70d38b24f09eb16b89e;hp=fd8920cdf4ece863ffd508eba3aecae342d6ae85;hb=a1632dacd7cd7b054d732f468e1a58eaff23a767;hpb=082ee6d79964c95554b8ac0f0d145f451d0c5ca3

diff --git a/redirector b/redirector
index fd8920c..1d7718b 100755
--- a/redirector
+++ b/redirector
@@ -1,9 +1,33 @@
-#! /bin/sh
+#! /usr/bin/perl
 #
 # $Id$
 
-DIR_AD=/usr/local/squid/etc/ad
+use strict;
+use warnings;
 
-exec /usr/bin/perl -e '$|=1; while (<>) {
-'"`	(cd "$DIR_AD";m4 -P main)|awk '/./{print "s@^http://"$0".*$@http://localhost/cgi-bin/redirector-ad.cgi?"$0"@;"}' `"'
-print; }'
+use re 'eval';
+
+use constant DIR_AD => "/usr/local/squid/etc/ad";
+
+
+chdir DIR_AD or die "chdir ".DIR_AD.": $!";
+
+my($patt)="";
+open(M4,"-|","m4 -P main") or die "m4 run: $!";
+while (<M4>) {
+	chomp;
+	next if !$_;
+	$patt.="|" if $patt;
+	$patt.=$_."(?{ '";
+	s/'/'."'".'/g;
+	$patt.="$_'; })";
+	}
+close M4;
+
+select STDOUT;
+$|=1;
+
+while (<>) {
+	s@^http://($patt).*\n$@http://localhost/cgi-bin/redirector-ad.cgi?$^R\n@os;
+	print;
+	}