Hejsa,
Her er to filer. formmail.html og sendmail.pl
Hvis du laver de to filer med dette indhold skulle det virke.
Du skal måske bare ændre $mailprog hvis sendmail ikke ligger samme sted.
#################### formmail.html #########################
<html>
<body>
<FORM name=formmail ACTION="sendmail.pl" METHOD=POST>
<INPUT type=hidden name="ok_html" value="index.html">
<table border=0 CELLPADDING=0 CELLSPACING=0>
<tr><td class=regtext>Deres navn</td><td><INPUT name="mail_fra_navn" size=30></td></tr>
<tr><td class=regtext>Deres email</td><td><INPUT name="mail_fra_email" size=30></td></tr>
<tr><td class=regtext>Deres hjemmeside </td><td><INPUT value="
http://" name="mail_fra_hjemmeside" size=30></td></tr>
<tr><td class=regtext>Emne</td><td><INPUT name="mail_emne" size=30></td></tr>
<tr><td valign=top class=regtext>Besked </td><td><textarea name="mail_besked" cols="35" rows="7" wrap="virtual"></textarea></td></tr>
<tr><td align=center class=regtext></td><td><INPUT type="submit" value="Send"></td></tr>
</table>
</form>
</body>
</html>
#################### sendmail.pl #########################
#!/usr/bin/perl -w
use strict;
use CGI ;
use DBI;
my $query = new CGI;
my @inf;
$inf[0] = `hostname`;
$inf[1] = $ENV{REMOTE_ADDR};
$inf[2] = $ENV{SERVER_SOFTWARE};
$inf[3] = $ENV{HTTP_USER_AGENT};
$inf[4] = $ENV{HTTP_REFERER};
my $mailprog = '/usr/sbin/sendmail';
my $mail_to = 'info@mtf-group.com';
my $from = '"Kontakt mig" <ret@mig.nu>'
my $ok_html = $query->param('ok_html');
my $mail_from_name = $query->param('mail_fra_navn');
my $mail_from_email = $query->param('mail_fra_email');
my $mail_from_homepage = $query->param('mail_fra_hjemmeside');
my $mail_subject = $query->param('mail_emne');
my $mail_body = $query->param('mail_besked');
open(MAIL,"|$mailprog -t");
print MAIL "To: $mail_to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $mail_subject\n\n";
print MAIL "----------------------------------------------------------------------------------\n";
print MAIL "This mail have been sendt from a formail. Do NOT reply this mail.\n";
print MAIL "----------------------------------------------------------------------------------\n\n";
print MAIL "$mail_body\n";
print MAIL "\n----------------------------------------------------------------------------------\n";
print MAIL "Senders IP : $inf[1] \n";
print MAIL "Senders Browser : $inf[3] \n";
print MAIL "Senders homepage : $mail_from_homepage \n";
print MAIL "Senders email : $mail_from_email \n";
print MAIL "----------------------------------------------------------------------------------\n";
close (MAIL);
print "Location: $ok_html\n\n";
#########################################################