Re^2: Net::smpp enquire_link

in reply to Re: Net::smpp enquire_link_resp
in thread Net::smpp enquire_link_resp

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]

Comment on Re^2: Net::smpp enquire_link_resp Download Code

Replies are listed 'Best First'.
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
I don't know if the answer is late, but I have the same problem, i think the solution is change the $c variable with $smpp in the loop.	[reply]
Re^5: Net::smpp enquire_link_resp by JEDU (Novice) on Mar 24, 2008 at 07:00 UTC
Hi, thanks, that was the problem, I change the call $me by $smpp And that's it.	[reply]
Re^6: Net::smpp enquire_link_resp by Anonymous Monk on Nov 24, 2011 at 14:10 UTC

In Section Seekers of Perl Wisdom