projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
start of mojo conversion
[spider.git]
/
cmd
/
unset
/
here.pl
diff --git
a/cmd/unset/here.pl
b/cmd/unset/here.pl
index 4da517c111cfe252d9fde761d317cdae619026ee..59b2080a3197d8131a0d13a31bf82ec5d9fae9b1 100644
(file)
--- a/
cmd/unset/here.pl
+++ b/
cmd/unset/here.pl
@@
-3,7
+3,7
@@
#
# Copyright (c) 1998 - Dirk Koopman
#
#
# Copyright (c) 1998 - Dirk Koopman
#
-#
$Id$
+#
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
@@
-15,7
+15,7
@@
my @out;
foreach $call (@args) {
$call = uc $call;
foreach $call (@args) {
$call = uc $call;
- my $dxchan = DXChannel
->
get($call);
+ my $dxchan = DXChannel
::
get($call);
if ($dxchan) {
$dxchan->here(0);
push @out, $self->msg('hereu', $call);
if ($dxchan) {
$dxchan->here(0);
push @out, $self->msg('hereu', $call);
@@
-25,7
+25,7
@@
foreach $call (@args) {
$ref->here(0);
my $s = DXProt::pc24($ref);
DXProt::eph_dup($s);
$ref->here(0);
my $s = DXProt::pc24($ref);
DXProt::eph_dup($s);
- DX
Prot::broadcast_all_ak1a($s, $DXProt
::me) ;
+ DX
Channel::broadcast_all_nodes($s, $main
::me) ;
}
} else {
push @out, $self->msg('e3', "Unset Here", $call);
}
} else {
push @out, $self->msg('e3', "Unset Here", $call);