6 use Data::Dump qw(dump);
8 use lib 'common/mojo/lib';
10 my ( $from, $to ) = @ARGV;
12 die "usage: $0 http://from/data/database/ http://to/data/database/\n"
15 my $client = Mojo::Client->new;
17 my $got = $client->get( $from )->res->json;
18 warn "# from $from ",dump($got);
20 my $database = $got->{name};
21 my $entities = $got->{entities};
24 my ($url,$entity) = @_;
25 $url =~ s{/?$}{/}; # add slash at end
31 if ( $database && $entities ) {
32 foreach my $entity ( keys %$entities ) {
33 my $all = $client->get( _url_entity( $from => $entity ) )->res->json;
34 warn "## all = ",dump($all);
35 warn "# fetched ", $#$all + 1, " $entity entities from $from";
36 foreach my $e ( @$all ) {
37 delete $e->{_id}; # sanitize data from older implementation
38 my $json = Mojo::JSON->new->encode( $e );
39 my $response = $client->post( _url_entity( $to => $entity ), $json )->res->body;
40 warn "# replicated $entity\n$json\n",dump($response);