loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.63, 2003/03/19 14:50:32	version 1.66, 2003/06/14 00:15:01
Line 124 sub handler {	Line 124 sub handler {

$extrafield='';	$extrafield='';
my $diropendb =	my $diropendb =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";

if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {	if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
if ($ENV{'form.launch'} eq '1') {	if ($ENV{'form.launch'} eq '1') {
Line 666 sub display_line {	Line 666 sub display_line {
$r->print("Up $tabtag</tr></form>\n");	$r->print("Up $tabtag</tr></form>\n");
return OK;	return OK;
}	}
	# Do we have permission to look at this?

	return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0]));

# display domain	# display domain
if ($filecom[1] eq 'domain') {	if ($filecom[1] eq 'domain') {
Line 723 sub display_line {	Line 726 sub display_line {
# display file	# display file
if ($fnptr == 0 and $filecom[3] ne '') {	if ($fnptr == 0 and $filecom[3] ne '') {
my $filelink = $startdir.$filecom[0];	my $filelink = $startdir.$filecom[0];
return OK if (!&Apache::lonnet::allowed('bre',$filelink));
my @file_ext = split (/\./,$listname);	my @file_ext = split (/\./,$listname);
my $curfext = $file_ext[-1];	my $curfext = $file_ext[-1];
if (@Omit) {	if (@Omit) {