X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=60d49eafe72e3d7b7f613f068f75cc132f273324;hb=c6a62ff483f8887b4157e111a405fef971ade8d9;hp=60fc1afda1d69c2572710e9252445e4149f75d5f;hpb=acf26488adcdf8852419818897405d10f895e16a;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 60fc1afd..60d49eaf 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -513,7 +513,7 @@ print "There are $count user records and $err errors\n";
 			my $ref = decode($val);
 			if ($ref) {
 				my $t = $ref->{lastin} || 0;
-				if ($ref->{sort} eq 'U' && !$ref->{priv} && $main::systime > $t + $tooold) {
+				if ($ref->is_user && !$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 $@;
@@ -752,7 +752,7 @@ sub wantlogininfo
 sub is_node
 {
 	my $self = shift;
-	return $self->{sort} =~ /[ACRSX]/;
+	return $self->{sort} =~ /^[ACRSX]$/;
 }
 
 sub is_local_node
@@ -764,7 +764,13 @@ sub is_local_node
 sub is_user
 {
 	my $self = shift;
-	return $self->{sort} eq 'U';
+	return $self->{sort} =~ /^[UW]$/;
+}
+
+sub is_web
+{
+	my $self = shift;
+	return $self->{sort} eq 'W';
 }
 
 sub is_bbs