4 # Copyright (c) 2000 Dirk Koopman G1TLH
8 my ($self, $line) = @_;
9 my @f = split /\s+/, $line;
14 my $f = lc shift @f if @f;
15 if ($self->priv >= 8) {
16 my $d = DXChannel->get(uc $f);
18 $f = lc shift @f if @f;
25 foreach $key (sort keys %$self) {
26 if ($key =~ /$sort$/) {
27 push @out, $self->{$key}->print if $self->{$key};
30 push @out, $self->msg('filter3', $dxchan->call) unless @out;