[exceter]

Hi,

I have a transreceiver program in perl, connects to SMSC over SMPP protocol.
actually it works good, but the problem occurs when the connection is lost
stats giving this error and does not disconnect:
Generick nack pdu: $VAR1 = {};
premature eof reading from socket at Net/SMPP.pm line 2347.

what I am doing wrong? how to make it so that when the disconnection is lost, just try to reconnect. here is my code:

while (1) { #öèêë ñîçäàþùèé ñåññèè
$bCanLoop = 0;
ConnectSMPP();
my $lastEnqTime = time;
my $conterForDeleteFiles = 0;
warn "Next try to connect.";
if (!defined($smpp)){
warn "Connection failed.";
sleep 3;
next;
};
#if ($bCanLoop){
# $t = threads->new(\&Enquire_thread);
# warn "Connection established.";
#};
while ($bCanLoop){ # öèêë ÷òåíèÿ êîòðîëÿ â ðàçðåçå îäíîé ñåñññè
if (!defined($smpp->connected())){
warn "Connection lost.";
$bCanLoop = 0;
last; # ïðåêðàùàåì ðàáîòó - ñîêåòà ó íàñ ïî÷åìó òî íåò...
};
my $client;
my $wait_flag = 1;
# ñåöèÿ äëÿ ÷òåíèÿ
foreach $client ($select->can_read(2)){
$wait_flag = 0;
eval {
# ÷òåíèå èç ñîåäèíåíèÿ
my $pdu = $smpp->read_pdu();
ParsePdu($pdu);
};
if ($@) {
warn "Error on reading, Connection lost - waiting child: $@";
$bCanLoop = 0;
#if (defined($t)){
# $t->join();
#};
last; # ïðåêðàùàåì ðàáîòó - ñîêåòà íåò
};
};
# section for ENQUIRE_LINK
if ((time - $lastEnqTime) > 2){
$conterForDeleteFiles++;
if (!defined($smpp->connected())){
warn "Connection lost (Enquire_thread) - closing child.";
last; # socked failed - end of loop
};
eval {
foreach $client ($select->can_write(0.5)) {
$smpp->enquire_link('async');
$lastEnqTime = time;
};
};
if ($@) {
warn "Error on writing, Connection lost - closing child: $@";
$bCanLoop = 0;
last; # ïðåêðàùàåì ðàáîòó - ñîêåòà íåò
};
if ($conterForDeleteFiles > 10){
$conterForDeleteFiles > 0;
};
#SpamSender();
};
};
DisconnectSMPP();
};