867 |
return unless ($self->{url}); |
return unless ($self->{url}); |
868 |
$self->shuttle_url( $self->{url} . '/out_doc', |
$self->shuttle_url( $self->{url} . '/out_doc', |
869 |
'application/x-www-form-urlencoded', |
'application/x-www-form-urlencoded', |
870 |
"uri=$uri", |
"uri=" . uri_escape($uri), |
871 |
undef |
undef |
872 |
) == 200; |
) == 200; |
873 |
} |
} |
1050 |
croak "id must be numberm not '$a->{id}'" unless ($a->{id} =~ m/^\d+$/); |
croak "id must be numberm not '$a->{id}'" unless ($a->{id} =~ m/^\d+$/); |
1051 |
$arg = 'id=' . $a->{id}; |
$arg = 'id=' . $a->{id}; |
1052 |
} elsif ($a->{uri}) { |
} elsif ($a->{uri}) { |
1053 |
$arg = 'uri=' . $a->{uri}; |
$arg = 'uri=' . uri_escape($a->{uri}); |
1054 |
} else { |
} else { |
1055 |
confess "unhandled argument. Need id or uri."; |
confess "unhandled argument. Need id or uri."; |
1056 |
} |
} |