#!/usr/bin/perl -w
#
# Adzapper to RE for Mozilla AdBlock (plus).
#
# Ludovic Drolez. Public domain.
#

open FH, "/usr/bin/adzapper";
print "[Adblock]\n";
while(<FH>) {
    /([^ ]+) (.*)/;
    if ($1 eq "AD" || $1 eq "ADSWF") {
	$_ = $2;
	s/\./\\./g;
	s/\*\*?/.*/g;
	s/\//\\\//g;
	s/\?([^)]+$)/\\\?$1/;
	print "/$_/\n";
	#my $test = "http://st.msn.com/as/wea3/i/fr/saw/28.gif";
	#if ($test =~ /$_/) {
	#    print "!! $_ \n";
	#}
    }
}
close FH;
