CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede Boddicker Seniormester
28. juni 1999 - 13:25 Der er 20 kommentarer og
1 løsning

sms-script

Jeg har brug for et sms-sende-besked script. Det SKAL være perl. Hverken php eller asp kan bruges. Desuden skal helst kunne bruges uden brug af sendmail-programmet. Altså smtp ville være at foretrække. Dog ikke et must!

Og nope... jeg kan ikke bare bruge mobilbesked.dk eller lignende services. Jeg vil have en bannerfri løsning! :)

Avatar billede power Nybegynder
28. juni 1999 - 13:47 #1
Her er et Script ?? Håber det er nok ..

MVH hansen@mail.dk

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<TITLE>Send SMS Besked</TITLE>
<META NAME="Version" CONTENT="8.0.3612">
<META NAME="Date" CONTENT="1/8/97">
<META NAME="Template" CONTENT="C:\Programmer\Microsoft Office\Office\HTML.DOT">
<script  LANGUAGE="javascript"><!--
    maxChars = 131;
   
    function CheckLength() {
//        addLen = document.sms.Navn.value.length;
//        mesLength = document.sms.Message.value.length+addLen;
//        document.sms.mesStatus.value = "Beskeden indeholder "+String(mesLength)+" tegn fordelt over "+String(Math.round(mesLength / maxChars + 0.5))+" beskeder";
//        if ( mesLength > 700) {
//            self.window.alert( "Der kan ikke sendes SMS beskeder der indeholder mere end 700 tegn..." );
//            document.sms.Message.value = document.sms.Message.value.substr(0,699-addLen);
//        }
    }
   
    function SendSMS() {
        if (document.sms.Message.value.length < 2)
            self.window.alert( "Du mangler at indtaste en besked" );
        else if (document.sms.Navn.value.length < 2)
            self.window.alert( "Du mangler at indtaste dit navn" );
//        else if (document.sms.Phone.value.length < 5)
//            self.window.alert( "Du mangler at indtaste et tlf. nummer" );
        else
            document.sms.submit()
    }
   
   
//--></script ></HEAD>
<BODY TEXT="#000000" LINK="#ffffff" VLINK="#ffffff" BGCOLOR="#ffffff" OnLoad="CheckLength();" ALINK='#FFFFFF'>

<P ALIGN="CENTER"><CENTER><TABLE CELLSPACING=0 BORDER=0>
<TR><TD VALIGN="MIDDLE" BGCOLOR="#000080">
<P><FONT FACE="Verdana,arial" SIZE=1 COLOR="#ffffff">Dit&nbsp;navn:<BR>

<INPUT TYPE="text" NAME="Navn">
</FONT></TD>
</TR>
<TR><TD VALIGN="MIDDLE" BGCOLOR="#000080">
<FONT FACE="Verdana,arial" SIZE=1 COLOR="#ffffff"><P>Modtager&nbsp;telefon: </FONT><BR>

<INPUT TYPE="text" NAME="Phone">
</TD>
</TR>
<TR><TD VALIGN="MIDDLE" BGCOLOR="#000080">
<FONT FACE="Verdana,arial" SIZE=1 COLOR="#ffffff"><P>Standardbesked:</FONT><BR>
         
<SELECT NAME="Standard">
<OPTION SELECTED VALUE="">- Du kan v&aelig;lge en standardbesked her -
<OPTION VALUE="Jeg elsker dig!">Jeg elsker dig!
<OPTION VALUE="Tillykke med f&oslash;dselsdagen!">Tillykke med f&oslash;dselsdagen!
<OPTION VALUE="Tak for sidst">Tak for sidst
<OPTION VALUE="Jeg kan ikke komme alligevel">Jeg kan ikke komme alligevel
<OPTION VALUE="Jeg savner dig">Jeg savner dig
<OPTION VALUE="Ring til mig">Ring til mig
<OPTION VALUE="Ring til mig p&aring; nr.">Ring til mig p&aring; nr.
<OPTION VALUE="Tjek din e-mail">Tjek din e-mail
<OPTION VALUE="Jeg har sendt dig en e-mail">Jeg har sendt dig en e-mail
<OPTION VALUE="Skal vi m&oslash;des ?">Skal vi m&oslash;des ?
</SELECT>
</TD>
</TR>
<TR><TD VALIGN="TOP" BGCOLOR="#000080">
<FONT FACE="Verdana,arial" SIZE=1 COLOR="#ffffff"><P>Besked:</FONT><BR>

