version 1.3, 2016/01/12 19:07:16
|
version 1.5, 2023/08/23 20:58:32
|
Line 28
|
Line 28
|
### |
### |
|
|
package Apache::daxepage; |
package Apache::daxepage; |
|
use strict; |
|
|
use Apache::Constants; |
use Apache::Constants qw(:common); |
|
|
sub handler { |
sub handler { |
my $request = shift; |
my $request = shift; |
my $uri = $request->uri; |
my $uri = $request->uri; |
$uri =~ s/^\/daxepage//; |
$uri =~ s{^/daxepage}{}; |
&Apache::loncommon::no_cache($request); |
&Apache::loncommon::content_type($request,'text/html'); |
if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) { |
if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) { |
$request->status(406); |
$request->status(406); |
return OK; |
return OK; |