Hallo,
da hat doch der Pirat folgendes Bildchen verlinkt /t/ein-wirklich-boeses-bild/5145179
Leute mit PC-Kenntnissen lachen dann auch hierdrüber:
#!/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:[email protected]/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’);
}
}
