Ret simpelt mail system...

Jeg er en smule rusten i Perl og har ikke noget installeret til at teste, men prøv :

#!/usr/bin/perl
use CGI;

my $query = new CGI;
my $sendmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: ".$query->param('fra');
my $subject = "Subject: ".$query->param('emne');
my $content = $query->param('tekst');
my $to = $query->param('to');

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);

print $query->header;
print "Done.";


/ Lars
www.ljweb.com

Hey...

Jeg skal lige indskyde at jeg er ret ny til det her CGI/PERl... Men jeg har ændret lidt i scriptet... Og nu ser der sådan her ud:

#!/usr/bin/perl
use CGI;

$text = "Dette er en test";

my $query = new CGI;
my $sendmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: ".$query->param('fra');
my $subject = "Subject: Mail fra ".$query->param('fra');
my $content = $text;
my $to = $query->param('til');

open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);

print $query->header;
print "Done.";

Men det vil ikke rigtig virke... På min ENAVN server kommer der bare denne fejl:

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Og på min NT server kommer der denne fejl:

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:


Cannot open /usr/sbin/sendmail -t: Bad file descriptor at c:\inetpub\wwwroot\root\system\admin\sendit.pl line 13.

Jeg har godt nok ikke installeret SendMail på min NT server, men jeg håber du/i lige kan hjæple mig... Mange tak :-D

på NT vil det ikke virke... jeg ser om jeg kan på perl til at virke på min BSD senere idag - ingen garanti

Okay, mange tak... Forresten, fed hjemmeside du har :-) Flot design...

;) thx

Jeg har fået det til at virke nu... Mange tak :-D

fedt :) og tak for point