Created by The Oatmeal
Posts Tagged ‘webfundsachen’
Zombie bite
Sonntag, Juli 12th, 2009Kirche darf kein rechtsfreier Raum bleiben
Mittwoch, Juni 24th, 2009Willkür
Freitag, Juni 5th, 2009Weltenbauer
Donnerstag, Mai 14th, 2009Canned whole Chicken
Mittwoch, Mai 6th, 2009Argh, das finde selbst ich unappetitlich….
Beim Klick auf das Bild (oder diesen Link) sieht man auch was in der Dose ist. Aber ist nichts für den empfindlichen Magen – also seid gewarnt.
[via]
Schweinerei
Dienstag, April 28th, 2009Leyenfilter exposed
Donnerstag, April 23rd, 2009
#!/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]