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";
26 push @out, sprintf "Msg: %d From: %s Date: %6.6s %5.5s Subj: %-30.30s", $msgno,
27 $ref->from, cldate($ref->t), ztime($ref->t), $ref->subject;
28 @body = $ref->read_msg_body;
31 # mark my privates as read
32 if ($ref->private && $self->call eq $ref->to && $ref->read == 0) {
34 $ref->store(\@body); # note call by reference!