| 733 |
$self->{timeout} = $sec; |
$self->{timeout} = $sec; |
| 734 |
} |
} |
| 735 |
|
|
| 736 |
|
=head2 set_auth |
| 737 |
|
|
| 738 |
|
Specify name and password for authentication to node server. |
| 739 |
|
|
| 740 |
|
$node->set_auth('clint','eastwood'); |
| 741 |
|
|
| 742 |
|
=cut |
| 743 |
|
|
| 744 |
|
sub set_auth { |
| 745 |
|
my $self = shift; |
| 746 |
|
my ($login,$passwd) = @_; |
| 747 |
|
$self->{auth} = "$login:$passwd"; |
| 748 |
|
} |
| 749 |
|
|
| 750 |
|
=head2 status |
| 751 |
|
|
| 752 |
|
Return status code of last request. |
| 753 |
|
|
| 754 |
|
print $res->status; |
| 755 |
|
|
| 756 |
|
C<-1> means connection failure. |
| 757 |
|
|
| 758 |
|
=cut |
| 759 |
|
|
| 760 |
|
sub status { |
| 761 |
|
my $self = shift; |
| 762 |
|
return $self->{status}; |
| 763 |
|
} |
| 764 |
|
|
| 765 |
|
|
| 766 |
package Search::Estraier::Master; |
package Search::Estraier::Master; |
| 767 |
|
|
| 768 |
use Carp; |
use Carp; |
Parent Directory
| 
Revision Log
| 
Patch