From f84b465bd691c4a5c7d94e903ec7de0f84a03fbc Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 21 Jan 2003 15:13:34 +0000
Subject: [PATCH] fix passwd

---
 perl/DXUser.pm | 4 ++--
 perl/QXProt.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 08a6b9ff..16ea931f 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -145,12 +145,12 @@ sub init
 	
 	# do a conversion if required
 	if ($convert) {
-		my ($key, $val, $action, $count, $err);
+		my ($key, $val, $action, $count, $err) = ('','',0,0,0);
 		
 		my %oldu;
 		dbg("Converting the User File to V3");
 		my $odbm = tie (%oldu, 'DB_File', "${fn}.v2", O_RDONLY, 0666, $DB_BTREE) or confess "can't open user file: $fn ($!) [rebuild it from user_asc?]";
-        for ($count = $err = 0, $action = R_FIRST; !$odbm->seq($key, $val, $action); $action = R_NEXT) {
+        for ($action = R_FIRST; !$odbm->seq($key, $val, $action); $action = R_NEXT) {
 			my $ref = asc_decode($val);
 			if ($ref) {
 				$u{$key} = $ref->encode;
diff --git a/perl/QXProt.pm b/perl/QXProt.pm
index 38d878ed..10ad4aa4 100644
--- a/perl/QXProt.pm
+++ b/perl/QXProt.pm
@@ -163,7 +163,7 @@ sub handleI
 	my $self = shift;
 	
 	my @f = split /\^/, $_[3];
-	if ($self->passphrase && $f[7] && $f[8]) {
+	if ($self->user->passphrase && $f[7] && $f[8]) {
 		my $inv = Verify->new($f[7]);
 		unless ($inv->verify($f[8], $main::me->user->passphrase, $main::mycall, $self->call)) {
 			$self->sendnow('D','Sorry...');
-- 
2.34.1