--- trunk/Estraier.pm	2006/01/06 01:12:10	44
+++ trunk/Estraier.pm	2006/01/06 01:36:09	45
@@ -854,7 +854,7 @@
 
 Remove a registrated document using it's uri
 
-  $node->out_doc_by_uri( 'file:///document_url' ) or "can't remove document";
+  $node->out_doc_by_uri( 'file:///document/uri/42' ) or "can't remove document";
 
 Return true on success or false on failture.
 
@@ -915,7 +915,7 @@
 
 Retreive document
 
-  my $doc = $node->get_doc_by_uri( 'file:///document_uri' ) or die "can't get document";
+  my $doc = $node->get_doc_by_uri( 'file:///document/uri/42' ) or die "can't get document";
 
 Return true on success or false on failture.
 
@@ -946,7 +946,7 @@
 
 Retreive document
 
-  my $keywords = $node->etch_doc_by_uri( 'file:///document_uri' ) or die "can't etch document";
+  my $keywords = $node->etch_doc_by_uri( 'file:///document/uri/42' ) or die "can't etch document";
 
 Return true on success or false on failture.
 
@@ -959,13 +959,41 @@
 }
 
 
+=head2 uri_to_id
+
+Get ID of document specified by URI
+
+  my $id = $node->uri_to_id( 'file:///document/uri/42' );
+
+=cut
+
+sub uri_to_id {
+	my $self = shift;
+	my $uri = shift || return;
+	return $self->_fetch_doc( uri => $uri, path => '/uri_to_id', chomp_resbody => 1 );
+}
+
+
 =head2 _fetch_doc
 
 Private function used for implementing of C<get_doc>, C<get_doc_by_uri>,
 C<etch_doc>, C<etch_doc_by_uri>.
 
- my $doc = $node->fetch_doc( id => 42, etch => 1 );
- my $doc = $node->fetch_doc( uri => 'file://uri/42' );
+ # this will decode received draft into Search::Estraier::Document object
+ my $doc = $node->_fetch_doc( id => 42 );
+ my $doc = $node->_fetch_doc( uri => 'file:///document/uri/42' );
+
+ # to extract keywords, add etch
+ my $doc = $node->_fetch_doc( id => 42, etch => 1 );
+ my $doc = $node->_fetch_doc( uri => 'file:///document/uri/42', etch => 1 );
+
+ # more general form which allows implementation of
+ # uri_to_id
+ my $id = $node->_fetch_doc(
+ 	uri => 'file:///document/uri/42',
+	path => '/uri_to_id',
+	chomp_resbody => 1
+ );
 
 =cut
 
@@ -976,7 +1004,7 @@
 
 	my ($arg, $resbody);
 
-	my $path = '/get_doc';
+	my $path = $a->{path} || '/get_doc';
 	$path = '/etch_doc' if ($a->{etch});
 
 	if ($a->{id}) {
@@ -991,7 +1019,7 @@
 	my $rv = $self->shuttle_url( $self->{url} . $path,
 		'application/x-www-form-urlencoded',
 		$arg,
-		$resbody,
+		\$resbody,
 	);
 
 	return if ($rv != 200);
@@ -1004,6 +1032,10 @@
 			$self->{kwords}->{$k} = $v if ($v);
 		}
 		return $self->{kwords};
+	} elsif ($a->{chomp_resbody}) {
+		return unless (defined($resbody));
+		chomp($resbody);
+		return $resbody;
 	} else {
 		return new Search::Estraier::Document($resbody);
 	}