From 5c037bcf180b49dc72b557f4a9fa688a0394db4e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 27 Apr 2020 19:32:39 +0100 Subject: [PATCH] try to fix the recursive brackets on PC61 ip --- perl/DXProtHandle.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index a28bb12b..9921d828 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -230,18 +230,19 @@ sub handle_11 $user = DXUser->new($spot[4]) unless $user; my $r = Route::get($spot[4]); my $ip = $spot[14] if exists $spot[14]; + my $implied = ''; if ($ip) { $user->ip($ip), $user->put if !$user->ip || $user->ip ne $ip; $r->ip($ip) if $r && !$r->ip; } else { $ip ||= $r->ip if $r; $ip ||= $user->ip; - $ip .= '*' if $ip; + $implied = '*' if $ip; } if (isdbg('progress')) { - $ip = $ip ? sprintf "($ip)" : ''; - my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]$ip\@$spot[7]", cldatetime($spot[2]); + my $sip = $ip ? sprintf "($ip$implied)" : ''; + my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]$sip\@$spot[7]", cldatetime($spot[2]); $s .= " '$spot[3]'" if $spot[3]; dbg($s); } -- 2.34.1