--- trunk/Estraier.pm 2006/05/10 14:08:34 140 +++ trunk/Estraier.pm 2006/05/15 22:26:08 150 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '0.06_1'; +our $VERSION = '0.07_1'; =head1 NAME @@ -1084,11 +1084,15 @@ my $id = shift || return; return unless ($self->{url}); croak "id must be number, not '$id'" unless ($id =~ m/^\d+$/); - $self->shuttle_url( $self->{url} . '/out_doc', + if ($self->shuttle_url( $self->{url} . '/out_doc', 'application/x-www-form-urlencoded', "id=$id", undef - ) == 200; + ) == 200) { + $self->_set_info; + return $id; + } + return undef; } @@ -1106,11 +1110,15 @@ my $self = shift; my $uri = shift || return; return unless ($self->{url}); - $self->shuttle_url( $self->{url} . '/out_doc', + if ($self->shuttle_url( $self->{url} . '/out_doc', 'application/x-www-form-urlencoded', "uri=" . uri_escape($uri), undef - ) == 200; + ) == 200) { + $self->_set_info; + return $uri; + } + return undef; } @@ -1682,6 +1690,7 @@ $self->_set_info; return 1; } + return undef; } =head2 admins @@ -1828,6 +1837,10 @@ ) or confess "shuttle_url failed"; if ($status == $rest->{status}) { + + # refresh node info after sync + $self->_set_info if ($action eq 'sync'); + if ($rest->{returns} && wantarray) { my @results;