X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=migrate-db.pl;h=b228eec10e324fee49ce7d56c67bb2bc10f8fa70;hb=9c5624e352449b2012aada84b3e210a8c043ddac;hp=a630d086b49123b811c62bea22cbcccedec06ac5;hpb=ac0c752be3db148de89205e5464f45f0d2d9dfce;p=angular-drzb diff --git a/migrate-db.pl b/migrate-db.pl index a630d08..b228eec 100755 --- a/migrate-db.pl +++ b/migrate-db.pl @@ -8,7 +8,7 @@ use Data::Dump qw(dump); my $ua = Mojo::UserAgent->new; my $from = 'http://10.60.0.95:5984/drzb2013'; -my $to = 'http://10.60.0.92:5984/drzb2013'; +my $to = 'http://10.60.0.95:5984/drzb2013v2'; my $docs = $ua->get("$from/_all_docs?include_docs=true")->res->json; @@ -66,7 +66,7 @@ foreach my $doc ( map { $_->{doc} } @{ $docs->{rows} } ) { my $id = $new->{_id} || die "no _id in new"; my $result = $ua->put("$to/$id" => Mojo::JSON->new->encode( $new ))->res->json; - die "ERROR $id ",dump($result) unless $result->{ok}; + die "ERROR $to/$id ",dump($result) unless $result->{ok}; warn "SAVED $id into $to\n";