loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.121, 2004/07/26 22:38:16	version 1.122, 2004/08/01 19:36:33
Line 668 sub get_list {	Line 668 sub get_list {

if (defined($hash{'dirlist_files_'.$luri}) &&	if (defined($hash{'dirlist_files_'.$luri}) &&
$hash{'dirlist_timestamp_files_'.$luri}+600 > (time)) {	$hash{'dirlist_timestamp_files_'.$luri}+600 > (time)) {
&Apache::lonnet::logthis("using old n:".time." s:".$hash{'dirlist_timestamp_files_'.$luri});
@list = split(/\n/,$hash{'dirlist_files_'.$luri});	@list = split(/\n/,$hash{'dirlist_files_'.$luri});
} elsif ($uri=~/\.(page\|sequence)\/$/) {	} elsif ($uri=~/\.(page\|sequence)\/$/) {
# is a page or a sequence	# is a page or a sequence
Line 682 sub get_list {	Line 681 sub get_list {
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
# is really a directory	# is really a directory
&Apache::lonnet::logthis("getting fresh n:".time." s:".$hash{'dirlist_timestamp_files_'.$luri});
@list = &Apache::lonnet::dirlist($uri);	@list = &Apache::lonnet::dirlist($uri);
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
$hash{'dirlist_timestamp_files_'.$luri} = time;	$hash{'dirlist_timestamp_files_'.$luri} = time;