29 |
log => 'log4perl.conf', |
log => 'log4perl.conf', |
30 |
); |
); |
31 |
|
|
32 |
C<index> is path to location where jsFind index should be created. |
C<index_path> is path to location where jsFind index should be created. |
33 |
|
|
34 |
C<keys> is optional parametar which specify number of keys in each node |
C<keys> is optional parametar which specify number of keys in each node |
35 |
(which has to be even number). Default is 10. |
(which has to be even number). Default is 10. |
102 |
carp "no headline for ",$args->{'path'}," ?"; |
carp "no headline for ",$args->{'path'}," ?"; |
103 |
$args->{'headline'} = "no headline: ".$args->{'path'}; |
$args->{'headline'} = "no headline: ".$args->{'path'}; |
104 |
} |
} |
105 |
return unless (defined($args->{'words'})); |
if (! defined($args->{'words'})) { |
106 |
|
$log->warn("no words to insert for headline ",$args->{'headline'}); |
107 |
|
return; |
108 |
|
} |
109 |
|
|
110 |
my $words = lc($args->{'words'}); |
my $words = lc($args->{'words'}); |
111 |
|
|