version 1.10, 2003/09/22 04:14:04
|
version 1.12, 2003/12/15 19:46:13
|
Line 36 use Apache::loncommon();
|
Line 36 use Apache::loncommon();
|
use Apache::lonacc(); |
use Apache::lonacc(); |
use Apache::lontexconvert(); |
use Apache::lontexconvert(); |
use Apache::lonnavmaps; # for advancedUser |
use Apache::lonnavmaps; # for advancedUser |
|
use Apache::lonlocal; |
use tth(); |
use tth(); |
use GDBM_File(); |
use GDBM_File(); |
|
|
Line 141 sub handler
|
Line 142 sub handler
|
my $docroot = $r->dir_config('lonDocRoot'); |
my $docroot = $r->dir_config('lonDocRoot'); |
my $serverroot = $ENV{'HTTP_HOST'}; |
my $serverroot = $ENV{'HTTP_HOST'}; |
|
|
my $filenames = substr ($ENV{'REQUEST_URI'} , |
my $filenames = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} , |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4); |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4)); |
|
|
# Security check on the file; the whole filename must consist |
# Security check on the file; the whole filename must consist |
# of nothing but alphanums, ' ,, or ., or the file |
# of nothing but alphanums, ' ,, or ., or the file |
Line 162 sub handler
|
Line 163 sub handler
|
my @files = split(/,/, $filenames); |
my @files = split(/,/, $filenames); |
|
|
for my $filename (@files) { |
for my $filename (@files) { |
if (-e $docroot.'/adm/help/tex/'.$filename.'_'. |
if (-e $docroot.'/adm/help/tex/'. |
&Apache::lonlocal::current_language().'.tex') { |
&Apache::lonlocal::current_language().'/'. |
$filename.='_'.&Apache::lonlocal::current_language(); |
$filename.'.tex') { |
|
$filename=&Apache::lonlocal::current_language().'/'.$filename; |
} |
} |
(my $file = Apache::File->new($docroot |
(my $file = Apache::File->new($docroot |
. '/adm/help/tex/'.$filename.'.tex')) |
. '/adm/help/tex/'.$filename.'.tex')) |