Hi,
This is ram. i am getting the error while sending a sms using smpp.
the code is:
#!perl
use strict;
use warnings;
use Net::SMPP;
my $host = '10.100.7.177';
my $port = 5001;
my $system_id = 'r123';
my $password = 'r_123';
my ($smpp, $resp_pdu) = Net::SMPP->new_transmitter(
$host,
system_id => $system_id,
password => $password,
system_type => 'r123',
port => $port
) or die "Cant connect to SMSC: $!";
print "PDU_resp ERROR: ".$resp_pdu->explain_status()
if $resp_pdu->status;
$smpp->enquire_link() or die "Unable to connect to SMSC";
$resp_pdu = $smpp->submit_sm(
destination_addr => '9610985672',
short_message => 'Hello World. via SMPP'
) or die;
print "PDU_resp ERROR: " . $resp_pdu->explain_status()
if $resp_pdu->status;
my $msg_id = $resp_pdu->{message_id};
print "\nEOF\n";
##sleep 30;
#$resp_pdu = $smpp->query_sm(message_id => $msg_id) or die;
#die "PDU_resp ERROR: ".$resp_pdu->explain_status() if $resp_pdu->stat
+us;
#print "\nMessage state is $resp_pdu->{message_state}\n";
i am getting the error as
D:\Perl>perl smpp1.pl
PDU_resp ERROR: Invalid source address (ESME_RINVSRCADR=0x0000000A)
EOF
The sms heading should be A$-SMS
Please help me to resolve this issue.
Thanks
Ram