X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Ffilter.pl;h=f3aab0166c259f5e1b8cdc6f24a0b143e419d159;hb=f63d598af3f797b56b8d5e23ec4ff5254192eee9;hp=345603b847456060293214f153246e4ad3f02b45;hpb=ebbe325acb6e18437ae01cb1b32e615c83e24641;p=spider.git diff --git a/cmd/show/filter.pl b/cmd/show/filter.pl index 345603b8..f3aab016 100644 --- a/cmd/show/filter.pl +++ b/cmd/show/filter.pl @@ -3,17 +3,19 @@ # # Copyright (c) 2000 Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; my @f = split /\s+/, $line; my @out; my $call = $self->call; -if (@f && $self->priv >= 8) { +if (@f) { if (is_callsign(uc $f[0])) { + return (1, $self->msg('e5')) unless $self->priv >= 1; $call = uc shift @f; } elsif ($f[0] eq 'node_default' || $f[0] eq 'user_default') { + return (1, $self->msg('e5')) unless $self->priv >= 1; $call = shift @f; } } @@ -22,7 +24,7 @@ my @in; if (@f) { push @in, @f; } else { - push @in, qw(ann spots wcy wwv); + push @in, qw(route ann spots wcy wwv); } my $sort;