projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix set/here and unset/here
[spider.git]
/
cmd
/
set
/
here.pl
diff --git
a/cmd/set/here.pl
b/cmd/set/here.pl
index 8d5665c94366dd5497cc41245404f349377f1f7a..44fc4d4b99ca234a1fb8bb63c6f37b35894e847c 100644
(file)
--- a/
cmd/set/here.pl
+++ b/
cmd/set/here.pl
@@
-16,23
+16,16
@@
my @out;
foreach $call (@args) {
$call = uc $call;
my $dxchan = DXChannel->get($call);
foreach $call (@args) {
$call = uc $call;
my $dxchan = DXChannel->get($call);
- my $ref = Route::User::get($call);
if ($dxchan) {
$dxchan->here(1);
push @out, $self->msg('heres', $call);
if ($dxchan) {
$dxchan->here(1);
push @out, $self->msg('heres', $call);
+ my $ref = Route::User::get($call);
+ $ref = Route::Node::get($call) unless $ref;
if ($ref) {
if ($ref) {
- my $s = DXProt::pc24($ref);
- DXProt::eph_dup($s);
- DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
$ref->here(1);
$ref->here(1);
- } elsif ($ref = Route::Node::get($call)) {
my $s = DXProt::pc24($ref);
DXProt::eph_dup($s);
DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
my $s = DXProt::pc24($ref);
DXProt::eph_dup($s);
DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
- $ref->here(1);
- } else {
- $ref = Route::Node::get($call);
- $ref->here(1) if $ref;
}
} else {
push @out, $self->msg('e3', "Set Here", $call);
}
} else {
push @out, $self->msg('e3', "Set Here", $call);