From 7f0e53a059144b444ef04ea7609ce0049a4ae268 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1