12 |
print header; |
print header; |
13 |
|
|
14 |
sub dump_yaml { |
sub dump_yaml { |
15 |
print qq|<pre>|, YAML::Dump( @_ ), qq|</pre>|; |
my $name = shift; |
16 |
|
print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>|; |
17 |
} |
} |
18 |
|
|
19 |
my $path = $ENV{PATH_INFO}; |
my $path = $ENV{PATH_INFO}; |
52 |
|
|
53 |
if ( my $search = param('search') ) { |
if ( my $search = param('search') ) { |
54 |
|
|
55 |
print qq|<div id="results">search: $search|; |
print qq|<div id="results">|; |
56 |
|
|
57 |
my $node = Search::Estraier::Node->new( |
my $node = Search::Estraier::Node->new( |
58 |
url => $config->{hyperestraier}->{masterurl} . '/node/' . $database, |
url => $config->{hyperestraier}->{masterurl} . '/node/' . $database, |
65 |
|
|
66 |
if ( ! $nres ) { |
if ( ! $nres ) { |
67 |
my $no_results = "No results for search '%s'"; |
my $no_results = "No results for search '%s'"; |
68 |
printf qq|<div class="error">$no_results</a>|, $search; |
printf qq|<div class="error">$no_results</div>|, $search; |
69 |
} else { |
} else { |
70 |
print qq|<ul>|; |
my $results = "Got %d results for search '%s'"; |
71 |
|
printf qq|<div class="message">$results</div>|, $nres->hits, $search; |
72 |
|
|
73 |
|
print qq|<ol>|; |
74 |
|
|
75 |
foreach my $i ( 1 .. $nres->doc_num ) { |
foreach my $i ( 1 .. $nres->doc_num ) { |
76 |
my $rdoc = $nres->get_doc( $i - 1 ); |
my $rdoc = $nres->get_doc( $i - 1 ); |
77 |
print qq|<li>|; |
print qq|<li>|; |
79 |
foreach @attr; |
foreach @attr; |
80 |
print qq|</li>\n|; |
print qq|</li>\n|; |
81 |
} |
} |
82 |
print qq|</ul>|; |
print qq|</ol>|; |
83 |
} |
} |
84 |
print qq|</div>|; |
print qq|</div>|; |
85 |
} |
} |
86 |
|
|
87 |
dump_yaml( $estraier ); |
dump_yaml( 'estraier', $estraier ); |
88 |
dump_yaml( $db ); |
dump_yaml( 'db', $db ); |
89 |
|
|
90 |
print end_html; |
print end_html; |