#!/usr/bin/perl


sub clean{
 my $a = shift;
 $a=~ s/href=".*"/href=""/g;
 $a=~ s/<hr>.*//si;
 $a
}


sub endtex{
print q{\end{document}
};
}

use HTML::Latex;

use Data::Dumper;

my $parser = new HTML::Latex("conf.xml");

#           my ($htmlfile,$latexfile) = $parser->html2latex($uri);

my $file = shift;
undef $/;
my $base = "../trunk";
my $p1;


print `cat introd.tex`;

print "\\section{Main Conferences}\n";

$p1 = clean ( `cat $base/Conf/conf.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progComplete.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Satellite/workshops.html`);
print "\\section{Workshops}\n", 
      $parser->parse_string($p1,0);


$p1 = clean ( `cat $base/Programme/progACCAT.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progBYTECODE.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progCOCV.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progFESCA.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progFINCO.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progGT-VMT.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progHAV.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progHFL.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progLDTA.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progMOMBES.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progOPENCERT.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progQAPL.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progSC.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progSLAP.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progTERMGRAPH.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Programme/progWITS.html`);
print # "\\subsection{Programme Complete}\n", 
      $parser->parse_string($p1,0);

$p1 = clean ( `cat $base/Satellite/tutorials.html`);
print "\\section{Tutorials}\n", 
      $parser->parse_string($p1,0);


print `cat final.tex`;

endtex;




__END__

$p1 = clean `cat $base/progCC.html`;
print # "\\subsection{Programme CC}\n", 
      $parser->parse_string($p1,0);

$p1 =clean  `cat $base/progESOP.html`;
print # "\\subsection{Programme ESOP}\n", 
      $parser->parse_string($p1,0);

$p1 =clean  `cat $base/progFASE.html`;
print # "\\subsection{Programme FASE}\n", 
      $parser->parse_string($p1,0);

$p1 =clean  `cat $base/progFOSSACS.html`;
print # "\\subsection{Programme FOSSACS}\n", 
      $parser->parse_string($p1,0);

$p1 =clean  `cat $base/progTACAS.html`;
print # "\\subsection{Programme TACAS}\n", 
      $parser->parse_string($p1,0);

# $p1 = `cat $base/progOverview.html`;
# print "\\subsection{Programme Overview}\n", $parser->parse_string($p1,0);