next if DXChannel::get($call);
$user = DXUser::get($call);
dbg("DXProt::_add_thingy call $call normalised to $normcall, deleting spurious user $call");
next if DXChannel::get($call);
$user = DXUser::get($call);
dbg("DXProt::_add_thingy call $call normalised to $normcall, deleting spurious user $call");
$r->PC92C_dxchan($dxchan->call, $hops) if $r;
if ($version && $version =~ /\d+/) {
my $old = $user->sort;
$r->PC92C_dxchan($dxchan->call, $hops) if $r;
if ($version && $version =~ /\d+/) {
my $old = $user->sort;
$oldbuild =~ s/^0\.//;
my $oldversion = $parent->version // 0;
my $user = check_add_user($parent->call, 'S');
$oldbuild =~ s/^0\.//;
my $oldversion = $parent->version // 0;
my $user = check_add_user($parent->call, 'S');
if ($oldsort ne 'S' || $oldversion != $version || $build != $oldbuild) {
dbg("PCProt PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild) sort: 'S' (was $oldsort)");
$user->sort('S');
if ($oldsort ne 'S' || $oldversion != $version || $build != $oldbuild) {
dbg("PCProt PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild) sort: 'S' (was $oldsort)");
$user->sort('S');