X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=e92ca8a1acbada27e04fac33e8e3c64dd105d24b;hb=cfde73187c90e1c260c2339332b7773ecfbb8309;hp=6b7d1b949bf363a5c640e2405fef3d38e0e95fec;hpb=6e1e3dbb021d95286ba02e27ac96d53abdbb3823;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6b7d1b94..e92ca8a1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1688,10 +1688,10 @@ sub addrcmd
 sub disconnect
 {
 	my $self = shift;
-	my $nopc39 = shift;
+	my $pc39flag = shift;
 	my $call = $self->call;
 
-	unless ($nopc39) {
+	unless ($pc39flag && $pc39flag == 1) {
 		$self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
 	}
 
@@ -1701,18 +1701,20 @@ sub disconnect
 	
 	# create a list of all the nodes that have gone and delete them from the table
 	my @nodes;
-	foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
-		next if $node->dxchancall eq $call;
+	foreach my $node (grep { $_->dxchancall eq $call } DXNode::get_all) {
+		next if $node->call eq $call;
 		next if $node->call eq $main::mycall;
 		push @nodes, $node->call;
 		$node->del;
 	}
 
 	# broadcast to all other nodes that all the nodes connected to via me are gone
-	unless ($self->{isolate}) {
-		push @nodes, $call;
-		for (@nodes) {
-			broadcast_ak1a(pc21($_, 'Gone.'), $self);
+	unless ($pc39flag && $pc39flag == 2) {
+		unless ($self->{isolate}) {
+			push @nodes, $call;
+			for (@nodes) {
+				broadcast_ak1a(pc21($_, 'Gone.'), $self);
+			}
 		}
 	}