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);
20 DXChannel::wwv($chan, 0);
21 $chan->user->wantwwv(0);
22 push @out, $self->msg('wwvu', $call);
24 push @out, $self->msg('e3', "Unset WWV", $call);