add git version to PC92C, improve senderverify

Senderverify will only now do so if there are users in the node
routing entry.

diff --git a/Changes b/Changes
index 620f23fe57cdb1dd87f3bc01ee654d0be7ba8a71..9b276931f2966b60b051b6edc6e076e4ab4676cf 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+19Feb25======================================================================
+1. Make sure that the routing table has a number of users as well as a last
+   PC92 C records. This will prevent some of the false negatives (just not
+   that many).
 16Feb25======================================================================
 1. Changed Internet.pm to set $contest = "contest.dxtron.com"; 
    This means that show/contest will work again. If you have a copy of

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 203ee34d300f8c4483b305f4932a9636e8cc9f28..27042ec921d3146e31591388422d210fc3302e1e 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -430,7 +430,7 @@ sub handle_11
                my $ip = $pcno == 61 ?  $pc->[8] : '';
                my ($hops) = $pc->[$pcno == 61 ? 9 : 8] =~ /H(\d+)/; 
 
-               if ($nroute && ($nroute->last_PC92C || ($local && !$local->do_pc9x))) {
+               if ($nroute && (($nroute->last_PC92C && $nroute->users) || ($local && !$local->do_pc9x))) {
 #                      $s .= "User $pc->[6] not logged in, " unless $uroute;
                        $s .= "User $pc->[6] not on node $pc->[7], " unless $nroute->is_user($pc->[6]);
 #                      $s .= "Node $pc->[7] at '$ip' not on Node's IP " . $nroute->ip if $ip && $nroute && $nroute->ip && $nroute->ip ne $ip;

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 14c36df96f20b3743ecb2b3e94fdeccd26f1863e..f1849cfd04c4bdd5325407c6995f277091bfd949 100644 (file)
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -448,6 +448,7 @@ sub pc92k
        $s .= "^" . scalar $nref->nodes;
        $s .= "^" . scalar $nref->users;
        $s .= "^$ipaddr" if $ipaddr;
+       $s .= "^$main::gitbranch/$main::gitversion" if $main::gitversion;
        return $s . '^H99^';
 }