#!/usr/bin/perl #BVB fan Page von Kai print" Content-type:text/html\n\n" print"BVB-FAN!\n"; Abfrage Benutzername und Passwort
Benuzername:
Passwort:


print("Content-type: text/html"); open (db, "< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html"); @eingabe = ; close (db); read (STDIN, $formdaten, $ENV{´CONTENT_LENGTH´}); @formfelder = split (/&/, $formdaten); ($x[1],$author) = split (/=/, $formfelder[0]); ($x[2],$email) = split (/=/, $formfelder[1]); ($x[3],$homepage) = split (/=/, $formfelder[2]); ($x[4],$text) = split (/=/, $formfelder[3]); $_ = "@eingabe"; s {