Net::smpp enquire_link

JEDU has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I have and issue when I use Net::smpp in case of enquire_link_resp, I get the bind with no problem and I send messages... ok, but when SMSc request enquire_link_resp sometho\ing happen the loop is :

while (1) {
    warn "Waiting for PDU";
    $pdu = $smpp->read_pdu() or die "$$: PDU not read. Closing connect
+ion";
    print "Received #$pdu->{seq} $pdu->{cmd}:". Net::SMPP::pdu_tab->{$
+pdu->{cmd}}{cmd} ."\n"
    ;
    warn Dumper($pdu) if $trace;

    if (defined reply_tab->{$pdu->{cmd}}) {
    &{reply_tab->{$pdu->{cmd}}{reply}}($c, $pdu);
    warn "Replied";
    } else {
    warn "Don't know to reply to $pdu->{cmd}";
    sleep 1;
    }
}
[download]

That mach with

0x00000015 => { cmd => 'enquire_link',
            reply => sub { my ($me, $pdu) = @_;
                   $me->enquire_link_resp(seq => $pdu->{seq}) }, },
[download]

But when an enquire_link is recived I get this:

Received #2 21:enquire_link
$VAR1 = bless( {
                 'known_pdu' => 1,
                 'cmd' => 21,
                 'status' => 0,
                 'data' => '',
                 'reserved' => undef,
                 'seq' => 2
               }, 'Net::SMPP::PDU' );
Can't call method "enquire_link_resp" on an undefined value at .....es
+me-re.pl line 89.
[download]

20061213 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

Comment on Net::smpp enquire_link_resp Select or Download Code

Replies are listed 'Best First'.
Re: Net::smpp enquire_link_resp by themage (Friar) on Dec 12, 2006 at 09:50 UTC
Hi JEDU, I presume this is your line 89 (it's the first call to `reply_tab->{$pdu->{cmd}}`): `if (defined reply_tab->{$pdu->{cmd}}) {` [download] So, my questions are: What is reply_tab (a sub that return an object or a missing $ )? is reply_tab return what is should? TheMage Talking Web	[reply] [d/l] [select]
Re^2: Net::smpp enquire_link_resp by JEDU (Novice) on Dec 13, 2006 at 05:59 UTC
Hi, no the line 89 is: 0x00000015 => { cmd => 'enquire_link', The reply_tab is a sub that process the PDU in case of match send a re +ply to PDU use constant reply_tab => { 0x80000000 => { cmd => 'generic_nack', reply => undef, }, 0x00000001 => { cmd => 'bind_receiver', reply => sub { my ($me,$pdu) = @_; $me->set_version(0x34); $me->bind_receiver_resp(system_id => $sysid, seq => $pdu->{seq}); . . . . 0x00000015 => { cmd => 'enquire_link', reply => sub { my ($me, $pdu) = @_; $me->enquire_link_resp(seq => $pdu->{seq}) }, }, . . .} Reply_tab do not return the correct answer... [download]	[reply] [d/l]
Re^3: Net::smpp enquire_link_resp by themage (Friar) on Dec 13, 2006 at 10:29 UTC
Hi JEDU, If the line 89 is the code you past now, then the undefined value you're calling enquire_link_resp is $me in your 0x0...015 reply sub. I presume that the call to that sub is not being done with the correct values. It looks like you have a complex code, so you may need to debug it carefully to find in which step you lose the $me value. TheMage Talking Web	[reply]
Re^4: Net::smpp enquire_link_resp by Anonymous Monk on Jan 31, 2008 at 14:42 UTC
Re^5: Net::smpp enquire_link_resp by JEDU (Novice) on Mar 24, 2008 at 07:00 UTC
Some notes below your chosen depth have not been shown here

Back to Seekers of Perl Wisdom