>I øvrigt er det svært at hjælpe når vi ikke kan se scriptet.
Her er kilden så :). Men den skulle være ok, det er ik mig der har
skrevet den :) , det virker uden problemer på andre hjemmesider.
#!/usr/bin/perl
#######################################
# FormMail.cgi #
# Copyright Ricki Runge for Script.dk #
# script@script.dk -
www.script.dk #
#######################################
$mailprog = '/usr/sbin/sendmail';
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@Datain = split(/&/, $buffer);
$nr=0;
foreach (@Datain) {
@Datain[$nr] =~ s/\+/ /g;
@Datain[$nr] =~ s/%(..)/pack("c",hex($1))/ge;
($name, $value) = split(/=/, @Datain[$nr], 2);
if (lc($name) eq "mail_til") {
$email = $value;
$Special = 1;
}
if (lc($name) eq "mail_emne") {
$emne = $value;
$Special = 1;
}
if (lc($name) eq "ok_html") {
$ok_html = $value;
$Special = 1;
}
# if (lc($name) eq "fejl_html") {
# $fejl_html = $value;
# $Special = 1;
# }
if ($Special == 0) {
push@Dataud, @Datain[$nr];
}
$nr ++;
$Special = 0;
}
open(MAIL,"|$mailprog -t");
print MAIL "To: $email\n";
print MAIL "From: Formmail.cgi\n";
print MAIL "Subject: $emne\n\n";
foreach $pair (@Dataud) {
($name, $value) = split(/=/, $pair, 2);
print MAIL "$name : $value\n";
}
close (MAIL);
print "Location: $ok_html\n\n";
Selvom jeg henviser til cgi scriptet på en anden server, så modtager
jeg stadigvæk fejlen