X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=dd56498e053eb22b2c0ebc7ed69c46151a764d6e;hb=2fe3813e70786483d2d928f8fa44eb9ff9cb76ca;hp=a4283c33fb984e81450dbfe750f2ce4d7797e7eb;hpb=710e02b70cb2530802812577229cd62a50da8090;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a4283c33..dd56498e 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -499,7 +499,7 @@ print "There are $count user records and $err errors in $diff mS\n";
 				$t //= 0;
 				
 				if ($ref->is_user) {
-					if ($ref->{priv} == 0 && $main::systime > $t + $tooold) {
+					if (!$ref->{priv} && $main::systime > $t + $tooold) {
 						unless (($ref->{lat} && $ref->{long}) || $ref->{qth} || $ref->{name} || $ref->{qra}) {
 							LogDbg('DXCommand', sprintf("$ref->{call} deleted, empty and too Old at %s", difft($t, ' ')));
 							++$del;
@@ -517,7 +517,7 @@ print "There are $count user records and $err errors in $diff mS\n";
 						dbg(carp("Export Error2: delete '$key' => '$val' $@")) if $@;
 						next;
 					}
-					if ($ref->{lockout} == 1 && $ref->{priv} == 1) {
+					if (exists $ref->{lockout} && $ref->{lockout} == 1 && exists $ref->{priv} && $ref->{priv} == 1) {
 						LogDbg('DXCommand', "$ref->{call} depriv'd and unlocked");
 						$ref->{lockout} = $ref->{priv} = 0;
 						$ref->put;