From f84b465bd691c4a5c7d94e903ec7de0f84a03fbc Mon Sep 17 00:00:00 2001 From: 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.43.0