From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 7 Nov 2010 14:45:12 +0000 (+0100)
Subject: implement _couchdb_get to get stored entries back
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=bdf8e86dee3f4843961f8b9957df7c43f663afc1;p=angular-mojolicious.git

implement _couchdb_get to get stored entries back

This change allows (for the first time) server restart without data
loss since all records are stored in CouchDB
---

diff --git a/angular-server.pl b/angular-server.pl
index 0c7d451..89c993e 100755
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -60,6 +60,13 @@ sub _couchdb_put {
 	})->process;
 }
 
+sub _couchdb_get {
+	my ( $self, $database, $entity, $id ) = @_;
+	my $client = Mojo::Client->new;
+	my $return = $client->get( "$couchdb/$database/$entity.$id" )->res->json;
+	warn "# _couchdb_get $couchdb/$database/$entity.$id = ",dump($return);
+	return $return;
+}
 
 our $id2nr;
 
@@ -138,7 +145,12 @@ get '/data/:database/:entity/:id' => sub {
 	my $entity   = $self->param('entity');
 	my $id       = $self->param('id');
 
-	my $e = $data->{$database}->{$entity} || die "no entity $entity";
+	my $e = $data->{$database}->{$entity};
+
+	if ( ! $e ) {
+		$e = _couchdb_get( $self, $database, $entity, $id );
+		return _render_jsonp( $self, $e );
+	}
 
 	if ( ! defined $id2nr->{$database}->{$entity}  ) {
 		foreach my $i ( 0 .. $#$e ) {