13 |
|
|
14 |
=head1 VERSION |
=head1 VERSION |
15 |
|
|
16 |
Version 0.03 |
Version 0.04 |
17 |
|
|
18 |
=cut |
=cut |
19 |
|
|
20 |
our $VERSION = '0.03'; |
our $VERSION = '0.04'; |
21 |
|
|
22 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
23 |
|
|
31 |
Connect to Hyper Estraier index using HTTP |
Connect to Hyper Estraier index using HTTP |
32 |
|
|
33 |
my $est = new WebPAC::Search::Estraier( |
my $est = new WebPAC::Search::Estraier( |
34 |
url => 'http://localhost:1978/node/webpac2', |
masterurl => 'http://localhost:1978/', |
35 |
|
database => 'webpac2', |
36 |
user => 'admin', |
user => 'admin', |
37 |
passwd => 'admin', |
passwd => 'admin', |
38 |
encoding => 'iso-8859-2', |
encoding => 'iso-8859-2', |
43 |
|
|
44 |
=over 4 |
=over 4 |
45 |
|
|
46 |
=item url |
=item maseterurl |
47 |
|
|
48 |
URI to C<estmaster> node |
URI to C<estmaster> node |
49 |
|
|
50 |
|
=item database |
51 |
|
|
52 |
|
name of C<estmaster> node |
53 |
|
|
54 |
=item user |
=item user |
55 |
|
|
56 |
C<estmaster> user with read rights |
C<estmaster> user with read rights |
81 |
|
|
82 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
83 |
|
|
84 |
foreach my $p (qw/url user passwd/) { |
foreach my $p (qw/masterurl user passwd/) { |
85 |
$log->logdie("need $p") unless ($self->{$p}); |
$log->logdie("need $p") unless ($self->{$p}); |
86 |
} |
} |
87 |
|
|
88 |
|
my $url = $self->{masterurl} . '/node/' . $self->{database}; |
89 |
|
$url =~ s#//#/#g; |
90 |
|
$self->{url} = $url; |
91 |
|
|
92 |
$log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}"); |
$log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}"); |
93 |
|
|
94 |
$self->{'db'} = HyperEstraier::Node->new($self->{'url'}); |
$self->{'db'} = HyperEstraier::Node->new($self->{'url'}); |