SMS script til afsending gennen SMTP mailserver.

Måske - det er dog noget lettere, hvis man kan se scriptet!

prøv at smide dit script---

det script fra script.sk har en fejl... prøv at lade cgi-filen se sådan ud (el. lign - det er stien til sendmail, der er den vigtige...):

#!/usr/bin/perl

$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: cgi\\@soze.dk ($fra)\\n\";
print MAIL \"Subject:\\n\\n\";
print MAIL \"$emne\\n\";
close (MAIL);

$ud_html = $ok_html;
}
#print \"Content-type: text/html\\n\\n\";
print \"Location: $ud_html\\n\\n\";

Hejsa.. Jeg har endnu ikke tjekket om det script fra keyserzone virker.. Er det lavet så det kan afsende over en smtp mail??

Her er det script jeg ikke kan få til at virke..

#!/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\";



Så er der lidt at kikke på.. :-)

Tupsy!!

Så er Keysersoze script tjekket.. Sorry, det virker heller ikke...

Tupsy!!

jeg sagde ikke det virkede... bare et den ene linie manglede... du skal tjekke adressen til deres sendmail....

i mit tilfælde var det:

$mailprog = \'/usr/sbin/sendmail\';

men det er jo ikke sikkert det er det hos dig...

Hejsa.. Sorry, det er det ikke hos mig...
Men tak fordi du prøvede...

Men, jeg har fået det til at virke ved hjælp af en .php3 fil...

Såå, jeg tror jeg vil lukke dette spørgsmål..
Men, :-) Hvordan gør jeg mon det??

>>>Keysersoze<<<
Hmm, ja du fik lige lidt point for at prøve...

Tupsy!!