872 |
|
|
873 |
my $node = new Search::HyperEstraier::Node( |
my $node = new Search::HyperEstraier::Node( |
874 |
url => 'http://localhost:1978/node/test', |
url => 'http://localhost:1978/node/test', |
875 |
|
user => 'admin', |
876 |
|
passwd => 'admin' |
877 |
debug => 1, |
debug => 1, |
878 |
croak_on_error => 1 |
croak_on_error => 1 |
879 |
); |
); |
886 |
|
|
887 |
URL to node |
URL to node |
888 |
|
|
889 |
|
=item user |
890 |
|
|
891 |
|
specify username for node server authentication |
892 |
|
|
893 |
|
=item passwd |
894 |
|
|
895 |
|
password for authentication |
896 |
|
|
897 |
=item debug |
=item debug |
898 |
|
|
899 |
dumps a B<lot> of debugging output |
dumps a B<lot> of debugging output |
924 |
if ($#_ == 0) { |
if ($#_ == 0) { |
925 |
$self->{url} = shift; |
$self->{url} = shift; |
926 |
} else { |
} else { |
|
my $args = {@_}; |
|
|
|
|
927 |
%$self = ( %$self, @_ ); |
%$self = ( %$self, @_ ); |
928 |
|
|
929 |
|
$self->set_auth( $self->{user}, $self->{passwd} ) if ($self->{user}); |
930 |
|
|
931 |
warn "## Node debug on\n" if ($self->{debug}); |
warn "## Node debug on\n" if ($self->{debug}); |
932 |
} |
} |
933 |
|
|