Conversion Results
[insert_php]
//redirect page to URL after current one is loaded
function js_redirect($url){
echo “\n”;
}
[/insert_php]
if ($_FILES[“upload”][“error”] > 0)
{
echo “
File upload error: ” . $_FILES[“file”][“error”] . “
\n”;
}
else
{
$temp_file_name = $_FILES[‘upload’][‘tmp_name’];
$new_temp_file_name = $temp_file_name . ‘.’ . $_POST[‘input_type’];
#the Perl script uses the file extension to figure out what type of file it is.
rename ($temp_file_name, $new_temp_file_name);
$out_file_name = $temp_file_name . ‘.’ . $_POST[‘output_type’];
#$perl_lib = ‘/home2/gevtermn/perl5/lib/perl5’; -I$perl_lib
$reroute_stderr = “2>&1”;
$perl = “~/.plenv/versions/5.22.1/bin/perl”;
$command = “$perl -I ./scripts/XML-Rules-1.15/lib ./scripts/convert_glossary.pl ” . $new_temp_file_name . ‘ ‘ . $out_file_name . ‘ ‘ . $reroute_stderr;
$ret_val = 0;
exec($command, $printed_output, $ret_val);
if($ret_val != 0){
// echo “command was $command”;
// echo “
File exists: ” . file_exists($new_temp_file_name) . ‘
‘;
echo “
Error: conversion script exited with non-zero value ($ret_val)!
\n”;
print_r($printed_output);
}
if(file_exists($out_file_name))
{
$down_file_name = basename($_FILES[‘upload’][‘name’]) . ‘.’ . $_POST[‘output_type’];
echo “
The download of your converted TBX-Basic file should start automatically.
If it doesn’t, click the button below to download it:
\n”;
echo “
\n”;
echo “
Messages logged by the conversion program are shown below.
Some may be error messages, which are helpful for finding any errors in your MRC file.
\n”;
js_redirect(“/scripts/glossary_download.php?tmp_file_name=” . basename($out_file_name) . “&down_file_name=$down_file_name”);
}
else{
echo “
Error: no glossary file was created!
\n”;
}
}
[/insert_php]