<TEXTAREA ROWS="5" COLS="40" NAME="Message"></TEXTAREA>
<BR>

<INPUT TYPE="TEXT" NAME="mesStatus">
<BR>
</TD>
</TR>
</TABLE>
</CENTER></P>

<P ALIGN="CENTER"><A HREF="java script: SendSMS();">Send SMS</A> </P></BODY>
</HTML>
Avatar billede graae Nybegynder
28. juni 1999 - 13:56 #2
Det der kommer han da ikke langt med...
...Hvad jeg kan se er der sq da ingen "send besked"-knap!
Avatar billede graae Nybegynder
28. juni 1999 - 14:13 #3
Prøv istedet det her, det kan dog godt være at det ikke er helt lovligt, men..
...det kan bruges!

<html>

<head>
<title>www.telefonbesked.dk</title>
</head>

<body background="back.jpg">

<p align="center">&nbsp;</p>

<p align="center"><font color="#000000">&nbsp; </font></p>

<dl>
  <script> 
    function sendmessage(dataform){
        nummer=dataform.number.value
        udbyder=0
        if(nummer >= 20100000&& nummer <= 20599999) udbyder="@sms.tdm.dk";
        if(nummer >= 20600000&& nummer <= 20999999) udbyder="@note.sonofon.dk";
        if(nummer >= 21200000&& nummer <= 21999999) udbyder="@sms.tdm.dk";
        if(nummer >= 22100000&& nummer <= 22999999) udbyder="@note.sonofon.dk";
        if(nummer >= 23200000&& nummer <= 23499999) udbyder="@sms.tdm.dk";
        if(nummer >= 26100000&& nummer <= 26999999) udbyder="@sms.mobilix.dk";
        if(nummer >= 28100000&& nummer <= 28999999) udbyder="@sms.mobilix.dk";
        if(nummer >= 30000000&& nummer <= 30999999) udbyder=5;
        if(nummer >= 40100000&& nummer <= 40499999) udbyder="@sms.tdm.dk";
        if(nummer >= 40500000&& nummer <= 40999999) udbyder="@note.sonofon.dk";
        if(udbyder==0)
        {
            alert("Du har ikke indtastet et gyldigt mobilnummer. Prøv igen.");
            return;
        }
        if(udbyder==5)
        {
            alert("Du har indtastet et nummer på en NMT telefon. Det er desværre ikke muligt at sende beskeder til den type telefoner.");
            return;
        }
        var item=dataform.besked.value
        var words=item.split(" ");
        var j=0
        besk=words[j]+"+"
        for (j=1; j< words.length; j++) {
                besk=besk+words[j]+"+"
            } // end for j
        adresse=nummer+udbyder
        mailcommand="http://www.holtze.dk/cgi_bin/formmail.pl?recipient="+adresse+"&sender="+dataform.sender.value+"&subject="+besk+"&redirect=http://www.telefonbesked.dk"
        location=mailcommand
        alert("Beskeden er sendt.")
    }
