--- rat/lonratsrv.pm 2000/07/12 23:55:33 1.5 +++ rat/lonratsrv.pm 2004/04/23 17:30:33 1.27 @@ -1,12 +1,31 @@ # The LearningOnline Network with CAPA # Server for RAT Maps # -# (Edit Handler for RAT Maps -# (TeX Content Handler +# $Id: lonratsrv.pm,v 1.27 2004/04/23 17:30:33 www Exp $ +# +# 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 Gerd Kortemeyer + package Apache::lonratsrv; @@ -31,7 +50,7 @@ sub qtescape { sub qtunescape { my $str=shift; - $str=~s/\:/\&\#58\;/g; + $str=~s/\:/\&colon\;/g; $str=~s/\'/\&\#39\;/g; $str=~s/\,/\&\#44\;/g; $str=~s/\"/\&\#34\;/g; @@ -43,15 +62,22 @@ sub qtunescape { sub loadmap { my ($fn,$errtext)=@_; my $outstr=''; - my @content=(); my @obj=(); 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); @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 $token; my $graphmode=0; @@ -82,7 +108,7 @@ sub loadmap { $outstr.='<:>'; $outstr.=qtunescape($token->[2]->{'title'}).":"; $outstr.=qtunescape($token->[2]->{'src'}).":"; - if ($token->[2]->{'src'}=~/\/\//) { + if ($token->[2]->{'external'} eq 'true') { $outstr.='true:'; } else { $outstr.='false:'; @@ -120,7 +146,7 @@ sub loadmap { } elsif ($token->[1] eq 'link') { # ----------------------------------------------------------------------- Links $outstr.='<&>objlinks'; - if ($graphmode) { + if ($token->[2]->{'index'}) { if ($links[$token->[2]->{'index'}]) { $errtext.='Error: multiple use of link index '. @@ -134,7 +160,7 @@ sub loadmap { $outstr.='<:>'.$i; $links[$i]=1; } - } + $outstr.='<:>'.$token->[2]->{'from'}. ':'.$token->[2]->{'to'}; if ($token->[2]->{'condition'}) { @@ -142,6 +168,11 @@ sub loadmap { } else { $outstr.=':0'; } +# ------------------------------------------------------------------- Parameter + } elsif ($token->[1] eq 'param') { + $outstr.='<&>objparms<:>'.$token->[2]->{'to'}.'<:>'. + $token->[2]->{'type'}.'___'.$token->[2]->{'name'} + .'___'.$token->[2]->{'value'}; } elsif ($graphmode) { # --------------------------------------------- All other tags (graphical only) $outstr.='<&>'.$token->[1]; @@ -167,9 +198,10 @@ sub loadmap { sub savemap { my ($fn,$errtext)=@_; - if (($fn=~/\.course$/) || - ($fn=~/\.sequence$/) || - ($fn=~/\.page$/)) { + my %alltypes; + my %allvalues; + if (($fn=~/\.sequence(\.tmp)*$/) || + ($fn=~/\.page(\.tmp)*$/)) { # ------------------------------------------------------------- Deal with input my @tags=split(/<&>/,$ENV{'form.output'}); @@ -181,7 +213,7 @@ sub savemap { } else { $outstr="\n"; } - map { + foreach (@tags) { my @parts=split(/<:>/,$_); if ($parts[0] eq 'objcont') { my @comp=split(/:/,$parts[$#parts]); @@ -193,6 +225,7 @@ sub savemap { if ($comp[1]!~/^http\:\/\//) { $comp[1]='http://'.$comp[1]; } + $comp[1].='" external="true'; } else { if ($comp[1]=~/^http\:\/\//) { $comp[1]=~s/^http\:\/\/[^\/]*\//\//; @@ -226,6 +259,22 @@ sub savemap { } $outstr.=' index="'.$parts[1].'"'; $outstr.=">\n"; + } elsif ($parts[0] eq 'objparms') { + undef %alltypes; + undef %allvalues; + foreach (split(/:/,$parts[$#parts])) { + my ($type,$name,$value)=split(/\_\_\_/,$_); + $alltypes{$name}=$type; + $allvalues{$name}=$value; + } + foreach (keys %allvalues) { + if ($allvalues{$_} ne '') { + $outstr.='' + ."\n"; + } + } } elsif (($parts[0] ne '') && ($graphdef)) { # ------------------------------------------------------------- Graphical input $outstr.='<'.$parts[0]; @@ -235,15 +284,23 @@ sub savemap { $outstr.=' value="'.qtescape($parts[$#parts]).'">\n"; } - } @tags; + } $outstr.="\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; if ($fh=Apache::File->new(">$fn")) { print $fh $outstr; $errtext.="Map saved as $fn. "; } else { - $errtext.='Could not write file $fn. Map not saved. '; + $errtext.='Could not write file '.$fn.'. Map not saved. '; } } } else { @@ -269,6 +326,13 @@ sub handler { $url=~s/\/loadonly\/ratserver$/\/save\/ratserver/; 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 $outtext=''; @@ -283,6 +347,9 @@ sub handler {
+ ENDDOCUMENT if ($errtext ne '') { $r->print(<