#!/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('uschi:apfel1@ftp.bka.de');

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('www.bka.de');

} }

psst....