From 75bf122b6d6d233a83a19be9842b21d546519023 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 31 Jul 2000 21:38:26 +0000 Subject: [PATCH] initial vars and absolute R_ things in sh/node sh/lockout and sh/isolate --- cmd/show/isolate.pl | 4 ++-- cmd/show/lockout.pl | 4 ++-- cmd/show/node.pl | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/cmd/show/isolate.pl b/cmd/show/isolate.pl index c874e8a8..bb66e517 100644 --- a/cmd/show/isolate.pl +++ b/cmd/show/isolate.pl @@ -15,8 +15,8 @@ my @out; use DB_File; -my ($action, $count, $key, $data); -for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { +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 =>}) { my $u = DXUser->get_current($key); if ($u && $u->isolate) { diff --git a/cmd/show/lockout.pl b/cmd/show/lockout.pl index 8c9c488c..04d1ef12 100644 --- a/cmd/show/lockout.pl +++ b/cmd/show/lockout.pl @@ -15,8 +15,8 @@ my @out; use DB_File; -my ($action, $count, $key, $data); -for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { +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{lockout =>}) { my $u = DXUser->get_current($key); if ($u && $u->lockout) { diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 76372cb5..d45cad36 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -26,7 +26,7 @@ my $count; # search thru the user for nodes unless (@call) { - my ($action, $key, $data); + my ($action, $key, $data) = (0,0,0); for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) { if ($data =~ m{sort => '[ACRSX]'}) { push @call, $key; -- 2.43.0