$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;
$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;