Hej Jesper
oki.. der er en masse Print i det script... men kig det lige... ved ikke om dem der er der har betydning..
#!/usr/bin/perl
print "Content-Location:\n\n";
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/\n/ /g;
$FORM{$name} = $value;
}
open(OUTF,">>checklist.dat") or dienice("Couldn't open userlist.dat for writing: $!");
print OUTF
"$FORM{'user'}|$FORM{'mail'}|$FORM{'kode'}";
%boxes = ("des" => "Website Design",
"svr" => "Web Server Administration",
"com" => "Electronic Commerce",
"mkt" => "Web Marketing/Advertising",
"edu" => "Web-related Education" );
foreach $key (keys %boxes) {
if ($FORM{$key} == 1) {
print OUTF "$key,";
}
}
print OUTF "|$FORM{'comments'}\n";
close(OUTF);
#print <<EndHTML;
#<html><head><title>Tak</title></head>
#<body>
#<h2>Tak for dit samarbejde</h2>
#din konto vil forblive aktiv i 30 dage mere.<p>
#<a href="
www.sted.dk">Gå til startsiden</a><p>
#</body></html>
#EndHTML
#print "
http://www.sted.dk\n\n";$url = "
http://www.sted.dk/"; print "Location: $url\n\n";
exit;
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}
