2 # set the announce flag
4 # Copyright (c) 1998 - Dirk Koopman
9 my ($self, $line) = @_;
10 my @args = split /\s+/, $line;
14 @args = $self->call if (!@args || $self->priv < 9);
16 foreach $call (@args) {
18 my $chan = DXChannel->get($call);
21 push @out, $self->msg('anns', $call);
23 push @out, $self->msg('e3', "Set Announce", $call);