42 |
|
|
43 |
Open KinoSearch index |
Open KinoSearch index |
44 |
|
|
45 |
my $est = new WebPAC::Output::KinoSearch({ |
my $out = new WebPAC::Output::KinoSearch({ |
46 |
path => '/path/to/invindex', |
path => '/path/to/invindex', |
47 |
database => 'demo', |
database => 'demo', |
48 |
encoding => 'iso-8859-2', |
encoding => 'iso-8859-2', |
69 |
|
|
70 |
=back |
=back |
71 |
|
|
72 |
|
=head2 init |
73 |
|
|
74 |
|
$out->init; |
75 |
|
|
76 |
=cut |
=cut |
77 |
|
|
78 |
sub init { |
sub init { |
115 |
|
|
116 |
Adds one entry |
Adds one entry |
117 |
|
|
118 |
$est->add( 42, $ds ); |
$out->add( 42, $ds ); |
119 |
|
|
120 |
=cut |
=cut |
121 |
|
|
143 |
|
|
144 |
Close index |
Close index |
145 |
|
|
146 |
$index->finish; |
$out->finish; |
147 |
|
|
148 |
=cut |
=cut |
149 |
|
|
156 |
|
|
157 |
} |
} |
158 |
|
|
|
=head2 convert |
|
|
|
|
|
my $utf8_string = $self->convert('string in codepage'); |
|
|
|
|
|
=cut |
|
|
|
|
|
sub convert { |
|
|
my $self = shift; |
|
|
|
|
|
my $text = shift || return; |
|
|
from_to($text, $self->{encoding}, 'UTF-8'); |
|
|
return $text; |
|
|
} |
|
|
|
|
159 |
=head1 AUTHOR |
=head1 AUTHOR |
160 |
|
|
161 |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |