#!/usr/bin/perl
use strict;
use HTML::TokeParser;
use GDBM_File;
# accept texxml document on standard in
my $p = HTML::TokeParser->new( $ARGV[0] );
my $dirprefix = "/home/httpd/html/adm/help/tex/";
# Print the header
open (LATEX_FILE, $dirprefix . "Latex_Header.tex");
print ;
while (my $token = $p->get_token())
{
my $type = $token->[0];
if ($type eq 'S')
{
my $tag = $token->[1];
my $attr = $token->[2];
if ($tag eq 'section')
{
my $title = $attr->{'name'};
print "\\section{$title}\n\n";
}
if ($tag eq 'subsection')
{
my $title = $attr->{'name'};
print "\\subsection{$title}\n\n";
}
if ($tag eq 'subsubsection')
{
my $title = $attr->{'name'};
print "\\subsubsection{$title}\n\n";
}
if ($tag eq 'file')
{
my $file = $attr->{'name'};
open (LATEX_FILE, $dirprefix . $file);
print ;
}
if ($tag eq 'tex')
{
print "\n";
print $attr->{'content'};
print "\n";
}
}
}
# Print out the footer.
open (LATEX_FILE, $dirprefix . "Latex_Footer.tex");
print ;