loncom/homework/daxeopen.pm - diff

Return to daxeopen.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.8, 2023/08/23 20:39:06	version 1.9, 2023/08/23 22:21:05
Line 201 sub directory_listing {	Line 201 sub directory_listing {
return OK;	return OK;
}	}
$dirpath =~ s{/$}{};	$dirpath =~ s{/$}{};
opendir my $dir, $dirpath or die "Cannot open directory: $dirpath";	my @files;
my @files = readdir $dir;	if (opendir(my $dir, $dirpath)) {
closedir $dir;	@files = readdir($dir);
	closedir($dir);
	} else {
	$request->content_type('text/plain');
	$request->print("Error opening directory: $dirpath");
	$request->status(403);
	return OK;
	}
my $dirname = $dirpath;	my $dirname = $dirpath;
$dirname =~ s{^./([^/])$}{$1};	$dirname =~ s{^./([^/])$}{$1};
$res .= "<directory name=\"$dirname\">\n";	$res .= "<directory name=\"$dirname\">\n";