Monat: April 2009

Allgemein

Leyenfilter

#!/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: […]


Continue Reading Leyenfilter