X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=12caeef398d21c20b95d1f87e43b48d9c1bdd11d;hb=b7dedfebf0e11a5fc3050f8a0350a45a5a680e11;hp=898b004a71c2cc664373f68d3665d02b03032922;hpb=963a74a359bda8ac6c348977f70d85e8e879697a;p=spider.git diff --git a/perl/Filter.pm b/perl/Filter.pm index 898b004a..12caeef3 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -540,9 +540,9 @@ sub parse last; } } - return (0, $dxchan->msg('e20', $tok)) unless $found; + return (1, $dxchan->msg('e20', $tok)) unless $found; } else { - return (0, $dxchan->msg('filter2', $tok)); + return (1, $dxchan->msg('filter2', $tok)); } $lasttok = $tok; } @@ -561,13 +561,13 @@ sub parse sub cmd { my ($self, $dxchan, $sort, $type, $line) = @_; - return $dxchan->msg('filter5') unless $line; my ($r, $filter, $fno, $user, $s) = $self->parse($dxchan, $sort, $line); + return (1, $filter) if $r; + my $u = DXUser::get_current($user); return (1, $dxchan->msg('isow', $user)) if $u && $u->isolate; - return (1, $filter) if $r; my $fn = "filter$fno";