X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=d7b3228f6b2aac52ff4602d7a6242aeeb2c6c034;hb=5aaaa0212b6bda5def233ffce515d889b8e547e7;hp=6ad2a0ad8b3edce0dc05fdffe3a107cb99e41938;hpb=bcf099764f49e68ef016964e420b906e7900623e;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6ad2a0ad..d7b3228f 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -377,7 +377,7 @@ sub new_channel
 	# set up the basic channel info
 	# is there one already connected to me - locally? 
 	my $user = DXUser->get_current($call);
-	my $dxchan = DXChannel->get($call);
+	my $dxchan = DXChannel::get($call);
 	if ($dxchan) {
 		if ($user && $user->is_node) {
 			already_conn($conn, $call, DXM::msg($lang, 'concluster', $call, $main::mycall));
@@ -459,13 +459,13 @@ sub cease
 	dbg("Local::finish error $@") if $@;
 
 	# disconnect nodes
-	foreach $dxchan (DXChannel->get_all_nodes) {
+	foreach $dxchan (grep {$_->is_node || $_->is_aranea} DXChannel::get_all()) {
 	    $dxchan->disconnect(2) unless $dxchan == $main::me;
 	}
 	Msg->event_loop(100, 0.01);
 
 	# disconnect users
-	foreach $dxchan (DXChannel->get_all_users) {
+	foreach $dxchan (DXChannel::get_all_users) {
 		$dxchan->disconnect;
 	}