X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=181e3054c77d83611a97ba20d9aea4736ae5ef47;hb=17ad5480c740a4949f94e357139703c728a167d4;hp=e062b65ed7c7184808042c4d51c23018af931901;hpb=2f1b948ea733e0ece1909a31987dc8f03044e851;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index e062b65e..181e3054 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -115,7 +115,8 @@ sub new_channel
 	# 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;
@@ -150,7 +151,6 @@ sub new_channel
 	}
 
 	# 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;