From d8b9ca222a816c470dfd9455e09b1a861f8624a1 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 17 Nov 2007 15:38:42 +0000 Subject: [PATCH] and stop incoming LOCAL pc93 being displayed --- perl/DXProtHandle.pm | 8 ++++++++ perl/Version.pm | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 626b3dae..b1726e98 100644 --- 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 9a1c013d..ee36fd9a 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 = '186'; +$build = '187'; 1; -- 2.43.0