Har skrivit ett script som ser ut så här:#!/usr/bin/perl
$info = $ENV {'QUERY_STRING'};
$info =~ tr/+/ /;
$info =~ s/%(..) / pack("c",he x($1))/ge;
@data = split (/&/, $info);
print data[0]
print data[1]
foreach $i (@data) {
($ruta, $text) = split(/=/, $i);
$info{$ruta} = $text;
}
open (GAST, ">>gast.txt");
print GAST $info('name');
print GAST $info('email');
close (gastbok);
print "Content-type:text/html\n\n";
print <<End_of_html;
<html>
<head>
<title>Tack</title>
<body bgcolor="grey">
<h2>Tack för att du fyllde i formuläret</h2>
</body>
</html>
End_of_html
exit;
och HTML-formuläret ser ut så här:
<form action="http://localhost/cgi-bin/ns.pl" method="get">
<table border=0>
<tr><td>Namn:</td><td><input type="text" name="name" size=40></td></tr>
<tr><td>E-mail:</td><td><input type="text" name="email" size=40></td></tr>
<tr><td colspan=2><input type="submit" value="Skicka"></td></tr>
Det jag vill är att det man skriver in i Namn och E-mail skall skrivas till gast.txt, men f-n (sorry) det funkar inte....
HJÄLP
------------------