version 1.40, 2008/11/20 13:51:22
|
version 1.42, 2011/10/25 19:23:20
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
=head1 NAME |
|
|
|
Apache::lonratsrv |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler that takes output from RAT and stores |
|
it on disk. Handles the upper hidden frame of |
|
the added window that comes up in RAT. (3 |
|
frames come up in RAT server, code, and |
|
output. This module handles server |
|
connection.) |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=cut |
|
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 68 sub handler {
|
Line 51 sub handler {
|
$url=~s{/loadonly/ratserver$}{/save/ratserver}; |
$url=~s{/loadonly/ratserver$}{/save/ratserver}; |
|
|
my $fn=$r->filename; |
my $fn=$r->filename; |
my $lonDocRoot=$r->dir_config('lonDocRoot'); |
|
if ( $fn =~ /\Q$lonDocRoot\E/ ) { |
|
#internal authentication, needs fixup. |
|
$fn = $url; |
|
$fn=~s{^/~($LONCAPA::username_re)}{/home/$1/public_html}; |
|
$fn=~s{/[^/]*/ratserver$}{}; |
|
} |
|
my $errtext=''; |
my $errtext=''; |
my $infotext=''; |
my $infotext=''; |
my $outtext=''; |
my $outtext=''; |
Line 114 ENDSCRIPT
|
Line 90 ENDSCRIPT
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
=head1 NAME |
|
|
|
Apache::lonratsrv |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler that takes output from RAT and stores |
|
it on disk. Handles the upper hidden frame of |
|
the added window that comes up in RAT. (3 |
|
frames come up in RAT server, code, and |
|
output. This module handles server |
|
connection.) |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=cut |