--- trunk/Estraier.pm 2006/01/06 12:40:23 49 +++ trunk/Estraier.pm 2006/01/06 12:48:14 50 @@ -867,7 +867,7 @@ return unless ($self->{url}); $self->shuttle_url( $self->{url} . '/out_doc', 'application/x-www-form-urlencoded', - "uri=$uri", + "uri=" . uri_escape($uri), undef ) == 200; } @@ -1050,7 +1050,7 @@ croak "id must be numberm not '$a->{id}'" unless ($a->{id} =~ m/^\d+$/); $arg = 'id=' . $a->{id}; } elsif ($a->{uri}) { - $arg = 'uri=' . $a->{uri}; + $arg = 'uri=' . uri_escape($a->{uri}); } else { confess "unhandled argument. Need id or uri."; }