projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove $Id$ strings from everywhere that I can find
[spider.git]
/
cmd
/
show
/
isolate.pl
diff --git
a/cmd/show/isolate.pl
b/cmd/show/isolate.pl
index bb66e5177777a7d9069e7a5537eae934e2733a15..17470bde4b69645abb7ced95e6e73e6d82fb5eba 100644
(file)
--- a/
cmd/show/isolate.pl
+++ b/
cmd/show/isolate.pl
@@
-5,7
+5,7
@@
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
@@
-16,8
+16,8
@@
my @out;
use DB_File;
my ($action, $count, $key, $data) = (0,0,0,0);
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
=>
}) {
+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;
my $u = DXUser->get_current($key);
if ($u && $u->isolate) {
push @out, $key;