7 use CGI::Carp qw/fatalsToBrowser/;
16 print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>|;
19 my $path = $ENV{PATH_INFO};
21 $dir =~ s{/[^/]+.cgi}{};
23 my $config = YAML::LoadFile( "$dir/$path/config.yml" );
25 my $database = (keys %{ $config->{databases} })[0];
26 die "$database not in $path" unless $path =~ m{\Q$database\E};
28 my $estraier = YAML::LoadFile( "$dir/../var/estraier/$database.yaml" );
30 my $db = $config->{databases}->{$database};
32 my @attr = keys %{ $estraier->{attr} }; # FIXME replace with real gnerated lookup
36 -title => $db->{name},
37 -style => '../../style.css',
40 qq|<div id=description>|, $db->{description}, qq|</div>|,
47 textfield( -name => 'search' ),
53 if ( my $search = param('search') ) {
55 print qq|<div id="results">|;
57 my $node = Search::Estraier::Node->new(
58 url => $config->{hyperestraier}->{masterurl} . '/node/' . $database,
62 my $cond = Search::Estraier::Condition->new;
63 $cond->set_phrase( $search );
64 my $nres = $node->search( $cond, 0 );
67 my $no_results = "No results for search '%s'";
68 printf qq|<div class="error">$no_results</div>|, $search;
70 my $results = "Got %d results for search '%s'";
71 printf qq|<div class="message">$results</div>|, $nres->hits, $search;
75 foreach my $i ( 1 .. $nres->doc_num ) {
76 my $rdoc = $nres->get_doc( $i - 1 );
78 print qq|<div><label>$_</label><span class=$_>|, $rdoc->attr( $_ ), qq|</span></div>|
87 dump_yaml( 'estraier', $estraier );
88 dump_yaml( 'db', $db );