From 625db73c7b7d1e3b8269503df195e932d0dedb4f Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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 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