sipgateAPI-sms.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Sam Buca, indigo networks GmbH, 08/2007
   4 #
   5 # This script is a very basic perl-client to the SAMURAI service
   6 # provided by sipgate (indigo networks GmbH) without any claim to
   7 # completeness and without any warranty!
   8 #
   9 # The following code shows how to use the service to send messages
  10 # via SMS using a sipgate account.
  11 #
  12
  13 use strict;
  14 use Frontier::Client;   # needed for XMLRPC
  15
  16 # declare some variables for later use:
  17 my $VERSION = "1.0";
  18 my $NAME        = "sipgateAPI-sms.pl";
  19 my $VENDOR      = "indigo networks GmbH";
  20 my $url;
  21 my $xmlrpc_client;
  22 my $xmlrpc_result;
  23 my $args_identify;
  24 my $args;
  25
  26 # check the count of commandline parameters and show usage information
  27 # if not matching:
  28 unless (@ARGV == 4) {
  29         print "\n";
  30         print "This script needs 4 parameters supplied on the commandline:\n";
  31         print "\n";
  32         print "parameter 1 -> the username (not SIPID) used to login to sipgate\n";
  33         print "parameter 2 -> the password associated with the username\n";
  34         print "parameter 3 -> the number to send the message to\n";
  35         print "               (with national prefix, e.g. 4917xxxxxxxxx)\n";
  36         print "parameter 4 -> the message to send quoted in \" or \'\n";
  37         print "\n";
  38
  39         exit 0;
  40 }
  41
  42 # define URL for XMLRPC:
  43
  44 $url = "https://$ARGV[0]:$ARGV[1]\@samurai.sipgate.net/RPC2";
  45
  46 # create an instance of the XMLRPC-Client:
  47
  48 $xmlrpc_client = Frontier::Client->new( 'url' => $url );
  49
  50 # identify the script to the server calling XMLRPC-method "samurai.ClientIdentify"
  51 # providing client-name, -version and -vendor:
  52
  53 $args_identify = { ClientName => $NAME, ClientVersion => $VERSION, ClientVendor => $VENDOR };
  54
  55 $xmlrpc_result = $xmlrpc_client->call( "samurai.ClientIdentify", $args_identify );
  56
  57 # the check for success is not necessary in this case since the Frontier::Client module
  58 # dies with an exception in case of a fault, but we do it for completeness:
  59
  60 if ($xmlrpc_result->{'StatusCode'} == 200) {
  61     print "Successfully identified to the server!\n";
  62 } else {
  63         # we should never get here!
  64         print "There was an error during identification to the server!\n";
  65 }
  66
  67 # create the input argument set for XMLRPC:
  68
  69 $args = { RemoteUri => "sip:$ARGV[2]\@sipgate.net", TOS => "text", Content => $ARGV[3] };
  70
  71 # do the call and store the result / answer to $xmlrpc_result:
  72
  73 $xmlrpc_result = $xmlrpc_client->call( "samurai.SessionInitiate", $args );
  74
  75 # again we do the check on success for completeness:
  76
  77 if ($xmlrpc_result->{'StatusCode'} == 200) {
  78     print "Your request was successfully send to the server!\n";
  79 } else {
  80         # we should never get here!
  81         print "There was an error!\n";
  82 }