197 |
{ |
{ |
198 |
# Connection closed |
# Connection closed |
199 |
$self->{'remoteClosed'}=1; |
$self->{'remoteClosed'}=1; |
200 |
$self->close(); |
$self->close(1, 'remoteClosed'); |
201 |
|
|
202 |
return; |
return; |
203 |
} |
} |
207 |
{ |
{ |
208 |
&::syslog('notice',"Connection closed: $!"); |
&::syslog('notice',"Connection closed: $!"); |
209 |
$self->{'remoteClosed'}=1; |
$self->{'remoteClosed'}=1; |
210 |
$self->close(); |
$self->close(1, 'remoteClosed'); |
211 |
|
|
212 |
return; |
return; |
213 |
} |
} |
244 |
{ |
{ |
245 |
&::syslog('notice',"Connection closed: $!"); |
&::syslog('notice',"Connection closed: $!"); |
246 |
$self->{'remoteClosed'}=1; |
$self->{'remoteClosed'}=1; |
247 |
$self->close(); |
$self->close(1, 'remoteClosed'); |
248 |
|
|
249 |
return; |
return; |
250 |
} |
} |
285 |
# Remove connection from list of connections |
# Remove connection from list of connections |
286 |
# |
# |
287 |
my $idx=undef; |
my $idx=undef; |
288 |
for(my $i=0;$i<scalar(@Connections);$i++) |
my $numcon = scalar(@Connections); |
289 |
|
for(my $i=0;$i<$numcon;$i++) |
290 |
{ |
{ |
291 |
if($Connections[$i]==$self) |
if($Connections[$i]==$self) |
292 |
{ |
{ |