From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 17 Nov 2007 15:38:42 +0000 (+0000)
Subject: and stop incoming LOCAL pc93 being displayed
X-Git-Tag: 1.55~33
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8b9ca222a816c470dfd9455e09b1a861f8624a1;p=spider.git

and stop incoming LOCAL pc93 being displayed
---

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;