#!/usr/bin/perl

###############################################
##   Ozeki NG - SMS Gateway Perl example    ###
###############################################

use HTTP::Request;
use LWP::UserAgent;
use URI::Escape;


###############################################
###            Ozeki NG informations        ###
###############################################
$host      = "127.0.0.1";
$port      = "9501";
$username  = "admin";
$password  = "abc123";
$recipient = "+00123456";
$message   = "Test Message from Perl";


###############################################
### Putting together the final HTTP Request ###
###############################################
$url  = "http://"       . $host;
$url .= ":" . $port;
$url .= "/api?action=sendmessage&";
$url .= "username="     . uri_escape($username);
$url .= "&password="    . uri_escape($password);
$url .= "&recipient="   . uri_escape($recipient);
$url .= "&messagetype=SMS:TEXT";
$url .= "&messagedata=" . uri_escape("HELLO WORLD");


################################################
####            Sending the message          ###
################################################
$request = HTTP::Request->new(GET=>$url);
$useragent = LWP::UserAgent->new;
$response = $useragent->request($request);


################################################
###        Verifying the response            ###
################################################
if ($response->is_success) {
   print "Message successfully sent";
} else {
   print "Message not sent! Please check your settings!";
}