X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fregistered.pl;h=5eb6d78d7264ce670582e9a728e9660ab493b9a2;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=e4b6bce958c54f1ed8fffdd77f33fc5ba365f2b6;hpb=4888cab7f56fbed40bf28477fe3f9c0ee9977a7c;p=spider.git diff --git a/cmd/show/registered.pl b/cmd/show/registered.pl index e4b6bce9..5eb6d78d 100644 --- a/cmd/show/registered.pl +++ b/cmd/show/registered.pl @@ -5,7 +5,7 @@ # # Copyright (c) 2001 Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; @@ -24,7 +24,7 @@ my ($action, $count, $key, $data) = (0,0,0,0); eval qq{for (\$action = DXUser::R_FIRST, \$count = 0; !\$DXUser::dbm->seq(\$key, \$data, \$action); \$action = DXUser::R_NEXT) { if (\$data =~ m{registered}) { if (!\$line || (\$line && \$key =~ /^$line/)) { - my \$u = DXUser->get_current(\$key); + my \$u = DXUser::get_current(\$key); if (\$u && \$u->registered) { push \@out, \$key; ++\$count;