--- trunk2/all2all.pl 2004/09/11 08:36:38 422 +++ trunk2/all2all.pl 2004/09/14 09:23:00 440 @@ -9,17 +9,35 @@ use strict; use Data::Dumper; use Carp; +use Getopt::Long; use lib './lib'; use WebPAC; use WebPAC::jsFind; use WebPAC::Index; +# options which can be changed via command line +# +my $code_page = 'ISO-8859-2'; +my ($limit_mfn, $start_mfn, $debug, $low_mem); +my $index_path = './out/index'; + +my $result = GetOptions( + "code_page=s" => \$code_page, + "limit_mfn=i" => \$limit_mfn, + "start_mfn=i" => \$start_mfn, + "debug!" => \$debug, + "low_mem!" => \$low_mem, +); + +# create WebPAC object +# my $webpac = new WebPAC( - code_page => 'ISO-8859-2', -# limit_mfn => 100, -# debug => 1, - low_mem => 1, + code_page => $code_page, + limit_mfn => $limit_mfn, + start_mfn => $start_mfn, + debug => $debug, + low_mem => $low_mem, ) || die; my $log = $webpac->_get_logger() || die "can't get logger"; @@ -27,7 +45,7 @@ $log->debug("creating WebPAC::jsFind object"); my $index = new WebPAC::jsFind( - index_path => './out/index', + index_path => $index_path, keys => 10, ) || die; @@ -56,7 +74,7 @@ $webpac->open_import_xml(type => 'isis_hidra_ths'); -$log->debug("data: ",Dumper($webpac->{'data'})); +if(1) { # XXX while (my $rec = $webpac->fetch_rec) { @@ -148,13 +166,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{ @@ -162,63 +186,233 @@ Browse + + - -