2 # show the contents of the message directory
4 # Copyright (c) Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @f = split /\s+/, $line;
17 foreach $ref (DXMsg::get_all()) {
18 next if $self->priv < 5 && $ref->private && $ref->to ne $self->call && $ref->from ne $self->call;
21 } elsif ($f[0] =~ /^O/o) { # dir/own
22 foreach $ref (DXMsg::get_all()) {
23 push @ref, $ref if $ref->private && ($ref->to eq $self->call || $ref->from eq $self->call);
25 } elsif ($f[0] =~ /^N/o) { # dir/new
26 foreach $ref (DXMsg::get_all()) {
27 push @ref, $ref if $ref->private && !$ref->read && $ref->to eq $self->call;
30 my @all = (DXMsg::get_all());
32 for ($i = $#all; $i > 0; $i--) {
34 next if $self->priv < 5 && $ref->private && $ref->to ne $self->call && $ref->from ne $self->call;
36 last if ++$count > 10;