--- trunk2/all2all.pl 2004/09/09 18:25:34 420 +++ trunk2/all2all.pl 2004/09/12 20:36:33 432 @@ -17,11 +17,15 @@ my $webpac = new WebPAC( code_page => 'ISO-8859-2', -# limit_mfn => 500, + limit_mfn => 500, + start_mfn => 6000, # 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', @@ -47,10 +51,14 @@ ], ); +$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); @@ -62,7 +70,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( @@ -141,13 +149,19 @@ } } -$log->info("lookup hash: ",Dumper($webpac->{'lookup'})); +} # XXX if(0) + +$log->debug("lookup hash: ",Dumper($webpac->{'lookup'})); # # tree dump implementation which shouldn't be here :-) # + my $file = 'out/browse.html'; +my $js_url = 'tree-ids.js'; + +$log->info("creating '$file' for tree html"); open(HTML, "> $file") || $log->logdie("can't open '$file'"); print HTML qq{ @@ -155,63 +169,233 @@ Browse + + - -