/usr/bin/adzapper2konq is in adzapper 20090301.dfsg.1-0.1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | #!/usr/bin/perl -w
#
# Adzapper to RE for Konqueror AdBlocK.
#
# Ludovic Drolez. Public domain.
#
open FH, "/usr/bin/adzapper";
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;
|