loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.543, 2004/09/20 19:54:47	version 1.544, 2004/09/20 20:11:16
Line 821 sub getsection {	Line 821 sub getsection {
}	}


my $disk_caching_disabled=1;	my $disk_caching_disabled=0;

sub devalidate_cache {	sub devalidate_cache {
my ($cache,$id,$name) = @_;	my ($cache,$id,$name) = @_;
Line 927 sub save_cache {	Line 927 sub save_cache {
eval <<'EVALBLOCK';	eval <<'EVALBLOCK';
$hash{$id.'.time'}=$$cache{$id.'.time'};	$hash{$id.'.time'}=$$cache{$id.'.time'};
$hash{$id}=freeze({'item'=>$$cache{$id}});	$hash{$id}=freeze({'item'=>$$cache{$id}});
	if (exists($$cache{$id.'.file'})) {
	$hash{$id.'.file'}=freeze({'item'=>$$cache{$id.'.file'}});
	}
EVALBLOCK	EVALBLOCK
if ($@) {	if ($@) {
&logthis("<font color='red'>save_cache blew up :$@:$name</font>");	&logthis("<font color='red'>save_cache blew up :$@:$name</font>");
Line 977 sub load_cache_item {	Line 980 sub load_cache_item {
} else {	} else {
if (($$cache{$id.'.time'}+$time) < time) {	if (($$cache{$id.'.time'}+$time) < time) {
$$cache{$id.'.time'}=$hash{$id.'.time'};	$$cache{$id.'.time'}=$hash{$id.'.time'};
my $hashref=thaw($hash{$id});	{
$$cache{$id}=$hashref->{'item'};	my $hashref=thaw($hash{$id});
	$$cache{$id}=$hashref->{'item'};
	}
	if (exists($hash{$id.'.file'})) {
	my $hashref=thaw($hash{$id.'.file'});
	$$cache{$id.'.file'}=$hashref->{'item'};
	}
}	}
}	}
EVALBLOCK	EVALBLOCK