Mit Hilfe des folgenden Codes können Sie unser SMS-Gateway bequem in Ihr Perl-Script integrieren. So können Sie aus Perl-Scripten SMS verschicken.
(Die benötigten Perl-Module (siehe use-Anweisungen) finden Sie unter www.cpan.org)
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use URI::Escape;
use HTTP::Headers;
use HTTP::Request;
my %vars=(
user=> "benutzer", # Benutzername
password=> "secret", # Passwort
nummer=> "+491797000000", # Ziel-Rufnummer
text=> "blah blah", # Text-Nachricht
absender=> "+491797000000", # Absenderkennung
test=> 1, # Debug-Modus aktivieren
output=> 1, # Unterdrückt HTML-Antwort
);
#### Ab hier nichts mehr ändern ####
my $c="";
my $ua=new LWP::UserAgent;
my $h=new HTTP::Headers;
$h->content_type('application/x-www-form-urlencoded');
$h->authorization_basic($vars{user},$vars{password});
foreach my $k(qw(nummer text absender test output)) {
$c.=$k."=".uri_escape($vars{$k})."&";
}
my $req=HTTP::Request->new("POST","http://sms-gw.topconcepts.de/gw/sms.pl",$h,$c);
my $res=$ua->request($req);
my $status=($res->is_success)?$res->content:$res->status_line;
# Den Wert $status können Sie nun auswerten, um
# festzustellen, ob der Versand erfolgreich war.
