Perl / CGI

#!/usr/bin/perl

####################################################
#  TeleWord SMS Sample Perl Script
# (c) 2002-2006 by EDV Service Gregor Wersche
#  for use with TeleWord only!
#  Last Update: 2006-11-03
####################################################

$telewordlanguage = 'UK';               # language of error messages UK / DE
$telewordaccount  = 12345;              # your account number
$telewordaction   = 1;                  # the action number (XMS special)
$teleword         = 'xxxxxxxx';         # password of TeleWord action
$sender           = 'TeleWord';         # up to 11 characters or 16 digits
$num              = '4917...';          # destination phone number
$xms              = 'Test-Message sent by TeleWord';  # text message
$mobile           = 'SMS';              # Message type, e.g. 'SMS' for Text-SMS

####################################################

use IO::Socket;

undef %teleword;
$teleword_sock = IO::Socket::INET->new(Proto => "tcp",
  PeerAddr => 'www.teleword.net', PeerPort => 80, Timeout => 10);
if (defined($teleword_sock)) {
  # Connection ok
  $teleword_sock->autoflush(1);

  # Construct the query string to send and determine its length
  $xms=~s{([^A-Za-z0-9])}{{sprintf "%%%02X", ord($1);}}ge;
  $query="telewordlanguage=$telewordlanguage&telewordaccount=$telewordaccount".
    "&telewordaction=$telewordaction&teleword=$teleword".
    "&sender=$sender&num=$num&mobile=$mobile&xms=$xms";

  # Send request
  $teleword_sock->print("POST /action/ HTTP/1.0\n");
  $teleword_sock->print("Host: www.teleword.net\n");
  $teleword_sock->print("Content-type: application/x-www-form-urlencoded\n");
  $teleword_sock->print("Content-length: ".length($query)."\n\n$query\n");

  # Get response
  undef $response;  while (<$teleword_sock>) { $response .= $_; }
  $teleword_sock->close;

  # Check for success/error
  $response=~s{(TeleWord\-([A-Za-z0-9\_\-]+): +([^\n\r]+))}
    {$_=$2;tr/A-Z/a-z/;$teleword{$_}=$3;$1}ges;
  foreach (keys %teleword) {
    $teleword{$_}=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/egs; }
  if ($teleword{'language'}!~/^[A-Za-z]{2}$/) { $teleword{'language'}=$telewordlanguage; }
  if ($teleword{'error'} eq '') {
    $teleword{'language'}    =$telewordlanguage;
    $teleword{'error'}       ='SERVER';
    $teleword{'errortitleuk'}='SERVER ERROR';
    $teleword{'errortitlede'}='SERVER FEHLER';
    $teleword{'errortextuk'} ='There is no confirmation message and no error message.';
    $teleword{'errortextde'} ='Es liegt weder eine Erfolgs- noch eine Fehlermeldung vor.';
  }
}
else {
  $teleword{'language'}    =$telewordlanguage;
  $teleword{'error'}       ='CONNECTION';
  $teleword{'errortitleuk'}='CONNECTION ERROR';
  $teleword{'errortitlede'}='VERBINDUNGSFEHLER';
  $teleword{'errortextuk'} ='It was not possible to connect to TeleWord.net.';
  $teleword{'errortextde'} ='Es konnte keine Verbindung zu TeleWord.net aufgebaut werden.';
}

# Print error message
if ($teleword{'error'} =~ /SUCCESS/i) {
  print "SUCCESS";
}
else {
  $teleword{'language'}=~tr/A-Z/a-z/;
  print "[Error-Code: $teleword{'error'}]\n\n";
  print "$teleword{'errortitle'.$teleword{'language'}}\n\n";
  print "$teleword{'errortext'. $teleword{'language'}}\n\n";
}

PHP

<?PHP

//####################################################
//#  TeleWord SMS Sample PHP Script
//# (c) 2002-2006 by EDV Service Gregor Wersche
//#  for use with TeleWord only!
//#  Last Update: 2006-11-03
//####################################################

$telewordlanguage = 'UK';               # language of error messages UK / DE
$telewordaccount  = 12345;              # your account number
$telewordaction   = 1;                  # the action number (XMS special)
$telewordpassword = 'xxxxxxxx';         # password of TeleWord action
$sender           = 'TeleWord';         # up to 11 characters or 16 digits
$num              = '4917...';          # destination phone number
$xms              = 'Test-Message sent by TeleWord';  # text message
$mobile           = 'SMS';              # Message type, e.g. 'SMS' for Text-SMS

//####################################################

