--- trunk2/all2all.pl 2004/09/05 22:22:37 411 +++ trunk2/all2all.pl 2004/09/12 01:25:55 426 @@ -19,13 +19,16 @@ code_page => 'ISO-8859-2', limit_mfn => 500, # debug => 1, +# low_mem => 1, ) || die; -my $log = $webpac->_get_logger(); +my $log = $webpac->_get_logger() || die "can't get logger"; + +$log->debug("creating WebPAC::jsFind object"); my $index = new WebPAC::jsFind( index_path => './out/index', - keys => 80, + keys => 10, ) || die; my $thes; @@ -41,13 +44,20 @@ # { 'eval' => '"v901^a" eq "Deskriptor"', 'key' => 'a:v561^4:v562^4:v461^1', 'val' => 'v900' }, { 'key' => 'a:v561^4:v562^4:v461^1', 'val' => 'v900' }, { 'key' => '900_mfn:v900', 'val' => 'v000' }, + # tree structure + { 'eval' => 'length("v251") == 2', 'key' => 'root:v251', 'val' => 'v900' }, + { 'eval' => '"v251"', 'key' => 'code:v900', 'val' => 'v561^4:v251' }, ], ); +$log->debug("isis file ",$webpac->{'isis_filename'}," opened"); + $log->info("rows: $maxmfn"); $webpac->open_import_xml(type => 'isis_hidra_ths'); +if(1) { # XXX + while (my $rec = $webpac->fetch_rec) { my @ds = $webpac->data_structure($rec); @@ -59,7 +69,7 @@ next if (! @ds); - my $filename = $webpac->{'current_filename'}; + my $filename = $webpac->{'current_filename'} || $log->logdie("no current_filename in webpac object"); if ($filename) { $webpac->output_file( @@ -99,10 +109,12 @@ $thes->{$ds->{'tag'}} ||= new WebPAC::Index; - $thes->{$ds->{'tag'}}->insert( - path => $f, - headline => $headline, - ); + foreach my $h (@{$ds->{'index'}}) { + $thes->{$ds->{'tag'}}->insert( + path => $f, + headline => $h, + ); + } } # print Dumper(\@ds); @@ -117,10 +129,11 @@ next; } - $log->debug("saving sorted index $t [".scalar(@e)." elements]"); + my $file = "./out/bfilter/$t.txt"; + $log->info("saving sorted index $t to '$file' [".scalar(@e)." elements]"); $webpac->output_file( - file => "./out/thes_$t.html", + file => $file, template => 'index.tt', data => \@e, index_name => $t, @@ -135,5 +148,169 @@ } } +} # XXX if(0) + +$log->info("lookup hash: ",Dumper($webpac->{'lookup'})); + +# +# tree dump implementation which shouldn't be here :-) +# + +my $file = 'out/browse.html'; +open(HTML, "> $file") || $log->logdie("can't open '$file'"); + +print HTML qq{ + + + Browse + + + + + + + +}; + +close(HTML); + $index->close; +$log->info("elapsed time: ",$webpac->fmt_time(time() - $webpac->{'start_t'}));