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