unset($teleword);
$teleword_sock = fsockopen('www.teleword.net', 80, $teleword_errno, $teleword_errstr, 10);
if ($teleword_sock) {
  # Connection ok

  # Construct the query string to send and determine its length
  $xms = rawurlencode($xms);
  $query="telewordlanguage=$telewordlanguage&telewordaccount=$telewordaccount".
    "&telewordaction=$telewordaction&teleword=$telewordpassword".
    "&sender=$sender&num=$num&mobile=$mobile&xms=$xms";

  # Send request
  fputs($teleword_sock, "POST /action/ HTTP/1.0\n");
  fputs($teleword_sock, "Host: www.teleword.net\n");
  fputs($teleword_sock, "Content-type: application/x-www-form-urlencoded\n");
  fputs($teleword_sock, "Connection: close\n");
  fputs($teleword_sock, "Content-length: ".strlen($query)."\n\n$query");

  # Get response
  while(!feof($teleword_sock)) { $response .= fgets($teleword_sock,128); }
  fclose($teleword_sock);

  # Check for success/error
  preg_match_all("/(TeleWord\-([A-Za-z0-9\_\-]+): +([^\n\r]+))/s",$response,$matches);
  for ($i=0; $i<count($matches[0]); $i++) {
    $teleword[strtolower($matches[2][$i])]=$matches[3][$i]; }
  foreach (array_keys($teleword) as $key) {
    $teleword[$key]=urldecode($teleword[$key]); }
  if (preg_match("/^[A-Za-z]{2}$/", $teleword['language'])) {
    $teleword['language']=$telewordlanguage; }
  if ($teleword['error'] == '') {
    $teleword['language']    =$telewordlanguage;
    $teleword['error']       ='SERVER';
    $teleword['errortitleuk']='SERVER ERROR';
    $teleword['errortitlede']='SERVER FEHLER';
    $teleword['errortextuk'] ='There is no confirmation message and no error message.';
    $teleword['errortextde'] ='Es liegt weder eine Erfolgs- noch eine Fehlermeldung vor.';
  }
}
else {
  $teleword['language']    =$telewordlanguage;
  $teleword['error']       ='CONNECTION';
  $teleword['errortitleuk']='CONNECTION ERROR';
  $teleword['errortitlede']='VERBINDUNGSFEHLER';
  $teleword['errortextuk'] ='It was not possible to connect to TeleWord.net.';
  $teleword['errortextde'] ='Es konnte keine Verbindung zu TeleWord.net aufgebaut werden.';
}

# Print error message
if (preg_match("/SUCCESS/i", $teleword{'error'})) {
  echo("SUCCESS");
}
else {
  $teleword['language']=strtolower($teleword['language']);
  echo("[Error-Code: ".$teleword['error']."]\n\n");
  echo($teleword['errortitle'.$teleword['language']]."\n\n");
  echo($teleword['errortext'. $teleword['language']]."\n\n");
}

?>

Versand von Logos aus Skripten

Die obigen Beispiel-Skripte eigenen sich nicht nur für den Versand von Text-SMS, sondern auch für den Versand von z.B. Logos, Animationen, Klingeltönen, Bildmitteilungen, Bildschirmschonern, EMS usw. Übergeben Sie einfach einen geeigneten HTML-Code in der Variable xms. Eine Liste der Unterstützten HTML-Code-Tags finden Sie im Admin-Menü unter dem Menüpunkt "XMS versenden".

telewordaccount=1
&telewordaction=1
&telewordlanguage=DE
&teleword0=0000
&teleword1=abcdefgh
&num=49170555123
&sender=From%20Me
&mobile=EMS
&xms='<img src="http://my.domain/picture.gif"><b>Happy Birthday</b><br>Gruß'

Werbefinanzierter SMS-Versand, Option 1

Werbefinanzierter SMS-Versand, Option 2

In Kürze erhalten Sie hier Informationen über ein weitaus komplexeres Skript mit großem Funktionumfang. Bitte gedulden Sie sich.

Betreiber- und Gruppenlogos, LOGO-SMS

Weitere Informationen zum Versand eigener Grafiken und Links zu bereitgestellten Materialien finden Sie in der HTML-CODE-Einsicht. Hier finden Sie auch einen Link zu dem kostenlosen Logo-Editor, mit dem Ihre Besucher kostenlos ein Handylogo erstellen können, um dieses dann kostenpflichtig zu versenden.

Bildmitteilungen, LOGO-SMS

Auch für den Versand von Bildmitteilungen finden sich weitere Informationen und Links zu bereitgestellten Materialien in der HTML-CODE-Einsicht; auch hier wird kostenlos ein geeigneter Editor für Ihre Besucher angeboten.

Klingeltöne, TONE-SMS

Informationen zum Versand von Klingeltönen entnehmen Sie bitte der HTML-CODE-Einsicht. Weiterhin finden Sie hier Links zu Editoren sowie zu bereitgestelltem Material.