#!/usr/bin/env perl
+use lib 'common/mojo/lib';
+
use Mojolicious::Lite;
use Data::Dump qw(dump);
-use Time::HiRes qw(time);
+use Time::HiRes;
use Clone qw(clone);
+sub new_uuid { Time::HiRes::time * 100000 }
+
# based on
# http://docs.getangular.com/REST.Basic
# http://angular.getangular.com/data
sub _render_jsonp {
my ( $self, $json ) = @_;
-warn "_render_json ",dump($json);
+#warn "## _render_json ",dump($json);
my $data = $self->render( json => $json, partial => 1 );
-warn "## $data";
+warn "## _render_json $data";
if ( my $callback = $self->param('callback') ) {
$data = "$callback($data)";
}
any [ 'post' ] => '/data/:database/:entity' => sub {
my $self = shift;
my $json = $self->req->json;
- my $id = $json->{'$id'} || Time::HiRes::time(); # FIXME UUID?
+ my $id = $json->{'$id'} # XXX we don't get it back from angular.js
+ || $json->{'_id'} # so we use our version
+ || new_uuid;
warn "## $id body ",dump($self->req->body, $json);
die "no data" unless $data;
+ $json->{'$id'} ||= $id; # angular.js doesn't resend this one
+ $json->{'_id'} = $id; # but does this one :-)
+
my $database = $self->param('database');
my $entity = $self->param('entity');
$data->{$database}->{$entity}->[$nr] = $json;
warn "# update $nr $id ",dump($json);
} else {
- $json->{'$id'} ||= $id;
push @{ $data->{$database}->{$entity} }, $json;
my $nr = $#{ $data->{$database}->{$entity} };
- $id2nr->{$id} = $nr;
+ $id2nr->{$database}->{$entity}->{$id} = $nr;
warn "# added $nr $id ",dump($json);
}
_render_jsonp( $self, $json );
<!DOCTYPE HTML>
<html xmlns:ng="http://angularjs.org">
<head>
+ <meta charset="utf-8">
% my $ANGULAR_JS = $ENV{ANGULAR_JS} || ( -e 'public/angular/build/angular.js' ? '/angular/build/angular.js' : '/angular/src/angular-bootstrap.js' );
<script type="text/javascript"
src="<%== $ANGULAR_JS %>" ng:autobind></script>