<?xml version="1.0" encoding="windows-1252"?>
<node id="1008232" title="issue in SMS Connectivity" created="2012-12-11 03:13:19" updated="2012-12-11 03:13:19">
<type id="115">
perlquestion</type>
<author id="916379">
rammoorthi</author>
<data>
<field name="doctext">
Hi,

This is ram. i am getting the error while sending a sms using smpp.

the code is:
&lt;code&gt;
#!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-&gt;new_transmitter(
    $host,
    system_id =&gt; $system_id,
    password  =&gt; $password,
	system_type =&gt; 'r123',
	port      =&gt; $port
) or die "Cant connect to SMSC: $!";
print "PDU_resp ERROR: ".$resp_pdu-&gt;explain_status()
 if $resp_pdu-&gt;status;

$smpp-&gt;enquire_link() or die "Unable to connect to SMSC";
$resp_pdu = $smpp-&gt;submit_sm(
    destination_addr =&gt; '9610985672',
    short_message    =&gt; 'Hello World. via SMPP'
) or die;
print "PDU_resp ERROR: " . $resp_pdu-&gt;explain_status() 
if $resp_pdu-&gt;status;
my $msg_id = $resp_pdu-&gt;{message_id};

print "\nEOF\n";
##sleep 30;
#$resp_pdu = $smpp-&gt;query_sm(message_id =&gt; $msg_id) or die;
#die "PDU_resp ERROR: ".$resp_pdu-&gt;explain_status() if $resp_pdu-&gt;status;
#print "\nMessage state is $resp_pdu-&gt;{message_state}\n";

&lt;/code&gt;

i am getting the error as

&lt;code&gt;


D:\Perl&gt;perl smpp1.pl
PDU_resp ERROR: Invalid source address (ESME_RINVSRCADR=0x0000000A)
EOF

&lt;/code&gt;

The sms heading should be A$-SMS

Please help me to resolve this issue.

Thanks
Ram
</field>
</data>
</node>
