#!/usr/bin/perl

#### correct the next 5 lines:

my $library = "/home/jj/svn/main/Biblio/WebPortal/example/nat";
my $libraryname = "TesteNatura"; 
my $CGIdir="/home/jj/public_html/bin";
my $CGIname="$libraryname.nav";
my $CGIpath="jjbin";

### end of  corrections

if($ARGV[0] eq "install"){
  system ("cp $0 '$CGIdir/$CGIname' ");
  chmod ( 0755, "$CGIdir/$CGIname" );  
  
  my $a = `w3m -dump_source "http://localhost/$CGIpath/$CGIname" `;
  if ($a =~ /submit/i) {print "ok\n"} 
  else                {print "not ok\n"}
}
else{

use Biblio::WebPortal;
use CGI qw/:standard :cgi-lib/;

my %vars = Vars();

print header;
my $diglib = Biblio::WebPortal::opendiglib( { name => $library } );

print h1(ucfirst($libraryname));
print $diglib->navigate(%vars);

}

__END__
use XML::DT;
use Natura;

my $basedir = `pwd`;
chomp($basedir);
$userconf = {
     thesaurus => "$basedir/Natura.the",
     name => "$basedir/nat",
     catalog =>
     [
      {
       file => "$basedir/Natura.catalog",
       type  => {
	 asList => sub{
	   my $file = shift;
	   my $t = `cat $file`;
	   return ($t =~ m{(<entry>.*?</entry>)}gs); 
	 },
	 asRelations => sub{
           my $f=shift;
           my $data = {};
	   while($f =~ m{<rel\s+type=(["'])(.*?)\1>(.*?)</rel>}g)
             { push @{$data->{$2}}, $3; }
           $data; 
	 },
	 asHTML => sub{
	   my $f=shift;
	   Natura::small_entry($f);
	 },
	 asLaTeX => sub{
	   my $f=shift;
	   Natura::asLaTeX($f);
	 },
	 asText => sub{
	   my $f=shift;
	   $f =~ s{</?\w+}{ }g;
	   $f =~ s/(\s*[\n>"'])+\s*/,/g;
	   $f =~ s/\w+=//g;
	   $f =~ s/\s{2,}/ /g;
	   $f
	 },
	},
      }]
    };