- if ($ip) {
- $r->ip($ip);
- Log('DXProt', "PC92A $call -> $ip on $ncall");
- }
- if ($user && $user->sort eq 'U') {
- if (defined $version) {
- if ($version >= 5455 && $build > 0 || $version >= 3000 ) {
- $user->sort('S');
- } else {
- $user->sort('A');
- }
- dbg("PCProt::_add_thingy node $call sort updated " . $user->sort) if isdbg('route');
- }
+ if ($version) {
+ my $old = $user->sort;
+ if ($version >= 5455 && defined $build && $build > 0 || $version >= 3000 ) {
+ $user->sort('S');
+ dbg("PCProt::_add_thingy node $call sort ($old) updated to " . $user->sort) if isdbg('route');
+ }