#
# Copyright (c) 1998 - Dirk Koopman
#
-# $Id$
+#
#
my ($self, $line) = @_;
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);
$ref->here(0);
my $s = DXProt::pc24($ref);
DXProt::eph_dup($s);
- DXProt::broadcast_all_ak1a($s, $DXProt::me) ;
+ DXChannel::broadcast_all_nodes($s, $main::me) ;
}
} else {
push @out, $self->msg('e3', "Unset Here", $call);