</script>
<div align="center"><center><table BORDER="0" ALIGN="Center" VALIGN="top">
    <tr>
      <td width="250" VALIGN="TOP" align="center"><form name="skema" method="POST"
      action="java script:sendmessage(document.skema)">
        <font face="Arial" size="2"><p></font><font color="#000000" face="Arial" size="2"><br>
        </font><font color="#000000"><font face="Arial" size="1">Nummeret beskeden skal sendes
        til:<br>
        <input type="text" name="number" value size="15"> </font><br>
        <font face="Arial" size="1">Dit navn, dit nummer, eller din e-mail: <input type="text"
        name="sender" value size="15"> </font><br>
        <font face="Arial" size="1">Her skrives Besked:</font><font face="Arial" size="2"> </font><input
        type="text" name="besked" size="35"></font></p>
        <p><font color="#000000"><input type="submit" name="send" value="Send besked"> </font></p>
      </form>
      <p><font color="#000000"><br>
      </font></td>
    </tr>
  </table>
  </center></div>
  <dd><p align="center"><font color="#000000"><br>
    </font></p>
  </dd>
</dl>
<!Klik på ovenstående banner for at fortsætte din surftur. God fornøjelse!>

<p align="center"><br>
</p>

<p align="center"><!-- Start of TheCounter.com Code --> <script><!--
s="na";c="na";j="na";f=""+escape(document.referrer)
//--></script> <script language="javascript1.2"><!--
s=screen.width;v=navigator.appName
if (v != "Netscape") {c=screen.colorDepth}
else {c=screen.pixelDepth}
j=navigator.javaEnabled()
//--></script> <script><!--
function pr(n) {document.write(n,"\n");}
NS2Ch=0
if (navigator.appName == "Netscape" &&
navigator.appVersion.charAt(0) == "2") {NS2Ch=1}
if (NS2Ch == 0) {
r="&size="+s+"&colors="+c+"&referer="+f+"&java="+j+""
pr("<A HREF=\"http://www.TheCounter.com\" TARGET=\"_top\"><IMG")
pr("BORDER=0 SRC=\"http://c1.thecounter.com/id=200213"+r+"\"></A>")}
//--></script>
<NOSCRIPT>
</p>
</body>
</html>
Avatar billede graae Nybegynder
28. juni 1999 - 14:16 #4
Ups...Der var lige nogle småting, jeg prøver igen!:

<html>

<head>
<title></title>
</head>

<body>

<p>&nbsp;</p>

<p align="center">&nbsp;</p>

<p align="center"><font color="#000000">&nbsp; </font></p>

<dl>
  <script> 
    function sendmessage(dataform){
        nummer=dataform.number.value
        udbyder=0
        if(nummer >= 20100000&& nummer <= 20599999) udbyder="@sms.tdm.dk";
        if(nummer >= 20600000&& nummer <= 20999999) udbyder="@note.sonofon.dk";
        if(nummer >= 21200000&& nummer <= 21999999) udbyder="@sms.tdm.dk";
        if(nummer >= 22100000&& nummer <= 22999999) udbyder="@note.sonofon.dk";
        if(nummer >= 23200000&& nummer <= 23499999) udbyder="@sms.tdm.dk";
        if(nummer >= 26100000&& nummer <= 26999999) udbyder="@sms.mobilix.dk";
        if(nummer >= 28100000&& nummer <= 28999999) udbyder="@sms.mobilix.dk";
        if(nummer >= 30000000&& nummer <= 30999999) udbyder=5;
        if(nummer >= 40100000&& nummer <= 40499999) udbyder="@sms.tdm.dk";
        if(nummer >= 40500000&& nummer <= 40999999) udbyder="@note.sonofon.dk";
        if(udbyder==0)
        {
            alert("Du har ikke indtastet et gyldigt mobilnummer. Prøv igen.");
            return;
        }
        if(udbyder==5)
        {
            alert("Du har indtastet et nummer på en NMT telefon. Det er desværre ikke muligt at sende beskeder til den type telefoner.");
            return;
        }
        var item=dataform.besked.value
        var words=item.split(" ");
        var j=0
        besk=words[j]+"+"
        for (j=1; j< words.length; j++) {
                besk=besk+words[j]+"+"
            } // end for j
        adresse=nummer+udbyder
        mailcommand="http://www.holtze.dk/cgi_bin/formmail.pl?recipient="+adresse+"&sender="+dataform.sender.value+"&subject="+besk+"&redirect=http://www.eksperten.dk"
        location=mailcommand
        alert("Beskeden er sendt.")
    }
