From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 31 Jan 2023 11:49:12 +0000 (+0000)
Subject: add thicker belt & braces to pc92 field checking
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7dd07d0e32e95c4dc1ada18c92d3b5cce5c4d128;p=spider.git

add thicker belt & braces to pc92 field checking
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 600bfd8f..60040e4d 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -2390,8 +2390,10 @@ sub handle_93
 	my $text = $pc->[6];
 	my $onode = uc $pc->[7];
 	my $ipaddr = $pc->[8];
-	
+
+	$onode = undef unless $onode && is_callsign($onode);
 	$onode //= $pcall;
+	$ipaddr = undef unless $ipaddr && is_ipaddr($ipaddr);
 
 	# this is catch loops caused by bad software ...
 	if (eph_dup("PC93|$from|$text|$onode", $pc10_dupe_age)) {
@@ -2513,7 +2515,7 @@ sub handle_default
 sub populate_routing_table
 {
 	my ($self, $node, $user, $ip) = @_;
-
+	
 	my $rn = Route::Node::get($node);
 	unless ($rn) {
 		$rn = Route::Node->new($node);