convert cookbook index page to template

[angular-mojolicious.git] / angular-server.pl

diff --git a/angular-server.pl b/angular-server.pl
index f91d8f5..f90740e 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -8,10 +8,11 @@ use Data::Dump qw(dump);
 # http://angular.getangular.com/data
 
 our $data;
+our $id2nr;
 
 get '/' => 'index';
 
-get '/replicate' => sub {
+get '/_replicate' => sub {
        my $self = shift;
 
        if ( my $from = $self->param('from') ) {
@@ -24,14 +25,22 @@ 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{/?$}{/}; # add slash at end
+                               $url .= $entity;
+                               my $e = $self->client->get( $url )->res->json;
+                               warn "# replicated $url ", dump($e);
                                $data->{$database}->{$entity} = $e;
+                               delete $id2nr->{$database}->{$entity};
                        }
                }
        }
 };
 
+get '/_data' => sub {
+       shift->render_json( $data )
+};
+
 get '/data/' => sub {
        my $self = shift;
        $self->render_json( [ keys %$data ] );
@@ -41,9 +50,10 @@ get '/data/:database' => sub {
        my $self = shift;
        my $database = $self->param('database');
        my $list_databases = { name => $database };
-       foreach my $database ( keys %{ $data->{ $database }} ) {
-               my $count = scalar keys %{ $data->{$database} };
-               $list_databases->{entities}->{$database} = $count;
+       foreach my $entity ( keys %{ $data->{ $database }} ) {
+warn "# entry $entity ", dump( $data->{$database}->{$entity} );
+               my $count = $#{ $data->{$database}->{$entity} } + 1;
+               $list_databases->{entities}->{$entity} = $count;
                $list_databases->{document_count} += $count;
        }
        warn dump($list_databases);
@@ -52,12 +62,31 @@ get '/data/:database' => sub {
 
 get '/data/:database/:entity' => sub {
        my $self = shift;
-
+       $self->render_json( $data->{ $self->param('database') }->{ $self->param('entity' ) } );
 };
 
 get '/data/:database/:entity/:id' => sub {
     my $self = shift;
 
+       my $database = $self->param('database');
+       my $entity   = $self->param('entity');
+       my $id       = $self->param('id');
+
+       my $e = $data->{$database}->{$entity} || die "no entity $entity";
+
+       if ( ! defined $id2nr->{$database}->{$entity}  ) {
+               foreach my $i ( 0 .. $#$e ) {
+                       $id2nr->{$database}->{$entity}->{ $e->[$i]->{'$id'} } = $i;
+               }
+       }
+
+       if ( exists $id2nr->{$database}->{$entity}->{$id} ) {
+               my $nr = $id2nr->{$database}->{$entity}->{$id};
+               warn "# entity $id -> $nr\n";
+               $self->render_json( $data->{$database}->{$entity}->[$nr] );
+       } else {
+               die "no entity $entity $id in ", dump( $id2nr->{$database}->{$entity} );
+       }
 };
 
 any [ 'put' ] => '/data/:database/:entity/:id' => sub {
@@ -71,6 +100,8 @@ get '/demo/:groovy' => sub {
     $self->render(text => $self->param('groovy'), layout => 'funky');
 };
 
+get '/Cookbook' => 'Cookbook';
+
 
 app->start;
 __DATA__