LON-CAPA Help

# The LearningOnline Network with CAPA # .tex help system web server 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/ # # .tex file help handler # YEAR=2002 # 7/4 Jeremy Bowers package Apache::lonhelp; use strict; use Apache::Constants qw(:common :http); use Apache::File; use Apache::loncommon; use tth; use GDBM_File; # This sub takes the name of a label in, and converts it to something # that is a valid anchor name. sub processLabelName { my ($name) = @_; $name =~ tr/a-zA-Z0-9/_/cs; return $name; } # Serve out the Tex sub serveTex { my ($tex, $r) = @_; $r->print(< LON-CAPA Help HEADER $r->print($tex); $r->print(< FOOTER } # Render takes a tex fragment, transforms it for TtH, and returns the # HTML equivalent sub render { my ($tex, $docroot, $serverroot) = @_; tie (my %fragmentLabels, 'GDBM_File', $docroot . '/adm/help/fragmentLabels.gdbm', 0, 0); # This tells TtH what to do with captions, labels, and other # things $tex = "\\documentclass{article}\n" . $tex; # We process these ourselves because TtH can't handle then without # LaTeX .aux files # absolute paths for use with help.loncapa.org $tex =~ s| \\ref\{([^}]*)\} |'\\begin{html}

' . '\\end{html}' |gxe; # Figures leftover without captions $tex =~ s| \\includegraphics(\[[^]]*\])*\{([^}]*)\} | '\\begin{html}

\\end{html}' |gxe; $tex = tth::tth($tex); # For some reason all captions come out as "Figure 0:", so # just duck the issue... $tex =~ s/Figure 0://g; untie %fragmentLabels; return $tex; } sub handler { my $r = shift; my $docroot = $r->dir_config('lonDocRoot'); my $serverroot = $ENV{'HTTP_HOST'}; my $filename = substr ($ENV{'REQUEST_URI'} , rindex($ENV{'REQUEST_URI'}, '/') + 1, -4); # Security check on the file; the whole filename must consist # of nothing but alphanums, ' ,, or ., or the file # will be "not found", no matter what. return 404 if ($filename !~ /\A[-0-9a-zA-z_'',.]+\Z/); (my $file = Apache::File->new($docroot . "/adm/help/tex/".$filename.'.tex')) or return 404; my $tex = join('', <$file>); $tex = render($tex, $docroot, $serverroot); $r->content_type("text/html"); serveTex($tex, $r); return OK; } 1;