X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=de55f1b6e84d01ffa170d215fa91b759d02d0e50;hb=2d43d3782490b5d684dec9852e05f927c7fa305a;hp=17a78f707528dac6175514c97f4bb5dd70a138c5;hpb=01b01c20b852c5d4c7e14c13313664beedb03930;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 17a78f70..de55f1b6 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -272,32 +272,9 @@ sub get
 	my $call = uc shift;
 	my $data;
 	
-	# is it in the LRU cache?
 	my $ref = $u{$call} if exists $u{$call};
-#	my $ref = $lru->get($call);
 	return $ref if $ref && ref $ref eq 'DXUser';
 	
-	# search for it
-	# unless ($dbm->get($call, $data)) {
-	# 	eval { $ref = decode($data); };
-		
-	# 	if ($ref) {
-	# 		if (!UNIVERSAL::isa($ref, 'DXUser')) {
-	# 			dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring");
-	# 			return undef;
-	# 		}
-	# 		# we have a reference and it *is* a DXUser
-	# 	} else {
-	# 		if ($@) {
-	# 			LogDbg('err', "DXUser::get decode error on $call '$@'");
-	# 		} else {
-	# 			dbg("DXUser::get: no reference returned from decode of $call $!");
-	# 		}
-	# 		return undef;
-	# 	}
-	# 	$lru->put($call, $ref);
-	# 	return $ref;
-	# }
 	return undef;
 }
 
@@ -466,7 +443,7 @@ sub export
 {
 	my $name = shift;
 
-	my $fn = $name || "$main::local_data/user_json"; # force use of local_data
+	my $fn = $name || localdata("user_json"); # force use of local_data
 	
 	# save old ones
 	move "$fn.oooo", "$fn.ooooo" if -e "$fn.oooo";