version 1.7, 2023/08/23 20:33:06
|
version 1.8, 2023/08/23 20:39:06
|
Line 28
|
Line 28
|
### |
### |
|
|
package Apache::daxeopen; |
package Apache::daxeopen; |
|
use strict; |
|
|
use Apache::Constants; |
use Apache::Constants qw(:common); |
use DateTime; |
use DateTime; |
use Try::Tiny; |
use Try::Tiny; |
use File::stat; |
use File::stat; |
Line 88 sub convert_problem {
|
Line 89 sub convert_problem {
|
$case_sensitive = 0; |
$case_sensitive = 0; |
} |
} |
$textref = &Apache::html_to_xml::html_to_xml($textref, $warnings, $case_sensitive); |
$textref = &Apache::html_to_xml::html_to_xml($textref, $warnings, $case_sensitive); |
my $text = &Apache::post_xml::post_xml($textref, $file, $perlvar{'lonDocRoot'}, $warnings); |
my $text = &Apache::post_xml::post_xml($textref, $file, $Apache::lonnet::perlvar{'lonDocRoot'}, $warnings); |
&Apache::loncommon::content_type($request, 'text/xml', 'utf-8'); |
&Apache::loncommon::content_type($request, 'text/xml', 'utf-8'); |
$request->print($text); |
$request->print($text); |
return OK; |
return OK; |
Line 115 sub directory_listing {
|
Line 116 sub directory_listing {
|
return OK; |
return OK; |
} elsif ($uri =~ m{^/res/}) { |
} elsif ($uri =~ m{^/res/}) { |
# NOTE: dirlist does not return an error for /res/idontexist/ |
# NOTE: dirlist does not return an error for /res/idontexist/ |
(my $listref, $listerror) = &Apache::lonnet::dirlist($uri); |
my ($listref, $listerror) = &Apache::lonnet::dirlist($uri); |
if ($listerror) { |
if ($listerror) { |
$request->content_type('text/plain'); |
$request->content_type('text/plain'); |
$request->print("listing error: $listerror"); |
$request->print("listing error: $listerror"); |
Line 213 sub directory_listing {
|
Line 214 sub directory_listing {
|
if ($name =~ /\.(bak|log|meta|save)$/) { |
if ($name =~ /\.(bak|log|meta|save)$/) { |
next; |
next; |
} |
} |
$sb = stat($dirpath.'/'.$name); |
my $sb = stat($dirpath.'/'.$name); |
my $mode = $sb->mode; |
my $mode = $sb->mode; |
if (S_ISDIR($mode)) { |
if (S_ISDIR($mode)) { |
$res .= "<directory name=\"$name\"/>\n"; |
$res .= "<directory name=\"$name\"/>\n"; |