and stop incoming LOCAL pc93 being displayed

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 626b3daee4d66e53fcc9fee81900a656bb30f5ed..b1726e98a1f4ae6ac184374d497f3943c6132f07 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1887,6 +1887,12 @@ sub handle_93
                return;
        }
 
+       # ignore PC93 coming in from outside this node with a target of local
+       if ($to eq 'LOCAL' && $self != $main::me) {
+               dbg("PCPROT: incoming LOCAL chat not from local node, ignored") if isdbg('chanerr');
+               return;
+       }
+
        # if it is routeable then then treat it like a talk
        my $ref = Route::get($to);
        if ($ref) {
@@ -1934,6 +1940,8 @@ sub handle_93
                # chat messages to non-pc9x nodes
                $self->send_chat(1, pc12($from, $text, undef, $to, undef, $pcall), $from, '*', $text, $to, $pcall, '0');
        }
+
+       # broadcast this chat sentence everywhere unless it is targetted to 'LOCAL'
        $self->broadcast_route_pc9x($pcall, undef, $line, 0) unless $to eq 'LOCAL' || $via eq 'LOCAL';
 }
 

diff --git a/perl/Version.pm b/perl/Version.pm
index 9a1c013d1fbd628410cea32d40379160cb539618..ee36fd9a83f57c7263745255bc694361ccc10781 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 = '186';
+$build = '187';
 
 1;