Initial import of code

Author: CRCinAU

README

@@ -0,0 +1,16 @@
+# Getting started
+
+
+The Telstra SMS Messaging API allows your applications to send and receive SMS text messages from Australia's leading network operator.
+
+It also allows your application to track the delivery status of both sent and received SMS messages.
+
+## Configuration
+
+Edit functions.pm and fill out:
+```
+my $consumer_key = "";
+my $consumer_secret = "";
+```
+
+See the documentation at [Dev.Telstra.com](https://dev.telstra.com/content/messaging-api) for more information

README.md

@@ -0,0 +1,46 @@
+use LWP::UserAgent;
+use LWP::ConnCache;
+use HTTP::Request;
+use File::Basename;
+use JSON;
+use Storable;
+
+## Create a global UA agent.
+my $ua = LWP::UserAgent->new;
+$ua->timeout(10);
+
+## Telstra DEV details from https://dev.telstra.com/
+my $consumer_key = "";
+my $consumer_secret = "";
+
+sub get_token(\%) {
+	my $hash = shift;
+
+	## Check we already have a valid token
+	if ( $hash->{token} and $hash->{token_expires} > time() ) {
+		warn "Oauth token present and valid... Using existing token.\n";
+		return;
+	}
+
+	my %form = (
+		'grant_type'	=> 'client_credentials',
+		'scope'		=> 'NSMS',
+		'client_id'	=> $consumer_key,
+		'client_secret'	=> $consumer_secret,
+	);
+
+	my $res = $ua->post( 'https://sapi.telstra.com/v1/oauth/token', \%form );
+	if ( $res->status_line =~ m/200/ ) {
+		warn "Successfully obtained new OAuth token...\n";
+		my $response = JSON->new->decode($res->decoded_content);
+		$hash->{token} = $response->{access_token};
+		$hash->{token_expires} = $response->{expires_in} + time() - 60;
+
+		## Write the file to disk.
+		store $hash, dirname($0) . "/tokenstore.bin";
+	}
+
+	return;
+}
+
+return 1;

functions.pm

@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Basename;
+use Getopt::Std;
+use Storable;
+use lib dirname($0);
+use functions;
+
+my %config;
+
+if ( -f dirname($0) . "/tokenstore.bin" ) {
+	%config = %{ retrieve(dirname($0) . "/tokenstore.bin") };
+}
+
+## Check if we have any command line options, if not, prompt for input.
+my %options;
+getopts('n:m:', \%options);
+
+## If a number isn't provided with -n, prompt for destination number.
+if ( ! $options{n} ) {
+	print "Enter destination number in format +61......: ";
+	$options{n} = <STDIN>;
+	chomp($options{n});
+}
+if ( $options{n} eq "" ) { exit 1; }
+
+## If a message isn't provided with -m, prompt for a message.
+if ( ! $options{m} ) {
+	print "Enter message to send: ";
+	$options{m} = <STDIN>;
+	chomp($options{m});
+}
+if ( $options{m} eq "" ) { exit 1; }
+
+my %body = (
+	'to'	=> $options{n},
+	'body'	=> $options{m},
+);
+
+## Get an OAuth token if required.
+get_token(%config);
+
+my $req = HTTP::Request->new( 'POST', 'https://tapi.telstra.com/v2/messages/sms' );
+$req->header( 'Content-Type' => 'application/json' );
+$req->header( 'Authorization' => 'Bearer ' . $config{token} );
+$req->content( to_json(\%body) );
+
+my $ua = LWP::UserAgent->new;
+my $res = $ua->request($req);
+print "Result: " . $res->status_line . "\n";

send_sms.pl

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Basename;
+use Storable;
+use lib dirname($0);
+use functions;
+
+my %config;
+
+if ( -f dirname($0) . "/tokenstore.bin" ) {
+	%config = %{ retrieve(dirname($0) . "/tokenstore.bin") };
+}
+
+## Get an OAuth token if required.
+get_token(%config);
+
+my %body = (
+	"activeDays"	=> "65535",
+);
+
+my $req = HTTP::Request->new( 'POST', 'https://tapi.telstra.com/v2/messages/provisioning/subscriptions' );
+$req->header( 'Content-Type' => 'application/json' );
+$req->header( 'Authorization' => 'Bearer ' . $config{token} );
+$req->content( to_json(\%body) );
+
+my $ua = LWP::UserAgent->new;
+my $res = $ua->request($req);
+print "Result: " . $res->status_line . "\n";
+print $res->content;

subscription_create.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Basename;
+use Storable;
+use lib dirname($0);
+use functions;
+
+my %config;
+
+if ( -f dirname($0) . "/tokenstore.bin" ) {
+	%config = %{ retrieve(dirname($0) . "/tokenstore.bin") };
+}
+
+## Get an OAuth token if required.
+get_token(%config);
+
+my $req = HTTP::Request->new( 'DELETE', 'https://tapi.telstra.com/v2/messages/provisioning/subscriptions' );
+$req->header( 'Content-Type' => 'application/json' );
+$req->header( 'Authorization' => 'Bearer ' . $config{token} );
+
+my $ua = LWP::UserAgent->new;
+my $res = $ua->request($req);
+print "Result: " . $res->status_line . "\n";
+print $res->content . "\n";

subscription_delete.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use File::Basename;
+use Storable;
+use lib dirname($0);
+use functions;
+
+my %config;
+
+if ( -f dirname($0) . "/tokenstore.bin" ) {
+	%config = %{ retrieve(dirname($0) . "/tokenstore.bin") };
+}
+
+## Get an OAuth token if required.
+get_token(%config);
+
+my $req = HTTP::Request->new( 'GET', 'https://tapi.telstra.com/v2/messages/provisioning/subscriptions' );
+$req->header( 'Content-Type' => 'application/json' );
+$req->header( 'Authorization' => 'Bearer ' . $config{token} );
+
+my $ua = LWP::UserAgent->new;
+my $res = $ua->request($req);
+print "Result: " . $res->status_line . "\n";
+print $res->content . "\n";