|
version 1.388, 2003/07/06 10:30:21
|
version 1.389, 2003/07/09 06:20:42
|
|
Line 3204 sub clear_EXT_cache_status {
|
Line 3204 sub clear_EXT_cache_status {
|
| sub EXT_cache_status { |
sub EXT_cache_status { |
| my ($target_domain,$target_user) = @_; |
my ($target_domain,$target_user) = @_; |
| my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain; |
my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain; |
| if (exists($ENV{$cachename}) && ($ENV{$cachename}+1800) > time) { |
if (exists($ENV{$cachename}) && ($ENV{$cachename}+600) > time) { |
| # We know already the user has no data |
# We know already the user has no data |
| return 1; |
return 1; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl