--- trunk/Estraier.pm	2006/01/05 15:21:29	27
+++ trunk/Estraier.pm	2006/01/05 15:30:35	29
@@ -661,6 +661,8 @@
 
 package Search::Estraier::Node;
 
+use Carp qw/croak/;
+
 =head1 Search::Estraier::Node
 
 =head2 new
@@ -687,6 +689,35 @@
 	$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;
+}
+
 package Search::Estraier::Master;
 
 use Carp;