#!/usr/bin/perl
#use Biblio::WebPortal;
use Data::Dumper;
require "../WebPortal.pm";

my $dg;

while(<>){
 if(m(\\asLatex\{(.*?)\}\{(.*?)\}\{(.*?)\})){
      my ($size,$diglib,$term)=($1,$2,$3);
      $dg ||= Biblio::WebPortal::opendiglib({name => $diglib}); 
      print $dg->asLaTeX({size=>$size},$term);
 }
 else { print}
}


__END__
$userconf = { name => 'nat'};

my $dg = Biblio::WebPortal::opendiglib($userconf);

$beginlatex = <<'.';

\documentclass[portuges,a4paper]{article}
\usepackage{babel}
\usepackage[latin1]{inputenc}
\usepackage{t1enc}
\begin{document}
.
$beginlatex .= "\\title{". $dg->{the}->top_name(). "}\n";

$beginlatex .= <<'.';
\author{José João Dias de Almeida}
\date{\today}
\maketitle
\tableofcontents
\newpage
\parindent 0pt
.

$endlatex = <<'.';
\end{document}
.
 
# print $beginlatex, $dg->asLaTeX, $endlatex;
print $beginlatex, $dg->asLaTeX({size=>"undersection"}) , $endlatex;