--- trunk/Estraier.pm	2006/01/05 15:21:29	27
+++ trunk/Estraier.pm	2006/01/05 15:36:25	31
@@ -661,6 +661,8 @@
 
 package Search::Estraier::Node;
 
+use Carp qw/croak/;
+
 =head1 Search::Estraier::Node
 
 =head2 new
@@ -687,6 +689,64 @@
 	$self ? return $self : return undef;
 }
 
+=head2 set_url
+
+Specify URL to node server
+
+  $node->set_url('http://localhost:1978');
+
+=cut
+
+sub set_url {
+	my $self = shift;
+	$self->{url} = shift;
+}
+
+=head2 set_proxy
+
+Specify proxy server to connect to node server
+
+  $node->set_proxy('proxy.example.com', 8080);
+
+=cut
+
+sub set_proxy {
+	my $self = shift;
+	my ($host,$port) = @_;
+	croak "proxy port must be number" unless ($port =~ m/^\d+$/);
+	$self->{pxhost} = $host;
+	$self->{pxport} = $port;
+}
+
+=head2 set_timeout
+
+Specify timeout of connection in seconds
+
+  $node->set_timeout( 15 );
+
+=cut
+
+sub set_timeout {
+	my $self = shift;
+	my $sec = shift;
+	croak "timeout must be number" unless ($sec =~ m/^\d+$/);
+	$self->{timeout} = $sec;
+}
+
+=head2 set_auth
+
+Specify name and password for authentication to node server.
+
+  $node->set_auth('clint','eastwood');
+
+=cut
+
+sub set_auth {
+	my $self = shift;
+	my ($login,$passwd) = @_;
+	$self->{auth} = "$login:$passwd";
+}
+
 package Search::Estraier::Master;
 
 use Carp;