</script>
<div align="center"><center><table BORDER="0" ALIGN="Center" VALIGN="top">
    <tr>
      <td width="250" VALIGN="TOP" align="center"><form name="skema" method="POST"
      action="java script:sendmessage(document.skema)">
        <font face="Arial" size="2"><p></font><font color="#000000" face="Arial" size="2"><br>
        </font><font color="#000000"><font face="Arial" size="1">Nummeret beskeden skal sendes
        til:<br>
        <input type="text" name="number" value size="15"> </font><br>
        <font face="Arial" size="1">Dit navn, dit nummer, eller din e-mail: <input type="text"
        name="sender" value size="15"> </font><br>
        <font face="Arial" size="1">Her skrives Besked:</font><font face="Arial" size="2"> </font><input
        type="text" name="besked" size="35"></font></p>
        <p><font color="#000000"><input type="submit" name="send" value="Send besked"> </font></p>
      </form>
      <p><font color="#000000"><br>
      </font></td>
    </tr>
  </table>
  </center></div>
  <dd><p align="center"><font color="#000000"><br>
    </font></p>
  </dd>
</dl>

<p align="center"><br>
</p>
</body>
</html>
Avatar billede Boddicker Seniormester
28. juni 1999 - 14:34 #5
well... ingen af svarene er jo i perl - og det har jeg brug for...

Derfor: ingen ASP, PHP eller java.

Kun ren perl....
Avatar billede Boddicker Seniormester
28. juni 1999 - 15:44 #6
Jeg har brug for et perl-script - ikke et java-script
Avatar billede graae Nybegynder
28. juni 1999 - 17:15 #7
Hallo var!

Det er sq da i perl!
se følgende linje:
http://www.holtze.dk/cgi_bin/formmail.pl
...Så vidt jeg ved står "pl" for PERL!
Det er bare at nakke filen og så er den i hus!...Det er da også bedst med lidt JavaScript da du så kan sikre dig at felterne er udfyldt ordentligt  :o)
...Mit svar er knageme rigtigt!
Avatar billede secret Nybegynder
28. juni 1999 - 18:21 #8
Fuck du er latterlig at høre på "graae" - det eksempel har ikke en skid med Perl at gøre!!! Og hvad tror du "holtze" siger til at du nasser på hans formmail-script!
Få dig et liv - og læs nogle MEGET tykke bøger om Perl & JavaScript, for du ved åbentbart ingenting om nogen af sprogene!!
Avatar billede Boddicker Seniormester
28. juni 1999 - 18:51 #9
Du har da vist ikke så meget forstand på perl. Det du henviser til er blot en ganske alm. formmail (ganske rigtig i perl), men det har intet - absolut intet - med et sms-script i perl at gøre...
Avatar billede doeleman Nybegynder
28. juni 1999 - 20:15 #10
Der findes et PERL-script på http://www.siebenthal.ch/programs.htm Håber du kan bruge det.
Avatar billede graae Nybegynder
28. juni 1999 - 20:44 #11
...Jeg har da også før fortalt at jeg ikke har en skid forstand på Perl...
...Men hvorfor h... hedder filen så *.PL?
...Om ikke andet så virker det da!
Avatar billede Boddicker Seniormester
28. juni 1999 - 21:17 #12
Jeg har også selv haft fundet filen hos siebenthal.ch, men kunne ikke bruge det, da filen er korrupt... Man kan ikke pakke det ud med Winzip, og hvis man pakker det ud med et andet program, kommer filen ud totalt phåked up. Desuden kræver den mere end blot mindre modificering at få til at du til danske forhold.

