From a313d9c8eb2ea8bbdbe9b5d6e49583d0d422a621 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 3 Jan 2007 11:17:02 +0000
Subject: [PATCH] split pc92 from non pc92 nodes in init

---
 perl/DXProt.pm       | 4 ++--
 perl/DXProtHandle.pm | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 24cffb8d..ba4f21d9 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -770,8 +770,8 @@ sub send_pc92_config
 
 	dbg('DXProt::send_pc92_config') if isdbg('trace');
 
-	# send 'my' configuration
-	my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all();
+	# send 'my' configuration for all users and pc92 capable nodes
+	my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $self->{do_pc92} } DXChannel::get_all();
 	my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan;
 	$self->send_route_pc92($main::mycall, \&pc92c, scalar @localnodes, @localnodes);
 
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 858ea00e..5715902c 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1264,7 +1264,8 @@ sub _encode_pc92_call
 	$flag |= $ref->here ? 1 : 0;
 	if ($ref->isa('Route::Node') || $ref->isa('DXProt')) {
 		$flag |= 4;
-		$flag |= 2 if $call ne $main::mycall && DXChannel::get($call);
+		my $dxchan = DXChannel::get($call);
+		$flag |= 2 if $call ne $main::mycall && $dxchan && !$dxchan->{do_pc92};
 		if ($ext) {
 			if ($ref->version) {
 				my $version = $ref->version || 1.0;
-- 
2.34.1