4 |
use strict; |
use strict; |
5 |
|
|
6 |
use Carp; |
use Carp; |
7 |
use jsFind 0.04; |
use jsFind 0.06; |
8 |
use Log::Log4perl qw(get_logger :levels); |
use Log::Log4perl qw(get_logger :levels); |
9 |
|
|
10 |
=head1 NAME |
=head1 NAME |
166 |
|
|
167 |
$log->debug("saving index '$index_name' xml files to '$path'"); |
$log->debug("saving index '$index_name' xml files to '$path'"); |
168 |
|
|
169 |
$self->tree($index_name)->to_jsfind($path,'ISO-8859-2','UTF-8'); |
$self->tree($index_name)->to_jsfind( |
170 |
|
dir => $path, |
171 |
|
data_codepage => 'ISO-8859-2', |
172 |
|
index_codepage => 'UTF-8' |
173 |
|
); |
174 |
|
|
175 |
if ($log->is_debug()) { |
if ($log->is_debug()) { |
176 |
my $dot_file = $index_name.".dot"; |
my $dot_file = $index_name.".dot"; |