X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=60040e4d525b527732abc578e0724462868e1325;hb=7dd07d0e32e95c4dc1ada18c92d3b5cce5c4d128;hp=600bfd8f61db19163be7fdae8cb3da3de426d5fc;hpb=5756741d9682667ae5b0442c4e6f609bd481b6eb;p=spider.git

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