4 # Copyright (c) 2001 - 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::wcy($chan, 0);
21 $chan->user->wantwcy(0);
22 push @out, $self->msg('wcyu', $call);
24 push @out, $self->msg('e3', "Unset WCY", $call);