#!/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!" }