redirector

   1 #! /bin/sh
   2
   3 DIR_AD=/usr/local/squid/etc/ad
   4
   5 exec /usr/bin/perl -e '$|=1; while (<>) {
   6 '"`     (cd "$DIR_AD";m4 -P main)|awk '/./{print "s@^http://"$0".*$@http://localhost/cgi-bin/redirector-ad.cgi?"$0"@;"}' `"'
   7 print; }'