X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funset%2Fhere.pl;h=4da517c111cfe252d9fde761d317cdae619026ee;hb=3e075e9d00d74fd477c44db2b29eb3eac9d6d88a;hp=c1c7b0f73ed4e062f9396cfaa60af2ec324b74da;hpb=58234eafde7d75028574ae6aa519d2197120c558;p=spider.git diff --git a/cmd/unset/here.pl b/cmd/unset/here.pl index c1c7b0f7..4da517c1 100644 --- a/cmd/unset/here.pl +++ b/cmd/unset/here.pl @@ -16,23 +16,16 @@ my @out; foreach $call (@args) { $call = uc $call; my $dxchan = DXChannel->get($call); - my $ref = Route::User::get($call); if ($dxchan) { $dxchan->here(0); push @out, $self->msg('hereu', $call); + my $ref = Route::User::get($call); + $ref = Route::Node::get($call) unless $ref; if ($ref) { - my $s = DXProt::pc24($ref); - DXProt::eph_dup($s); - DXProt::broadcast_all_ak1a($s, $DXProt::me) ; $ref->here(0); - } elsif ($ref = Route::Node::get($call)) { my $s = DXProt::pc24($ref); DXProt::eph_dup($s); DXProt::broadcast_all_ak1a($s, $DXProt::me) ; - $ref->here(0); - } else { - $ref = Route::Node::get($call); - $ref->here(0) if $ref; } } else { push @out, $self->msg('e3', "Unset Here", $call);