X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fisolate.pl;h=2bc943764835b180851010f1307507d936eb0caa;hb=cfd6c95eaa4899f2c70eca3d706d85b840c43791;hp=35eb822a2920f5341a15ec57b262b2f8116fbfa3;hpb=14a9a81ec729e7b3c78d775cc76882e7122fcf2d;p=spider.git diff --git a/cmd/show/isolate.pl b/cmd/show/isolate.pl index 35eb822a..2bc94376 100644 --- a/cmd/show/isolate.pl +++ b/cmd/show/isolate.pl @@ -16,8 +16,8 @@ my @out; use DB_File; my ($action, $count, $key, $data) = (0,0,0,0); -for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) { - if ($data =~ m{isolate\s*=>}) { +for ($action = DXUser::R_FIRST, $count=0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) { + if ($data =~ m{isolate}) { my $u = DXUser->get_current($key); if ($u && $u->isolate) { push @out, $key;