#!/usr/bin/perl -w # $Id: squid-redirector_de.txt,v 1.1 2003/03/24 09:04:34 jfranken Exp $ # Redirector fuer squid, der Werbung herausfiltert # use strict; my $blankfile="http://localhost/blank."; # Endung wird automatisch angehaengt my $is_image="\.(gif|jpg|jpeg|png|bmp|xpm|pnm)\$"; my ($ext, $blacklist); $|=1; # no stdout buffering # Verbotene URLS als regex in $blacklist einlesen open (URLS,") { chomp; $_ && ($blacklist .= ($blacklist?"|":"").$_); } close URLS; $blacklist or die "Es sind keine Blacklist URLs definiert"; # Die von squid uebergebenen URLs umsetzen while () { chomp; $ext=lc($_); $ext=~s/^.*\.//g; # Dateiendung extrahieren $_=$blankfile . (/$is_image/i ? $ext : "html") if /$blacklist/; print "$_\n"; }