{
my $dxchan = shift;
$dxchan->{conn}->set_error(undef) if exists $dxchan->{conn};
- $dxchan->disconnect;
+ $dxchan->disconnect(1);
}
# handle incoming messages
# set up the basic channel info
# is there one already connected to me - locally?
my $user = DXUser->get($call);
- if ($sort ne 'O' && Msg->conns($call)) {
+ my $dxchan = DXChannel->get($call);
+ if ($dxchan) {
my $mess = DXM::msg($lang, ($user && $user->is_node) ? 'concluster' : 'conother', $call, $main::mycall);
already_conn($conn, $call, $mess);
return;
}
# create the channel
- my $dxchan;
$dxchan = DXCommandmode->new($call, $conn, $user) if $user->is_user;
$dxchan = DXProt->new($call, $conn, $user) if $user->is_node;
$dxchan = BBS->new($call, $conn, $user) if $user->is_bbs;
for (;;) {
# $DB::trace = 1;
- Msg->event_loop(10, 0.001);
+ Msg->event_loop(10, 0.010);
my $timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them
# $DB::trace = 0;