redirector

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