Net::SMPP blowing up

[UnderMine]

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

[ptum]

I've never used Net::SMPP so I'm totally punting, but here are two wild guesses:

1. Your destination_addr parameter doesn't have a plus sign at the beginning as shown in the sample code in Net::SMPP
2. Using Data::Dumper can often help -- sometimes I see error messages like the one you are encountering when I try to invoke object methods on an object but I haven't correctly created the object, so the methods are invalid. Dump out $smpp and $resp_pdu or test 'em to make sure they are valid objects before you try to invoke their methods.

[UnderMine]

Got it working by changing the code to use the more convetional syntax :-

sub status {
    my $me = shift;
    return $me->{status};
}

Thanks
UnderMine

[Anonymous Monk]

Its a known bug, #18510: $resp_pdu->>status