#!/usr/bin/perl $guestbook_file = "/home/ii99/user01/public_html/guestbook.htm"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } open(GUESTBOOK, "$guestbook_file") || die "Can't open GUESTBOOK: $guestbook_file\n"; @guestbook=; close(GUESTBOOK); open(GUESTBOOK, ">$guestbook_file") || die "Can't open GUESTBOOK: $guestbook_file\n"; foreach $line (@guestbook) { if($line =~ //i) { print GUESTBOOK "\n\n"; print GUESTBOOK "

$FORM{'name'} - $FORM{'text'} "; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $year=1900+$year; print GUESTBOOK "($mday. $mon. $year)\n"; } else { print GUESTBOOK "$line"; } } close(GUESTBOOK); print "Content-Type: text/html\n\n"; print "\n"; print "Vielen Dank für deinen Eintrag!\n"; print "\n";