og mht. til graae: Nope, det java, du har posted, dur ikke hos min udbyder, og selvom formmail.pl ER en perl-fil, er det ikke det jeg spurgte om. Jeg har skam et fiiiiint mail-form-script i forvejen... så deeeeeet...
Avatar billede graae Nybegynder
29. juni 1999 - 09:59 #13
Ok...
...Har accepteret min nederlag...
...Beklager!
Avatar billede Boddicker Seniormester
29. juni 1999 - 10:45 #14
det er da helt okay...! :)
Avatar billede brylle Nybegynder
29. juni 1999 - 22:25 #15
tjek min hjemmeside ud der
er en sms besked sender
og den virker du skal bare lige kikke i
min html kode adressen er:
www.good-site.dk3.com
eller prøv www.sendsms.dk:der kan du
få en html kode der virker men det er
lidt svært at få den til at virke
Avatar billede brylle Nybegynder
29. juni 1999 - 22:28 #16
er du glad nu det tænkte jeg nok alle
andre der har prøplemer må også prøve
et af minne fif
Avatar billede Boddicker Seniormester
29. juni 1999 - 22:55 #17
Nej, jeg er egentlig ikke glad nu, for det var - endnu engang - ikke det jeg spurgte om. Jeg spurgte IKKE om, hvor man kunne finde en gratis sms-besked-sende-udbyder. Ej heller et java-script, php eller asp.
Men derimod spurgte jeg om et:

perl-script til afsendelse af sms-beskeder. D.v.s. et script ala sms.pl - vel at mærke eet der dur!
Avatar billede test43 Nybegynder
02. august 1999 - 23:39 #18

#!/usr/bin/perl
#SMS sender#
#benyt følgende navne i din form: nummer,fra,emne & tekst#

#først opdeler vi lige den sendte data#
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
    $buffer = $ENV{QUERY_STRING};
    }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $input{$name} = $value;
    }
# nu har vi så den sendte data gemt i variablerne $input{'variabel'} #
#Nu tjekkes det så om en af felterne mangler#
@felter = split (/\|/, "nummer|fra|emne|tekst");
foreach $felt(@felter) { if (!$input{'$felt'}) {
    print "content-type:text/html\n\n";
    print "Feltet <b>$felt</b> mangler!";
    exit;
    }}
# nu tjekkes det så hvilken udbyder nummeret er hos #
if($input{'nummer'} >= 20100000&& $input{'nummer'} <= 20599999)  { $udbyder="\@sms.tdm.dk";}
if($input{'nummer'} >=20600000&& $input{'nummer'}<= 20999999) {$udbyder="\@note.sonofon.dk";}
if($input{'nummer'} >= 21200000&& $input{'nummer'} <= 21999999) {$udbyder="\@sms.tdm.dk";}
if($input{'nummer'} >= 22100000&& $input{'nummer'} <= 22999999) {$udbyder="\@note.sonofon.dk";}
if($input{'nummer'} >= 23200000&& $input{'nummer'} <= 23499999) {$udbyder="\@sms.tdm.dk";}
if($input{'nummer'} >= 26100000&& $input{'nummer'} <= 26999999) {$udbyder="\@sms.mobilix.dk";}
if($input{'nummer'} >= 28100000&& $input{'nummer'} <= 28999999) {$udbyder="\@sms.mobilix.dk";}
if($input{'nummer'} >= 40100000&& $input{'nummer'} <= 40499999) {$udbyder="\@sms.tdm.dk";}
if($input{'nummer'} >= 40500000&& $input{'nummer'} <= 40999999) {$udbyder="\@note.sonofon.dk";}
if(!$udbyder) {
    print "content-type:text/html\n\n";
    print "Telefon-nummeret <b>$input{'nummer'}</b> er ugyldigt!\n";
    exit;
    }
