use Biblio::WebPortal;
use mp::cat;

$userconf = {
  catfile   => '/home/jj/MuseuPessoa/MP/_cat_',
  thesaurus => '/home/jj/MuseuPessoa/MP/thesaurus',
  name => 'mp',
  catsyn  => {
     1 => sub{ my $file=shift;
               my $t=`cat $file`;
               my @a = ($t =~ m{(<entry.*?</entry>)}gs);
               @a},
     2 => sub{ my $f=shift;
               my @r=();
               while($f =~ m{<rel\s+tipo='(.*?)'>(.*?)</rel>}g)
#                  { push @r, [$2,$1]; }
                  { push @r, $2; }
               @r;
             },
     3 => sub{ my $f=shift; &mp::cat::fichacat2html($f)},
     4 => sub{ my $f=shift; 
               $f =~ s{</?\w+}{ }g; 
               $f=~s/(\s*[\n>"'])+\s*/,/g;
               $f=~s/\w+=//g;
               $f=~s/\s{2,}/ /g;
               $f}
  }
};

Biblio::WebPortal::mkdiglib($userconf);

my $dg = Biblio::WebPortal::opendiglib($userconf);
open F, ">ex1.html";
print F $dg->f3("Montalegre");
close F;