hide route changes, increase sh/ann cache to 130.

diff --git a/Changes b/Changes
index 517ec77de0c10de4c6925455da0a8a1ec5573de9..210f782a67ead2fd4e5b0187a2e2d6a2bf0e23c7 100644 (file)
--- 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 3aeca2ba3e075a060a6ea5c3bfa254215a52928b..ea76aab58bb3e2e309e003223eb121bd9a41dc1e 100644 (file)
--- 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 ae3337f764e6b44d5aa5a2c54eeeaa33ce24e60f..8c702e4edffc214a3dac6f311454690e31418f35 100644 (file)
--- 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 942f6faa61742fa5ace3edcb91630d176eab4b43..c39b52e1da6b004982c92f667faa25d5ffc20705 100644 (file)
--- 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 {