|
version 1.15, 2001/07/05 13:12:42
|
version 1.30, 2005/04/07 06:56:27
|
|
Line 1
|
Line 1
|
| # The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
| # Server for RAT Maps |
# Server for RAT Maps |
| # |
# |
| # (Edit Handler for RAT Maps |
# $Id$ |
| # (TeX Content Handler |
# |
| |
# Copyright Michigan State University Board of Trustees |
| |
# |
| |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
| |
# |
| |
# LON-CAPA is free software; you can redistribute it and/or modify |
| |
# it under the terms of the GNU General Public License as published by |
| |
# the Free Software Foundation; either version 2 of the License, or |
| |
# (at your option) any later version. |
| |
# |
| |
# LON-CAPA is distributed in the hope that it will be useful, |
| |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
# GNU General Public License for more details. |
| |
# |
| |
# You should have received a copy of the GNU General Public License |
| |
# along with LON-CAPA; if not, write to the Free Software |
| |
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| |
# |
| |
# /home/httpd/html/adm/gpl.txt |
| |
# |
| |
# http://www.lon-capa.org/ |
| # |
# |
| # 05/29/00,05/30 Gerd Kortemeyer) |
|
| # 7/1 Gerd Kortemeyer) |
|
| # 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer |
|
| # 4/30/2001 Scott Harrison |
|
| # 5/3,06/25,07/03,07/04,07/05 Gerd Kortemeyer |
|
| |
|
| package Apache::lonratsrv; |
package Apache::lonratsrv; |
| |
|
|
Line 16 use strict;
|
Line 32 use strict;
|
| use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
| use Apache::File; |
use Apache::File; |
| use HTML::TokeParser; |
use HTML::TokeParser; |
| |
use Apache::lonnet; |
| |
|
| # ------------------------------------------------------------- From RAT to XML |
# ------------------------------------------------------------- From RAT to XML |
| |
|
|
Line 43 sub qtunescape {
|
Line 59 sub qtunescape {
|
| # --------------------------------------------------------- Loads map from disk |
# --------------------------------------------------------- Loads map from disk |
| |
|
| sub loadmap { |
sub loadmap { |
| my ($fn,$errtext)=@_; |
my ($fn,$errtext,$infotext)=@_; |
| |
if ($errtext) { return('',$errtext); } |
| my $outstr=''; |
my $outstr=''; |
| my @content=(); |
|
| my @obj=(); |
my @obj=(); |
| my @links=(); |
my @links=(); |
| if (-e $fn) { |
my $instr=''; |
| |
if ($fn=~/^\/*uploaded\//) { |
| |
$instr=&Apache::lonnet::getfile($fn); |
| |
} elsif (-e $fn) { |
| |
my @content=(); |
| { |
{ |
| my $fh=Apache::File->new($fn); |
my $fh=Apache::File->new($fn); |
| @content=<$fh>; |
@content=<$fh>; |
| } |
} |
| my $instr=join('',@content); |
$instr=join('',@content); |
| |
} |
| |
if ($instr eq -2) { |
| |
$errtext.='Map not loaded: An error occured while trying to load the map.'; |
| |
} elsif ($instr) { |
| my $parser = HTML::TokeParser->new(\$instr); |
my $parser = HTML::TokeParser->new(\$instr); |
| my $token; |
my $token; |
| my $graphmode=0; |
my $graphmode=0; |
|
Line 166 sub loadmap {
|
Line 190 sub loadmap {
|
| } else { |
} else { |
| $errtext.='Map not loaded: The file does not exist. '; |
$errtext.='Map not loaded: The file does not exist. '; |
| } |
} |
| return($outstr,$errtext); |
return($outstr,$errtext,$infotext); |
| } |
} |
| |
|
| |
|
|
Line 174 sub loadmap {
|
Line 198 sub loadmap {
|
| |
|
| sub savemap { |
sub savemap { |
| my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
| |
my $infotext=''; |
| my %alltypes; |
my %alltypes; |
| my %allvalues; |
my %allvalues; |
| if (($fn=~/\.sequence$/) || |
if (($fn=~/\.sequence(\.tmp)*$/) || |
| ($fn=~/\.page$/)) { |
($fn=~/\.page(\.tmp)*$/)) { |
| |
|
| # ------------------------------------------------------------- Deal with input |
# ------------------------------------------------------------- Deal with input |
| my @tags=split(/<&>/,$ENV{'form.output'}); |
my @tags=split(/<&>/,$env{'form.output'}); |
| my $outstr=''; |
my $outstr=''; |
| my $graphdef=0; |
my $graphdef=0; |
| if ($tags[0] eq 'graphdef<:>yes') { |
if ($tags[0] eq 'graphdef<:>yes') { |
|
Line 189 sub savemap {
|
Line 214 sub savemap {
|
| } else { |
} else { |
| $outstr="<map>\n"; |
$outstr="<map>\n"; |
| } |
} |
| map { |
foreach (@tags) { |
| my @parts=split(/<:>/,$_); |
my @parts=split(/<:>/,$_); |
| if ($parts[0] eq 'objcont') { |
if ($parts[0] eq 'objcont') { |
| my @comp=split(/:/,$parts[$#parts]); |
my @comp=split(/:/,$parts[$#parts]); |
|
Line 238 sub savemap {
|
Line 263 sub savemap {
|
| } elsif ($parts[0] eq 'objparms') { |
} elsif ($parts[0] eq 'objparms') { |
| undef %alltypes; |
undef %alltypes; |
| undef %allvalues; |
undef %allvalues; |
| map { |
foreach (split(/:/,$parts[$#parts])) { |
| my ($type,$name,$value)=split(/\_\_\_/,$_); |
my ($type,$name,$value)=split(/\_\_\_/,$_); |
| $alltypes{$name}=$type; |
$alltypes{$name}=$type; |
| $allvalues{$name}=$value; |
$allvalues{$name}=$value; |
| } split(/:/,$parts[$#parts]); |
} |
| map { |
foreach (keys %allvalues) { |
| |
if ($allvalues{$_} ne '') { |
| $outstr.='<param to="'.$parts[1].'" type="' |
$outstr.='<param to="'.$parts[1].'" type="' |
| .$alltypes{$_}.'" name="'.$_ |
.$alltypes{$_}.'" name="'.$_ |
| .'" value="'.$allvalues{$_}.'">' |
.'" value="'.$allvalues{$_}.'">' |
| ."</param>\n"; |
."</param>\n"; |
| } keys %allvalues; |
} |
| |
} |
| } elsif (($parts[0] ne '') && ($graphdef)) { |
} elsif (($parts[0] ne '') && ($graphdef)) { |
| # ------------------------------------------------------------- Graphical input |
# ------------------------------------------------------------- Graphical input |
| $outstr.='<'.$parts[0]; |
$outstr.='<'.$parts[0]; |
|
Line 258 sub savemap {
|
Line 285 sub savemap {
|
| $outstr.=' value="'.qtescape($parts[$#parts]).'"></'. |
$outstr.=' value="'.qtescape($parts[$#parts]).'"></'. |
| $parts[0].">\n"; |
$parts[0].">\n"; |
| } |
} |
| } @tags; |
} |
| $outstr.="</map>\n"; |
$outstr.="</map>\n"; |
| { |
if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\/(.*)$/) { |
| |
$env{'form.output'}=$outstr; |
| |
my $home=&Apache::lonnet::homeserver($2,$1); |
| |
my $result=&Apache::lonnet::finishuserfileupload($2,$1,$home, |
| |
'output',$3); |
| |
if ($result != m|^/uploaded/|) { |
| |
$errtext.='Map not saved: A network error occured when trying to save the map. '; |
| |
} |
| |
} else { |
| my $fh; |
my $fh; |
| if ($fh=Apache::File->new(">$fn")) { |
if ($fh=Apache::File->new(">$fn")) { |
| print $fh $outstr; |
print $fh $outstr; |
| $errtext.="Map saved as $fn. "; |
$infotext.="Map saved as $fn. "; |
| } else { |
} else { |
| $errtext.='Could not write file $fn. Map not saved. '; |
$errtext.='Could not write file '.$fn.'. Map not saved. '; |
| } |
} |
| } |
} |
| } else { |
} else { |
| # -------------------------------------------- Cannot write to that file, error |
# -------------------------------------------- Cannot write to that file, error |
| $errtext.='Map not saved: The specified path does not exist. '; |
$errtext.='Map not saved: The specified path does not exist. '; |
| } |
} |
| return $errtext; |
return ($errtext,$infotext); |
| } |
} |
| |
|
| # ================================================================ Main Handler |
# ================================================================ Main Handler |
| |
|
| sub handler { |
sub handler { |
| my $r=shift; |
my $r=shift; |
| $r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
| $r->send_http_header; |
$r->send_http_header; |
| |
|
| return OK if $r->header_only; |
return OK if $r->header_only; |
|
Line 292 sub handler {
|
Line 327 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 =~ /$lonDocRoot/ ) { |
| |
#internal authentication, needs fixup. |
| |
$fn = $url; |
| |
$fn=~s|^/~(\w+)|/home/$1/public_html|; |
| |
$fn=~s|/[^/]*/ratserver$||; |
| |
} |
| my $errtext=''; |
my $errtext=''; |
| |
my $infotext=''; |
| my $outtext=''; |
my $outtext=''; |
| |
|
| if ($mode ne 'loadonly') { |
if ($mode ne 'loadonly') { |
| $errtext=&savemap($fn,$errtext); |
($errtext,$infotext)=&savemap($fn,$errtext); |
| } |
} |
| ($outtext,$errtext)=&loadmap($fn,$errtext); |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
| |
|
| $r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
| <html> |
<html> |
|
Line 310 sub handler {
|
Line 353 sub handler {
|
| parent.flag=1; |
parent.flag=1; |
| </script> |
</script> |
| ENDDOCUMENT |
ENDDOCUMENT |
| if ($errtext ne '') { |
if (($errtext ne '') || ($infotext ne '')) { |
| $r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
| <script> |
<script> |
| alert("$errtext"); |
alert("$infotext $errtext"); |
| </script> |
</script> |
| ENDSCRIPT |
ENDSCRIPT |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonratsrv.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat