3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
6 |
use HyperEstraier; |
use Search::Estraier; |
7 |
use Text::Iconv; |
use Text::Iconv; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
13 |
|
|
14 |
=head1 VERSION |
=head1 VERSION |
15 |
|
|
16 |
Version 0.05 |
Version 0.06 |
17 |
|
|
18 |
=cut |
=cut |
19 |
|
|
20 |
our $VERSION = '0.05'; |
our $VERSION = '0.06'; |
21 |
|
|
22 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
23 |
|
|
90 |
|
|
91 |
$log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}"); |
$log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}"); |
92 |
|
|
93 |
$self->{'db'} = HyperEstraier::Node->new($self->{'url'}); |
$self->{db} = Search::Estraier::Node->new; |
94 |
$self->{'db'}->set_auth($self->{'user'}, $self->{'passwd'}); |
$self->{db}->set_url($self->{'url'}); |
95 |
|
$self->{db}->set_auth($self->{'user'}, $self->{'passwd'}); |
96 |
|
|
97 |
my $encoding = $self->{'encoding'} || 'ISO-8859-2'; |
my $encoding = $self->{'encoding'} || 'ISO-8859-2'; |
98 |
$log->info("using encoding $encoding"); |
$log->info("using encoding $encoding"); |
149 |
|
|
150 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("args: " . Dumper( $args )); |
151 |
|
|
152 |
my $cond = HyperEstraier::Condition->new(); |
my $cond = Search::Estraier::Condition->new(); |
153 |
if ( ref($args->{add_attr}) eq 'ARRAY' ) { |
if ( ref($args->{add_attr}) eq 'ARRAY' ) { |
154 |
$log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) ); |
$log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) ); |
155 |
map { |
map { |