ein unbekannter hat uns den Code des geplanten Filters der Laien zukommen lassen 😉

#!/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');

}
}

7 Kommentare

  1. 1
    ru3be
    23.04.2009 Antworten

    zu geil 🙂
    wenn nur nicht der hintergrund so traurig wäre…

  2. 2
    Volkszertreter? » Links 2009-04-23
    23.04.2009 Antworten

    […] Piratenpartei Berlin – Laienfilterung: Sourcecode des Filters geleaked […]

  3. 3
    Ray
    23.04.2009 Antworten

    lol.. genau so stell ich mir das vor 😉

  4. 4
    blariog.net
    24.04.2009 Antworten

    Netzsperren: Leyenfilter 2.0 “geleakt”…

    Hier ist die aktuellste Version des Netzfilters der Ursula von der Leyen als Perl-Script zu finden.
    via Piratenpartei Berlin
    ……

  5. 5
    loki
    24.04.2009 Antworten

    Hm? 404er…

  6. 6
    seven
    28.04.2009 Antworten

    Mann, seid ihr Nerds. Ist bestimmt total witzig, aber mit sowas könnt ihr niemanden erreichen, der jetzt vielleicht noch denkt „Wieso, Kinderpornos sperren klingt doch gut…“

    Aber nicht, dass wir uns falsch verstehen: Unterstützungsformular ist unterwegs.

    AARRRR!
    seven.

Was denkst du?