#!/bin/perl @Passwords = ("Piesepampel","Lederstrumpf","Hotzenplotz"); # Passwortliste # Einfaches CGI-Script fuer Passwortabfrage # # In der ersten unless-Abfrage wird geprueft, ob die Standard-Eingabe # # das Wort 'geheim' enthaelt. Ist das nicht der Fall, wird eine HTML- # # Datei mit einem kleinen Formular zur Passworteingabe erzeugt. Beim # # Absenden des Formulars wird wieder dieses Script aufgerufen. Da aber # # nun der Name des Formularfelds fuer das Passwort 'geheim' lautet, # # kommt das Script in den else-Zweig. Dort wird geprueft, ob das # # eingegebene Wort in der Passwortliste vorkommt. # read(STDIN, $Input, $ENV{'CONTENT_LENGTH'}); # Standard-Eingabe auslesen unless($Input =~ /geheim/) # Wenn 'geheim' darin nicht vorkommt... { print "Content-type: text/html\n\n"; # HTTP-Header fuer HTML-Datei print "