loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.587.2.3.2.4, 2005/02/14 02:17:51	version 1.587.2.3.2.5, 2005/02/14 02:20:26
Line 1022 EVALBLOCK	Line 1022 EVALBLOCK
# &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));	# &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));
}	}

sub devalidate_cache_new {
my ($name,$id) = @_;
if (1) { &Apache::lonnet::logthis("deleting $name:$id"); }
$memcache->delete(&escape($name.':'.$id));
}

my $to_remember=10;	my $to_remember=10;
my %remembered;	my %remembered;
my %accessed;	my %accessed;
my $kicks=0;	my $kicks=0;
my $hits=0;	my $hits=0;
	sub devalidate_cache_new {
	my ($name,$id) = @_;
	if (0) { &Apache::lonnet::logthis("deleting $name:$id"); }
	$id=&escape($name.':'.$id);
	$memcache->delete($id);
	delete($remembered{$id});
	delete($accessed{$id});
	}

sub is_cached_new {	sub is_cached_new {
my ($name,$id,$debug) = @_;	my ($name,$id,$debug) = @_;
$debug=0;	$debug=0;
Line 1067 sub do_cache_new {	Line 1070 sub do_cache_new {
}	}
if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); }	if ($debug) { &Apache::lonnet::logthis("Setting $id to $value"); }
$memcache->set($id,$setvalue,300);	$memcache->set($id,$setvalue,300);
	&make_room($id,$value);
return $value;	return $value;
}	}