Skip to content

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

karl-tux-stadt.de am : PingBack

Vorschau anzeigen

www.aptgetupdate.de am : PingBack

Vorschau anzeigen

www.aptgetupdate.de am : PingBack

Vorschau anzeigen

netztaucher.com am : PingBack

Vorschau anzeigen

netztaucher.com am : PingBack

Vorschau anzeigen

schnuffelbabe.de am : Leyenfilter 2.0

Vorschau anzeigen
Grad entdeckt..und für gut befunden..

karl-tux-stadt.de am : PingBack

Vorschau anzeigen

22JoM06 am : 22JoM06 via Twitter

Vorschau anzeigen
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!

rootbox am : rootbox via Twitter

Vorschau anzeigen
Leyenfilter: http://www.deimeke.net/dirk/blog/index.php?/archives/1657-Leyenfilter-2.0-....html

Apfelchips am : Apfelchips via Twitter

Vorschau anzeigen
Leyenfilter 2.0 — Achtung, Nerd-Humor! http://tinyurl.com/c787fz

netztaucher.com am : PingBack

Vorschau anzeigen

Kommentare

Ansicht der Kommentare: Linear | Verschachtelt

Noch keine Kommentare

Kommentar schreiben

Gravatar, Favatar, Pavatar, Identica, Twitter, MyBlogLog Autoren-Bilder werden unterstützt.
BBCode-Formatierung erlaubt
Umschließende Sterne heben ein Wort hervor (*wort*), per _wort_ kann ein Wort unterstrichen werden.
Standard-Text Smilies wie :-) und ;-) werden zu Bildern konvertiert.
Die angegebene E-Mail-Adresse wird nicht dargestellt, sondern nur für eventuelle Benachrichtigungen verwendet.
:'(  :-)  :-|  :-O  :-(  8-)  :-D  :-P  ;-) 
Formular-Optionen