Ja det bruger sendmail...
her er kilden:
#!/usr/bin/perl
#######################################
# FormMail-SMS.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=-1;
foreach (@Datain) {
$nr ++;
@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;
}
if (lc($name) eq "mail_emne") {
$emne = $value;
}
if (lc($name) eq "ok_html") {
$ok_html = $value;
}
if (lc($name) eq "ok_html") {
$fejl_html = $value;
}
if (lc($name) eq "mail_fra") {
$fra = $value;
}
}
$udbyd = "fejl";
if ($email >= 20100000 && $email < 20600000) {
$udbyd = "sms.tdm.dk";
}
if ($email >= 20600000 && $email < 21000000) {
$udbyd = "note.sonofon.dk";
}
if ($email >= 21100000 && $email < 22000000) {
$udbyd = "sms.tdm.dk";
}
if ($email >= 22100000 && $email < 23000000) {
$udbyd = "note.sonofon.dk";
}
if ($email >= 23000000 && $email < 24000000) {
$udbyd = "sms.tdm.dk";
}
if ($email >= 26100000 && $email < 26900000) {
$udbyd = "sms.mobilix.dk";
}
if ($email >= 28100000 && $email < 28900000) {
$udbyd = "sms.mobilix.dk";
}
if ($email >= 40100000 && $email < 40500000) {
$udbyd = "sms.tdm.dk";
}
if ($email >= 40500000 && $email < 50000000) {
$udbyd = "note.sonofon.dk";
}
if ($udbyd eq "fejl") {
$ud_html = $fejl_html;
}
else {
$email = "$email\@$udbyd";
open(MAIL,"|$mailprog -t");
print MAIL "To: $email\n";
print MAIL "From: $fra\n";
print MAIL "Subject: $emne\n\n";
print MAIL "\n";
close (MAIL);
$ud_html = $ok_html;
}
#print "Content-type: text/html\n\n";
print "Location: $ud_html\n\n";
