cgi mail

prøv evt at sætte følgende ind i dit script:

use CGI::Carp qw(fatalsToBrowser);

så får du (måske) lidt mere sigende fejl ud på skærmen ... kan du forresten køre scriptet fra kommandolinen ?

prøv evt at skrive

use CGI;
use Net::SMTP;

# DISSE VARIABLER ER KUN MED FOR NEMHEDSSKYLD, DU KAN FINT SKRIVE
# INFORMATIONERNE I FUNKTIONSKALDENE
$mydomain="larsliin.dk";
$myaccount="lars";
$myname="LarsLiin, kontakt";
$myrecipientname="Lars";
$myrecipient = 'lars@larsliin.dk';

my $q = new CGI();
print $q->header;
print $q->start_html('test');

#$smtp = Net::SMTP->new("mail.$mydomain",
#        Hello => "www.$mydomain",
$smtp = Net::SMTP->new("192.168.100.2",
        Hello => "www.$mydomain",
        Timeout => 30,
        Debug=>1);                # opret en forbindelse til serveren
print "smtp = $smtp";
$smtp->mail( "$myaccount/@$mydomain" );    # hvem er afsenderen (e-mail adresse)
$smtp->to($myrecipient);            # modtagerens e-mail adresse
$smtp->data();                    # Start the mail

# SEND HEADER INFO
$smtp->datasend("To: \"$myrecipientname\" <$myrecipient>\n");
$smtp->datasend("From: \"$myname\" <$myaccount\@$mydomain>\n");
$smtp->datasend("\n");#tom linie der indikerer at der ikke er flere headers
# SEND BODY






# HENT ALLE FELTER/DATA I QUERY'EN (LOOPER)
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;
}

# UDSKRIV TIL EMAIL
$smtp->datasend("Email via hjemmeside, larsliin.dk:\n\n");
$smtp->datasend("Fra: $FORM{'navn'}\n");
$smtp->datasend("Emne: $FORM{'emne'}\n");
$smtp->datasend("Bemærkning:\n$FORM{'comments'}\n\n");
$smtp->datasend("Afsenders mailadresse: $FORM{'email'}\n");
$smtp->dataend(); # Finish sending the mail
$smtp->quit;# Close the SMTP connection


# REDIRECT TIL TAKSIDE
print "Location: http://www.larsliin.dk/mail/tak.htm\n\n";
exit;

hmm .. intet virker!

mit gæt er at din mailserver ikke vil lade dig sende mails og derfor bliver $mail udefineret; kan du evt noget i mail-serverens logfiler ?

hvad sker der hvis du prøver at køre programmet fra kommandolinien ?

prøv evt med

$smtp = Net::SMTP->new("192.168.100.2",
        Hello => "www.$mydomain",
        Timeout => 30,
        Debug=>1);

Indsatte den ekstra linie uden held.
Kommer iøvrigt ii tanke om, at serveradmin har rodet rundt med serveren, hvilket jeg fandt ud af, da jeg ikke kunne modtage/sende mails via mit domæne. Fik rettet min mailoptions i outlook, men fandt aldrig ud af problemet med min mailform/cgi-script på mit site (hvilket jeg prøver nu). Det kan måske have noget med dét at gøre?!

Lige et rigtigt dumt spørgsmål: ved ikke lige hvordan jeg 'kører programmet fra kommandolinien'? Arbejder ikke med cgi til dagligt ..

det lyder meget sandsynligt at det har noget med det at gøre.

med at køre det fra kommandolinien mener jeg bare at køre programmet fra windows (enten at dobbelt klikke på det eller starte det fra Activestate Perl - eller hvad du nu bruger)

hm! Taler lige med server-administratoren. Han må kunne svarer mig på mit spørgsmål. Vender lige tilbage senere ..