#!/usr/bin/perl -wT
#
# Fara lexicon generator. Why store the HTML on the server when a CGI script
# would do? :-)
#

use CGI qw(:standard);
use strict;

my $basedir = '/home/hsteoh/doc/fara/lang';
my $lexurl = '/fara/lexicon.html';	# for making links work properly
my $tmpdir = '/tmp';
my $full_tpl = "$basedir/vocabhtml.tpl";
my $vtool = "$basedir/vtool";
my $vocab = "$basedir/vocab";

# Kill $PATH for security reasons. We should only ever use absolute paths to
# binaries in a CGI script.
$ENV{PATH} = '';


#
# Run generator
#

my @options = (
	"--vocab=$vocab",
	"--output=html",
	"--htmltpl=$full_tpl",
	"--legend"
);
my @qcmd = ($vtool, @options, 'show');

print header(-type=>'text/html');
my $rc = system(@qcmd);
if ($rc != 0) {
  print <<ENDERR;
<h1>Lexicon Search Engine Error</h1>
<hr />
<p>The search engine has aborted abnormally. Please contact the webmaster for
further assistance.</p>
ENDERR
}