From 7f0e53a059144b444ef04ea7609ce0049a4ae268 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 9 Jul 2007 17:45:30 +0100 Subject: [PATCH] Allow PC10s to be converted to PC93 and be processed The PC10 code converts all input to PC93 where all talk processing is done. It was being called from the wrong channel. --- Changes | 3 +++ perl/DXProtHandle.pm | 5 +++-- perl/Version.pm | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index a37bf744..e80e894a 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +09Jul07======================================================================= +1. remove check for PC93 from legacy nodes. This will allow PC10s to be +propagated correctly. Probably. 08Jul07======================================================================= 1. put in a temporary fix to the crashing on incoming PC10 talks, whilst I try to work out how it is happening. diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 16623045..fed2cbee 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -106,8 +106,8 @@ sub handle_10 RouteDB::update($_[6], $self->{call}); # RouteDB::update($to, $_[6]); - # convert this to a PC93 and process it as such - $self->normal(pc93($to, $from, $via, $_[3], $_[6])); + # convert this to a PC93, coming from mycall with origin set and process it as such + $main::me->normal(pc93($to, $from, $via, $_[3], $_[6])); } # DX Spot handling @@ -1696,6 +1696,7 @@ sub handle_93 return; } + # remember that we are converting PC10->PC93 unless ($self->{do_pc9x}) { dbg("PCPROT: PC9x come in from non-PC9x node, ignored") if isdbg('chanerr'); return; diff --git a/perl/Version.pm b/perl/Version.pm index 7d815614..5b668ad0 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '109'; +$build = '110'; 1; -- 2.43.0