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.

diff --git a/Changes b/Changes
index a37bf744d0e8e2a1650c7e9d7cb1ba3fbe93b08d..e80e894a6e8fe8313d5905a51d3268595a639959 100644 (file)
--- 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 16623045ba106afef6b63272e5cdad006ad522e5..fed2cbeea1efad9eb25675aa209090fba341f19d 100644 (file)
--- 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 7d81561483ec4e361356731f96d5933d174667be..5b668ad0c5e6bf2c81e54bb9659cc1928e09ab58 100644 (file)
--- 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;