prevent LOCAL chat from propagating outside node

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 3e4d3134d40ba532bec9138fab4503679ffe2f30..626b3daee4d66e53fcc9fee81900a656bb30f5ed 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1934,7 +1934,7 @@ 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');
        }
-       $self->broadcast_route_pc9x($pcall, undef, $line, 0);
+       $self->broadcast_route_pc9x($pcall, undef, $line, 0) unless $to eq 'LOCAL' || $via eq 'LOCAL';
 }
 
 # if get here then rebroadcast the thing with its Hop count decremented (if

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