Dieser Beitrag wurde vor 15 Jahren 7 Monaten 21 Tagen veröffentlicht. Die Informationen in diesem Beitrag sind möglicherweise veraltet. Bitte benutze die Suche oder das Archiv, um nach neueren Informationen zu diesem Thema zu suchen.
#!/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');
}
}
# 3291215ca7428d66f7c5623def10fc09
[via]
Okay, ich bin echt zu doof aber bin ich wirklich der einzige welcher der das nicht versteht?!
Hätte ich dabei schreiben sollen: „Vorsicht! Satire!“? Denn nichts anderes ist das