-get '/_replicate' => sub {
- my $self = shift;
-
- if ( my $from = $self->param('from') ) {
- my $got = $self->client->get( $from )->res->json;
- warn "# from $from ",dump($got);
- _render_jsonp( $self, $got );
-
- my $database = $got->{name};
- my $entities = $got->{entities};
-
- if ( $database && $entities ) {
- foreach my $entity ( keys %$entities ) {
- my $url = $from;
- $url =~ s{/?$}{/}; # add slash at end
- $url .= $entity;
- my $e = $self->client->get( $url )->res->json;
- warn "# replicated $url ", dump($e);
- _chouchdb_put( $self, $database, $entity, $e->{'$id'}, $e );
- }
- }
- }
-};