Leyenfilter 2.0 ...

via Nopaste

#!/usr/bin/perl
#
# Leyenfilter 2.0 - (c) 2009 by Ursula
#

use Ursula::Leyenfilter;

# Ursulas Liste
my %URSULA_SPERRLISTE = getSperrListe("O:/USBStick-Ursula/sperrliste.xls") or die "Uschi, du hast vergessen deinen USB-Stick einzustecken! (Das Stecker-Ding kommt in den Rechner)";

# Liste des BKA
my %BKA_SPERRLISTE = getSperrListe('ftp://uschi:apfel1@ftp.bka.de/bka_sperrliste.xls');

# Provider die nicht unterschrieben haben
my %BADISP_SPERRLISTE = ("www.einsundeins.de" => 'Grund: Kinderschaender!');

Ursula::Leyenfilter->run(\&process_packet);

sub process_packet {
my($user_data, $header, $packet) = @_;

if ($header->{'HTTP_URI'} =~ /(child|kinder).*(porn|pornografie|xxx|erotic|peepshow|nude|naked)/ or
defined($URSULA_SPERRLISTE{$header->{'HTTP_URI'}) or
defined($BKA_SPERRLISTE{$header->{'HTTP_URI'}) or
defined($BADISP_SPERRLISTE{$header->{'HTTP_URI'})

# Notiz: Gesetze noch nicht verabschiedet, kommt noch.
# $header->{'HTTP_URI'} =~ /thepiratebay.org/ or
# $header->{'HTTP_URI'} =~ /wikipedia.org/ or
# $header->{'HTTP_URI'} =~ /www.amnesty.de/ or
# $header->{'HTTP_URI'} =~ /www.wikileaks.de/ or

# Erst kurz vor den Wahlen auskommentieren
# $header->{'HTTP_URI'} =~ /spd.de/ or
# $header->{'HTTP_URI'} =~ /gruene.de/ or
)
{

$packet->redirect('http://www.bka.de/dukommsthiernichtrein.html');

}
}

Trackbacks

Trackback-URL für diesen Eintrag

PingBack

Weblog: karl-tux-stadt.de
Aufgenommen: Apr 23, 13:47

Weblog: www.aptgetupdate.de
Aufgenommen: Apr 23, 14:15

Weblog: www.aptgetupdate.de
Aufgenommen: Apr 23, 15:04

Weblog: netztaucher.com
Aufgenommen: Apr 27, 08:01

Weblog: netztaucher.com
Aufgenommen: Apr 27, 08:18

Leyenfilter 2.0
Grad entdeckt..und für gut befunden..

Weblog: schnuffelbabe.de
Aufgenommen: Apr 29, 12:51

Weblog: karl-tux-stadt.de
Aufgenommen: Apr 30, 17:21

22JoM06 via Twitter
RT @eknoes_: RT @Chilla42o: Für Leute, die etwas Perl lesen können: der Leyenfilter 2.0 http://snurl.com/h3460 #zensursula / SUPER! PLS RT!

Weblog: 22JoM06
Aufgenommen: Apr 30, 17:37

rootbox via Twitter
Leyenfilter: http://www.deimeke.net/dirk/blog/index.php?/archives/1657-Leyenfilter-2.0-....html

Weblog: rootbox
Aufgenommen: Apr 27, 09:55

Apfelchips via Twitter
Leyenfilter 2.0 — Achtung, Nerd-Humor! http://tinyurl.com/c787fz

Weblog: Apfelchips
Aufgenommen: Apr 23, 15:45

Kommentare

Ansicht der Kommentare: (Linear | Verschachtelt)

Noch keine Kommentare

Kommentar schreiben