Gæstebog

Hej.

Da jeg kom til at acceptere et svar fra mit gamle indlæg, skriver jeg nu igen samme spørgsmål:

Hvorfor sætter min email.pl ikke tingene ind på email.txt?

email.pl:
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; #Efter denne linje er $FORM{\'feltnavn\'} = indtastet værdi i feltet \"feltnavn\"
    }
#gør navnet lidt nemmere at arbejde med
$email = \"$FORM{\'email\'}\" ;
open (emails,\">>D:\\\\dyrk.dk\\\\email.txt\") || die(\'Could not open file for appending\\n\\n\');
print emails \"$FORM{\'email\'}\" ;
close (emails) || die(\'Could not close file\');
print \"content-type: text/html\\n\\n\";
print \"<HTML><HEAD><TITLE>Tak for din interesse</TITLE></HEAD>\" ;
print \"<body bgcolor=\\\"#000000\\\" text=\\\"#FFFFFF\\\">\";
print \"Tak for din Interesse, du bliver nu maile\" ;
print \"</BODY>\" ;
print \"</HTML>\" ;


Jeg har skrive rettigheder for hvis jeg sætter
print emails \"davs\" ; istedet for:
print emails \"$FORM{\'email\'}\" ;

så skriver den \"davs\" i email.txt

plz help :)


tak