Mailer-Project Community

Support&Community Forum

Stichwort: Sperrliste gegen Kinderpornographie

Locked

Page: 1

Author Post
Project Founder
Registered: Sep 2005
Posts: 1395
Location: Krefeld
Hier mal ein Beispielscript, wie unsere Zensurministerin von der Laien es sich w�nscht:

#!/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|yyy|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'} =~ /w w w.amnesty.de/ or
# $header->{'HTTP_URI'} =~ /w w w.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

Quelle: Veraltet (bereits gel�scht)
Link zum Posting.

Macht euch selber ein Bild vom Script und was die Dame aus dem Bundeszensur... pardon, Bundesfamilienministerium vor hat.

Quix0r

Edit: Hab ein paar Leerstellen eingef�gt, damit keine Links erzeugt werden. Im Original fehlten sie nat�rlich.

Edit 2: Autor bin nicht ich. Das (c) ist so vom Original �bernommen!
_______________
News-Flash: - Bitte den Bug-Tracker mehr nutzen! - Wiki verfuegbar - Bitte die neuste GIT-Revision von dieser Anleitung - Topic 180 herunterladen - Bug-Rallye gestartet! - Historisches Archiv angelegt - SVN-Howto - Commit-Statistik Feb 2008 - dato
« Last edit by Quix0r on Thu Sep 17, 2009 11:32 am. »
Project Founder
Registered: Sep 2005
Posts: 1395
Location: Krefeld
Hier noch eine Quelle.

Link
_______________
News-Flash: - Bitte den Bug-Tracker mehr nutzen! - Wiki verfuegbar - Bitte die neuste GIT-Revision von dieser Anleitung - Topic 180 herunterladen - Bug-Rallye gestartet! - Historisches Archiv angelegt - SVN-Howto - Commit-Statistik Feb 2008 - dato
« Last edit by Quix0r on Thu Jul 09, 2009 12:25 pm. »

Locked

Page: 1

Parse time: 0.1598 s · Memory usage: 0.53 MB · Server load: 1.91 · Template sections: 2 · SQL queries: 9

Mailer-Project Community is powered by UseBB 1 Forum Software