#! /bin/sh

DIR_AD=/usr/local/squid/etc/ad

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; }'