From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 19 Feb 2025 15:50:44 +0000 (+0000)
Subject: add git version to PC92C, improve senderverify
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Ftest;p=spider.git

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 620f23fe..9b276931 100644
--- 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 203ee34d..27042ec9 100644
--- 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 14c36df9..f1849cfd 100644
--- 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^';
 }