Leyenfilter exposed

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/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 oder Lobbys noch nicht gezahlt, 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');	
 
	}
 }

Ich bezweifle, zwar, dass (Zens)Ursula so ein Stück Code hinkriegen würde – ist keine ihrer Kernkompetenzen – aber passt halt gerade.. 😉

[via]

Print Friendly

Tags: , , , , ,

One Response to “Leyenfilter exposed”

  1. Rainer says:

    http://ftp.bka.de gibts nicht – dafür aber andere 😉
    http://rainer.sokoll.com/?p=276

Leave a Reply