# send a ping out on this channel
if ($dxchan->{pingint} && $t >= $dxchan->{pingint} + $dxchan->{lastping}) {
-# if ($dxchan->{nopings} <= 0) {
-# $dxchan->disconnect;
-# } else {
+ if ($dxchan->{nopings} <= 0) {
+ $dxchan->disconnect;
+ } else {
addping($main::mycall, $dxchan->call);
$dxchan->{nopings} -= 1;
$dxchan->{lastping} = $t;
-# }
+ }
}
}
my $name;
foreach $name (@names) {
next if $name =~ /^\./;
- my $splitit = $name =~ /^split/;
my $fn = "$chatimportfn/$name";
next unless -f $fn;
unless (open(MSG, $fn)) {