X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=136ddee13deed71e2b849efe0c7100ae2f96fdca;hb=7bf828b924d7d1ddc7c81e65d816bdc36f55a92f;hp=8b856b13736834dad51505141621417dc7fcc7f0;hpb=e11cbc59392fe1d2c9f2212ce1b4f461932dfe87;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 8b856b13..136ddee1 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -491,7 +491,7 @@ print "There are $count user records and $err errors\n";
 			my $ref = decode($val);
 			if ($ref) {
 				my $t = $ref->{lastin} || 0;
-				if ($main::systime > $t + $tooold) {
+				if ($ref->{sort} eq 'U' && !$ref->{priv} && $main::systime > $t + $tooold) {
 					unless ($ref->{lat} && $ref->{long} || $ref->{qth} || $ref->{qra}) {
 						eval {$dbm->del($key)};
 						dbg(carp("Export Error2: $key\t$val\n$@")) if $@;