#!/usr/bin/perl #$fil="/home/guestbook/index.htm"; $fil="perl-tests/forside.htm"; #$skrivere="/home/guestbook/skrivere.txt"; $skrivere="perl-tests/skrivere.txt"; 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; $value =~ s///g; $value =~ s/<([^>]|\n)*>//g; $FORM{$name} = $value; } $billednr=$FORM{'billednr'}; open (FIL,"$fil") || die "can't open $fil: $!\n"; @linier=; close(FIL); $size=@linier; open (FIL2,">$fil") || die "kan ikke skrive $fil: $!\n"; for ($i=0;$i<=$size-1;$i++) { $_=$linier[$i];if (//) { print FIL2 "
  • $FORM{'besked'} ($FORM{'sender'})


  • \n"; print FIL2 "\n"; } else { print FIL2 $_; } } close (FIL2); open (SKRIVERE, "$skrivere") || die "can't open $skrivere: $!\n"; @skriverlinier = ; close(SKRIVERE); $skriversize=@skriverlinier; open (SKRIVERE2,">$skrivere") || die "kan ikke skrive $skrivere: $!\n"; for ($i=0;$i<=$skriversize-1;$i++) {$_ = $skriverlinier[$i]; if (//) { print SKRIVERE2 "Nick/navn: $FORM{'sender'}\n$FORM{'email'}\nskrev: $FORM{'besked'}\ntil: $FORM{'billednr'}\n"; print SKRIVERE2 "---------------------------------------\n"; print SKRIVERE2 "\n"; } else { print SKRIVERE2 $_; } } close(SKRIVERE2); print "Location: $ENV{'HTTP_REFERER'}\n\n";