From 75bf122b6d6d233a83a19be9842b21d546519023 Mon Sep 17 00:00:00 2001
From: minima <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.34.1