Attempted to do the following simple test script :-
#SMPP Test
use strict;
my $host='www.some-smpp-mobile.com';
my $port=1666;
use Net::SMPP;
my $smpp = Net::SMPP->new_transmitter($host, port=>$port,
system_id => 'Account',
password => 'XXXXXXXX',
) or die;
my $resp_pdu = $smpp->submit_sm(destination_addr => '4478123456789',
short_message => 'test message')
or die;
die "Response indicated error: " . $resp_pdu->explain_status()
if $resp_pdu->status;
The trouble is I get the following error message :-
Not a GLOB reference at /usr/lib/perl5/site_perl/5.8.8/Net/SMPP.pm line 2301.
The code causing the error is :-
sub status {
my $me = shift;
return ${*$me}{status};
}
The SMS message appears to be correctly sent/not sent prior to this error occuring so it is not dependant on the outcome of the sending.
Any wisdom as to what could be causing this bizare side effect.
UnderMine