2 # kill or delete a message
4 # Copyright (c) Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @f = split /\s+/, $line;
17 $ref = DXMsg::get($msgno);
19 push @out, "Msg $msgno not found";
22 if ($ref->private && $self->priv < 9 && $ref->to ne $ref->call) {
23 push @out, "Msg $msgno not available";
27 push @out, "Message $msgno deleted";