103 |
use WAIT::Parse::Base; |
use WAIT::Parse::Base; |
104 |
use WAIT::Parse::Pod; |
use WAIT::Parse::Pod; |
105 |
use WAIT::Document::Tar; |
use WAIT::Document::Tar; |
106 |
|
use WAIT::Document::Find; |
107 |
|
|
108 |
sub fname($); |
sub fname($); |
109 |
|
|
867 |
|
|
868 |
$self->{'iso2utf'} = Text::Iconv->new('ISO-8859-1','UTF-8'); |
$self->{'iso2utf'} = Text::Iconv->new('ISO-8859-1','UTF-8'); |
869 |
|
|
870 |
my $node = Search::Estraier::Node->new($self->{'uri'}); |
my $node = Search::Estraier::Node->new( |
871 |
$node->set_auth('admin', 'admin'); |
url => $self->{'uri'}, |
872 |
|
user => 'admin', |
873 |
|
passwd => 'admin', |
874 |
|
create => 1, |
875 |
|
); |
876 |
|
|
877 |
$self->{'node'} = $node; |
$self->{'node'} = $node; |
878 |
|
|