From 7dd07d0e32e95c4dc1ada18c92d3b5cce5c4d128 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 31 Jan 2023 11:49:12 +0000
Subject: [PATCH] add thicker belt & braces to pc92 field checking

---
 perl/DXProtHandle.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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);
-- 
2.43.0