X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=abdcaba7363d8dbb2c8e682ed52a23cf644bfbeb;hb=874ee7e39c3d38f5b52226ced9486af33a7505c4;hp=f9fa611a8ef37ad4d931d4d1a4a862d8fc4fa1a7;hpb=2b58ccdf81685a1167a43c38705a0d84b9d8d661;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index f9fa611a..abdcaba7 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -195,7 +195,7 @@ sub it
 	my $key;
 	my $type = 'Dunno';
 	my $asc = '?';
-	
+
 	my $r = @keys > 0 ? 0 : 1;
 	foreach $key (@keys) {
 		$filter = $self->{$key};
@@ -517,7 +517,9 @@ sub cmd
 	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";