2 # kill or delete a message
4 # Copyright (c) Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @f = split /\s+/, $line;
15 my $call = $self->call;
18 if ($f[0] =~ /^f/io) {
19 return (1, $self->msg('e5')) if $self->priv < 5;
27 $ref = DXMsg::get($msgno);
29 push @out, "Msg $msgno not found";
32 if ($self->priv < 5 &&
33 (($ref->private && $ref->to ne $self->call && $ref->from ne $self->call) ||
34 ($ref->private == 0 && $ref->from ne $self->call))) {
35 push @out, "Msg $msgno not available";
38 Log('msg', "Message $ref->{msgno} from $ref->{from} to $ref->{to} deleted by $call");
40 DXProt::broadcast_ak1a(DXProt::pc49($self->call, $ref->{subject}), $DXProt::me);
43 push @out, "Message $msgno deleted";