Hej jag harv ett litet mailscript skrivet i perl som ser ut så här:sendmail problem
#!/bin/perl -wT
use strict;
use CGI ':standard';
my ($to, $from, $subject, $contents);
print "Content-type:text/html\n\n";
$to = param('to');
$from = param('from');
$subject = param('subject');
$contents = param('contents');
open(MAIL, "|/lib/sendmail -t") || Error ();
print MAIL "To: $to\nFrom: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "$contents\n";
close(MAIL);
print "Tack för dina kommentarer!";
sub Error {
print "Servern kan inte skickat";
exit;
}
Tyvärr fungerar det inte och jag kan inte hitta något fel.
Kan någon se om det möjligtvis smugit sig in något som inte hör hemma här.
Om sökvägen till sendmail är fel vad händer då. Kommer scriptet att fortsätta leta eller skrivs min Error sub ut?
Mvh
Kjell