SendSMS / rest
| Author |
Message
|
|
Norbert Schneider
Topic creator
registered since: 19.01.2012
Posts: 5
|
Aber gerne: Das Objective-c projekt hänge ich an, es bassiert auf dem objective-c SDK. Es baut erfolgreich unter gnustep. Die perl-Skripte sind dabei, die kopiere ich aber auch hier rein: sendsms.pl: ---Schnipp #!/usr/bin/perl -w use strict; use SMS; my $user='USER'; my $pw='PASSWORT'; my $env='mock'; my $flash='false'; my $auth = getauth($user, $pw, $env); print "Got Auth\n"; my $recipient = "015227667706"; my $content = "Hallo Norbert"; my $originator = "Ecos.de"; my $response = sendsms($auth, $recipient, $content, $originator, $flash); print "Response: $response\n"; ---Schnapp SMS.pm ---schnipp use strict; use MIME::Base64; use LWP::UserAgent; use Data::Dumper; use JSON; our $authurl = 'https://sts.idm.telekom.com/rest-v1/tokens/odg'; our $smsurltemplate = 'https://gateway.developer.telekom.com/p3gw-mod-odg-sms/rest/%s/sms'; our $smsurl; sub getauth{ my ($user, $pw, $env) = @_; my $authdata = "Basic ".encode_base64("$user:$pw"); $smsurl = sprintf($smsurltemplate, $env); my $ua = LWP::UserAgent->new(); $ua->default_header('Accept' => 'application/json; charset=utf-8'); $ua->default_header('Authorization' => $authdata); $ua->default_header('Cache-Control' => 'no-cache'); $ua->default_header('Pragma' => 'no-cache'); $ua->default_header('Connection' => 'close'); my $res = $ua->get($authurl); if($res->is_success){ my $json = decode_json $res->content; return $json->{'token'};; } else { die "Failed."; } } sub sendsms{ my ($auth, $recipient, $content, $originator, $flash) = @_; my $authdata = 'TAuth realm="https://odg.t-online.de",tauth_token='.$auth.'"'; my $ua = LWP::UserAgent->new(); my $body = "number=".$recipient."&message=".$content."&originator=".$originator."&flash=".$flash; $ua->default_header('Transfer-Encoding' => 'chunked'); $ua->default_header('Content-Type' => 'application/x-www-form-urlencoded'); $ua->default_header('Authorization' => $authdata); $ua->default_header('User-Agent' => 'Ecos.de perl client'); $ua->default_header('Accept' => 'application/json'); print "Sending to $smsurl\n"; my $res = $ua->post($smsurl, { number => $recipient, message => $content, originator => $originator, flash => $flash }); if($res->is_success){ my $json = decode_json $res->content; print Dumper($json)."\n"; } else { die "Send failed"; } return 0; } return 1; ---schnapp Vielen Dank schon mal. Wenn das ganze funktioniert, soll es per SMS One-time passwörter versenden. |
  |
| Author |
Message
|
|
Daniel Buchheim
registered since: 13.01.2011
Posts: 31
|
Hallo Norbert, ich habe mir dein Perl-Script mal angesehen und habe mehrere Anmerkungen. 1.) zum Holen des Tokens reicht ein PHPKopieren
völlig aus. 2.) in PHPKopieren
macht das Transfer-Encoding "chunked" Probleme, am besten diese Zeile auskommentieren. 3.) Es scheint wohl Probleme mit LWP und https zu geben. PHPKopieren
--> 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed) Ich bin selber zwar kein "Perler", aber ich habe eine Anleitung gefunden, wie du dieses Problem beheben kannst. Zusammen mit den Schritten 1) und 2) konnte ich mir mit deinem Script eine SMS zustellen. Quelle: https://forums.aws.amazon.com/thread.jspa?threadID=63812 First of all we will need to make sure the Ubuntu installation is up-to-date. sudo apt-get update sudo apt-get upgrade Then we need to install some packages necessary: sudo apt-get install build-essential libssl-dev We also need to download and install libxml2 (Reference: http://xmlsoft.org/FAQ.html#Installati) wget ftp://xmlsoft.org/libxml2/libxml2-2.7.2.tar.gz tar xvf libxml2-2.7.2.tar.gz cd libxml2-2.7.2 ./configure make make install We then need to upgrade to the latest CPAN: sudo perl -MCPAN -e shell install Bundle::CPAN reload cpan And install all of the CPAN modules necessary for SES script to run: sudo perl -MCPAN -e shell install XML::LibXML install Digest::SHA install URI::Escape install Bundle::LWP install MIME::Base64 install Crypt::SSLeay sudo apt-get install -y libdigest-sha-perl liburi-perl libwww-perl libmime-tools-perl libcrypt-ssleay-perl libxml-libxml-perl Hinweis: Wenn du auch mit CURL arbeiten könntest, dann gibt es hier: http://pastebin.com/Z3h1TdwR ein funktionierendes Script. Ich hoffe, dass du damit weiterkommst, Objective-c habe ich mir nicht angeschaut, ich vermute dass die Absenderkennung falsch ist (zumindest bei Perl war sie falsch). Nicht validierte Rufnummern sollten so aussehen: Der Absender kann aus maximal 11 Zeichen bestehen. Erlaubte Zeichen sind Buchstaben und Ziffern. Grüße, Daniel |
|
