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