Der Stammtischphilosoph

Sicher. Die wollen alle nur unser bestes. Es geht ausschließlich um Kinderpornografie, nicht später vielleicht um unerwünschte politische Meinungen. Klar. Adolf wollte die Autobahnen auch nur für flotte BMWs…

Um so besser, dass jetzt der Originalquellcode (Leyenfilter 2.0) der Internetzensur aufgetaucht ist:

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

	}
}