$mailprog = '/usr/lib/sendmail';           
    open(MAIL,"|$mailprog -t");
    print MAIL "To: $input{'nummer'}$udbyder\n";
    print MAIL "From: $input{'fra'}\n";
    print MAIL "Subject: $input{'emne'}\n\n" ;
    print MAIL "$input{'tekst'}\n"; 
close (MAIL);

print "content-type:txt/html\n\n";
print "beskeden er sendt!";
exit;
Avatar billede test43 Nybegynder
02. august 1999 - 23:41 #19
ehe...lige en rettelse...
der skal stå "nummer\|fra\|emne\|tekst" istedet...(| skal have en backslash bag sig..)
Avatar billede mosman Nybegynder
12. august 1999 - 13:17 #20
tak for et fedt lille pearl script til sms beskeder. jeg har dog et lille problem med html´en...jeg bliver ved med at få beskeden "nummer mangler"
Hvis du har nogen gode ideer vil jeg være dig dybt taknemlig.
Avatar billede xsms Nybegynder
06. oktober 1999 - 21:34 #21
Hvor skal der stå nummer\|fra\|emne\|tekst
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering 3 07/05/202416:14 08/05/202401:00
Session Variable Af bsn i Andet programmering 3 01/05/202409:44 02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering 2 29/04/202416:05 30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering 4 25/02/202407:13 28/02/202420:56
Bat fil Af sjass i Andet programmering 5 15/01/202417:45 15/01/202420:35
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 01:14 Windows 10 - IIS 10 Af bsn i Windows
I går 20:39 Boot fra USB Af poulmadsen i Windows
I går 11:43 Gmail-ikon på skrivebordet Win 10 Af ErikHg i Fri debat
I går 09:22 Lopslag Af Luffe i Excel
03/0719:15 Personlige indstillinger på Facebook Af nu_igen i Sociale medier
White papers
Flere white papers »


Premium
Teaser billede
EG har aldrig tabt så mange penge før: Lander kæmpe-underskud, mens omsætningen buldrer frem
Læs mere »
IBM Danmarks omsætning faldet med halv milliard kroner på et år - lander kæmpe-underskud
Rigsrevisionen går i kødet på it-sikkerheden i Banedanmarks signalsystem
Nye prisstigninger kan være på vej til VMware-kunder: Priser står til flerdobling
Se alle »
Computerworld
Teaser billede
Softwarefirmaet Teamviewer med 640.000 kunder globalt ramt af avanceret hackerangreb
Læs mere »
En pladesaks, 1000W og et Nvidia-grafikkort til 14.000 kroner - sådan opgraderede jeg min pc
Test: Endelig en skærm der er god til alt - lige fra gaming og underholdning til kontorbrug
I dag træder nye de regler om registrering af din arbejdstid i kraft: Er du klar?
Se alle »
CIO
Teaser billede
Efter stort hackerangreb mod Teamviewer: Stop dine opdateringer og tjek opsætningen nu
Læs mere »
I dag træder nye de regler om registrering af din arbejdstid i kraft: Er du klar?
Frygtet melding: Russiske hackere har stjålet Microsoft-kunders e-mails
Russisk hack af Microsoft er meget større end først antaget
Se alle »
Job & Karriere
Teaser billede
Bo solgte sit software-system for et treciftret millionbeløb: Brugte pengene på at købe 80 medarbejdere til ny storsatsning
Læs mere »
Norlys skal splittes op i fem selskaber: Nu bliver flere ansatte og ledere fyret
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
IBM Danmark skifter ud i sin øverste ledelse - her er den nye direktion
Se alle »
White paper
Teaser billede
Sådan gør du: Elektronisk dokumentudveksling i praksis
Læs mere »
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
Unbreakable - sådan sikrer du dig vedvarende og uafbrudt adgang til dine data
Rapport kortlægger de 13 bedste muligheder for at sætte turbo på din cloud computing
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »