From 7dd07d0e32e95c4dc1ada18c92d3b5cce5c4d128 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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