textfilters)) {
error ('Filter not enabled!');
} else {
$filters = explode(',', $CFG->textfilters);
if (array_search('filter/tex', $filters) === FALSE) {
error ('Filter not enabled!');
}
}
require_once($CFG->libdir.'/filelib.php');
require_once($CFG->dirroot.'/filter/tex/lib.php');
require_once($CFG->dirroot.'/filter/tex/latex.php');
$action = optional_param('action', '', PARAM_ALPHA);
$texexp = optional_param('tex', '', PARAM_RAW);
require_login();
require_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM), $USER->id); /// Required cap to run this. MDL-18552
$query = urldecode($_SERVER['QUERY_STRING']);
error_reporting(E_ALL);
$output = '';
// look up in cache if required
if ($action=='ShowDB' or $action=='DeleteDB') {
$md5 = md5($texexp);
$texcache = get_record("cache_filters","filter","tex", "md5key", $md5);
}
// Action: Show DB Entry
if ($action=='ShowDB') {
if ($texcache) {
$output = "DB cache_filters entry for $texexp\n";
$output .= "id = $texcache->id\n";
$output .= "filter = $texcache->filter\n";
$output .= "version = $texcache->version\n";
$output .= "md5key = $texcache->md5key\n";
$output .= "rawtext = $texcache->rawtext\n";
$output .= "timemodified = $texcache->timemodified\n";
} else {
$output = "DB cache_filters entry for $texexp not found\n";
}
}
// Action: Delete DB Entry
if ($action=='DeleteDB') {
if ($texcache) {
$output = "Deleting DB cache_filters entry for $texexp\n";
$result = delete_records("cache_filters","id",$texcache->id);
if ($result) {
$result = 1;
} else {
$result = 0;
}
$output .= "Number of records deleted = $result\n";
} else {
$output = "Could not delete DB cache_filters entry for $texexp\nbecause it could not be found.\n";
}
}
// Action: Show Image
if ($action=='ShowImageMimetex') {
tex2image($texexp);
}
// Action: Check Slasharguments
if ($action=='SlashArguments') {
slasharguments($texexp);
}
// Action: Show Tex command line output
if ($action=='ShowImageTex') {
TexOutput($texexp, true);
exit;
}
// Action: Show Tex command line output
if ($action=='ShowOutputTex') {
if (debugging()) {
TexOutput($texexp);
} else {
echo "Can not output detailed information due to security concerns, please turn on debug mode first.";
}
exit;
}
if (!empty($action)) {
outputText($output);
}
// nothing more to do if there was any action
if (!empty($action)) {
exit;
}
function outputText($texexp) {
header("Content-type: text/html");
echo "\n";
if ($texexp) {
$texexp = str_replace('<', '<', $texexp);
$texexp = str_replace('>', '>', $texexp);
$texexp = str_replace('"', '"', $texexp);
echo "$texexp\n\n";
} else {
echo "No text output available\n\n";
}
echo "\n";
}
function tex2image($texexp, $return=false) {
global $CFG;
if (!$texexp) {
echo 'No tex expresion specified';
return;
}
$image = md5($texexp) . ".gif";
$filetype = 'image/gif';
if (!file_exists("$CFG->dataroot/filter/tex")) {
make_upload_directory("filter/tex");
}
$pathname = "$CFG->dataroot/filter/tex/$image";
if (file_exists($pathname)) {
unlink($pathname);
}
$texexp = '\Large '.$texexp;
$commandpath = tex_filter_get_executable(true);
$cmd = tex_filter_get_cmd($pathname, $texexp);
system($cmd, $status);
if ($return) {
return $image;
}
if (file_exists($pathname)) {
send_file($pathname, $image);
} else if (debugging()) {
$ecmd = "$cmd 2>&1";
echo `$ecmd` . "
\n";
echo "The shell command
$cmd
returned status = $status
\n";
if ($status == 4) {
echo "Status corresponds to illegal instruction
\n";
} else if ($status == 11) {
echo "Status corresponds to bus error
\n";
} else if ($status == 22) {
echo "Status corresponds to abnormal termination
\n";
}
if (file_exists($commandpath)) {
echo "File size of mimetex executable $commandpath is " . filesize($commandpath) . "
";
echo "The file permissions are: " . decoct(fileperms($commandpath)) . "
";
if (function_exists("md5_file")) {
echo "The md5 checksum of the file is " . md5_file($commandpath) . "
";
} else {
$handle = fopen($commandpath,"rb");
$contents = fread($handle,16384);
fclose($handle);
echo "The md5 checksum of the first 16384 bytes is " . md5($contents) . "
";
}
} else {
echo "mimetex executable $commandpath not found!
";
}
echo "Image not found!";
} else {
echo "Can not output detailed information due to security concerns, please turn on debug mode first.";
}
}
// test Tex/Ghostscript output - command execution only
function TexOutput($expression, $graphic=false) {
global $CFG;
$output = '';
$latex = new latex();
// first check if it is likely to work at all
$output .= "Checking executables
\n";
$executables_exist = true;
if (is_file($CFG->filter_tex_pathlatex)) {
$output .= "latex executable ($CFG->filter_tex_pathlatex) is readable
\n";
}
else {
$executables_exist = false;
$output .= "Error: latex executable ($CFG->filter_tex_pathlatex) is not readable
\n";
}
if (is_file($CFG->filter_tex_pathdvips)) {
$output .= "dvips executable ($CFG->filter_tex_pathdvips) is readable
\n";
}
else {
$executables_exist = false;
$output .= "Error: dvips executable ($CFG->filter_tex_pathdvips) is not readable
\n";
}
if (is_file($CFG->filter_tex_pathconvert)) {
$output .= "convert executable ($CFG->filter_tex_pathconvert) is readable
\n";
}
else {
$executables_exist = false;
$output .= "Error: convert executable ($CFG->filter_tex_pathconvert) is not readable
\n";
}
// knowing that it might work..
$md5 = md5($expression);
$output .= "base filename for expression is '$md5'
\n";
// temporary paths
$tex = "$latex->temp_dir/$md5.tex";
$dvi = "$latex->temp_dir/$md5.dvi";
$ps = "$latex->temp_dir/$md5.ps";
$gif = "$latex->temp_dir/$md5.gif";
// put the expression as a file into the temp area
$expression = stripslashes($expression);
$expression = html_entity_decode($expression);
$output .= "Processing TeX expression:
$expression
\n";
$doc = $latex->construct_latex_document($expression);
$fh = fopen($tex, 'w');
fputs($fh, $doc);
fclose($fh);
// cd to temp dir
chdir($latex->temp_dir);
// step 1: latex command
$cmd = "$CFG->filter_tex_pathlatex --interaction=nonstopmode $tex";
$output .= execute($cmd);
// step 2: dvips command
$cmd = "$CFG->filter_tex_pathdvips -E $dvi -o $ps";
$output .= execute($cmd);
// step 3: convert command
$cmd = "$CFG->filter_tex_pathconvert -density 240 -trim $ps $gif ";
$output .= execute($cmd);
if (!$graphic) {
echo($output);
} else {
send_file($gif, "$md5.gif");
}
}
function execute($cmd) {
exec($cmd, $result, $code);
$output = "$ $cmd\n";
$lines = implode("\n", $result);
$output .= "OUTPUT: $lines\n";
$output .= "RETURN CODE: $code\n\n";
return $output;
}
function slasharguments($texexp) {
global $CFG;
$admin = $CFG->wwwroot.'/'.$CFG->admin.'/settings.php?section=http';
$image = tex2image($texexp,true);
echo "If the following image displays correctly, set your ";
echo "Administration->Server->HTTP ";
echo "setting for slasharguments to file.php/1/pic.jpg: ";
echo "![](\"$CFG-)
wwwroot/filter/tex/pix.php/$image\" align=\"absmiddle\">
\n";
echo "Otherwise set it to file.php?file=/1/pic.jpg ";
echo "It should display correctly as ";
echo "wwwroot/filter/tex/pix.php?file=$image\" align=\"absmiddle\">
\n";
echo "If neither equation image displays correctly, please seek ";
echo "further help at moodle.org at the ";
echo "";
echo "Mathematics Tools Forum
";
}
?>
TeX Filter Debugger
Please enter an algebraic expression without any surrounding $$ into
the text box below. (Click here for help.)
Debugging Help
First a brief overview of how the TeX filter works. The TeX filter first
searches the database cache_filters table to see if this TeX expression had been
processed before. If not, it adds a DB entry for that expression. It then
replaces the TeX expression by an <img src=".../filter/tex/pix.php...">
tag. The filter/tex/pix.php script then searches the database to find an
appropriate gif image file for that expression and to create one if it doesn't exist.
It will then use either the LaTex/Ghostscript renderer (using external executables
on your system) or the bundled Mimetex executable. The full Latex/Ghostscript
renderer produces better results and is tried first.
Here are a few common things that can go wrong and some suggestions on how
you might try to fix them.
- Something had gone wrong on a previous occasion when the filter tried to
process this expression. Then the database entry for that expression contains
a bad TeX expression in the rawtext field (usually blank). You can fix this
by clicking on "Delete DB Entry"
- The TeX to gif image conversion process does not work.
If paths are specified in the filter configuation screen for the three
executables these will be tried first. Note that they still must be correctly
installed and have the correct permissions. In particular make sure that you
have all the packages installed (e.g., on Debian/Ubuntu you need to install
the 'tetex-extra' package). Running the 'show command execution' test should
give a big clue.
If this fails or is not available, the Mimetex executable is tried. If this
fails a likely cause is that the mimetex binary you are using is
incompatible with your operating system. You can try compiling it from the
C sources downloaded from
http://www.forkosh.com/mimetex.zip, or looking for an appropriate
binary at
http://moodle.org/download/mimetex/. You may then also need to
edit your moodle/filter/tex/pix.php file to add
to the list of operating systems
in the switch (PHP_OS) statement. Windows users may have a problem properly
unzipping mimetex.exe. Make sure that mimetex.exe is is PRECISELY
433152 bytes in size. If not, download a fresh copy from
http://moodle.org/download/mimetex/windows/mimetex.exe.
Another possible problem which may affect
both Unix and Windows servers is that the web server doesn't have execute permission
on the mimetex binary. In that case change permissions accordingly