/_repicate cleanup url for entries

diff --git a/angular-server.pl b/angular-server.pl
index f84f2eb..d81ac00 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -11,7 +11,7 @@ our $data;
 
 get '/' => 'index';
 
-get '/replicate' => sub {
+get '/_replicate' => sub {
        my $self = shift;
 
        if ( my $from = $self->param('from') ) {
@@ -24,8 +24,11 @@ get '/replicate' => sub {
 
                if ( $database && $entities ) {
                        foreach my $entity ( keys %$entities ) {
-                               my $e = $self->client->get( "$from/$entity" )->res->json;
-                               warn "# replicated $entity ", dump($e);
+                               my $url = $from;
+                               $url =~ s{/+$}{/};
+                               $url .= $entity;
+                               my $e = $self->client->get( $url )->res->json;
+                               warn "# replicated $url ", dump($e);
                                $data->{$database}->{$entity} = $e;
                        }
                }