From 625db73c7b7d1e3b8269503df195e932d0dedb4f Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 2 Jan 2022 08:57:43 +0000
Subject: [PATCH] hide route changes, increase sh/ann cache to 130.

---
 Changes              | 3 +++
 cmd/dx.pl            | 2 +-
 perl/AnnTalk.pm      | 2 +-
 perl/DXProtHandle.pm | 4 ++--
 4 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 517ec77d..210f782a 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 02Jan22=======================================================================
 1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
+2. Remove _add_thingy dbg message from general view.
+3. Increase sh/ann cache to 130 to cope with some client programs' profligate
+   need to fill their users' screens with needless erm... data. 
 01Jan22=======================================================================
 1. Fixed missing ';' in spoof
 30Dec21=======================================================================
diff --git a/cmd/dx.pl b/cmd/dx.pl
index 3aeca2ba..ea76aab5 100644
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -75,7 +75,7 @@ if (is_freq($f[1]) && $f[0] =~ m{^[\w\d]+(?:/[\w\d]+){0,2}$}) {
 }
 $line =~ s/^\s*$f[0]//;
 $line =~ s/^\s*$f[1]//;
-$line =~ s/^\s*//;
+$line =~ unpad($line);
 $line =~ s/\t+/ /g;				# do this here because it needs to be stopped ASAP!
 $line ||= ' ';
 
diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index ae3337f7..8c702e4e 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -40,7 +40,7 @@ $filterdef = bless ([
 			  ['origin_state', 'nz', 14],
 		   ], 'Filter::Cmd');
 
-our $maxcache = 30;
+our $maxcache = 130;
 our @anncache;
 
 sub init
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 942f6faa..c39b52e1 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1603,7 +1603,7 @@ sub _add_thingy
 				$user = DXUser::get($call);
 				unless ($user) {
 					$user = DXUser->new($call);
-					dbg("PCProt::_add_thingy new user $call");
+					dbg("PCProt::_add_thingy new user $call") if isdbg('route');
 				}
 			}
 			if ($is_node) {
@@ -1622,7 +1622,7 @@ sub _add_thingy
 						} else {
 							$user->sort('A');
 						}
-						dbg("PCProt::_add_thingy node $call sort updated " . $user->sort);
+						dbg("PCProt::_add_thingy node $call sort updated " . $user->sort) if isdbg('route');
 					}
 				}
 			} else {
-- 
2.43.0