Funky!

From: Dobrica Pavlinusic Date: Thu, 13 Dec 2012 22:35:11 +0000 (+0100) Subject: remove unused code and open application on / X-Git-Tag: 0.4~92 X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=67efa8f1d57e6c2ea6b6e06955d4183654bdc14d;hp=687df4df88576d5a92da49e28caa2752c8af821d;p=angular-drzb remove unused code and open application on / --- diff --git a/angular-server.pl b/angular-server.pl index e8d3729..11e0c47 100755 --- a/angular-server.pl +++ b/angular-server.pl @@ -1,7 +1,5 @@ #!/usr/bin/env perl -use lib 'common/mojo/lib'; - use Mojolicious::Lite; use Data::Dump qw(dump); use Time::HiRes; @@ -51,7 +49,10 @@ warn "## _render_json $data"; $self->render( data => $data, format => 'js' ); } -#get '/' => 'index'; +get '/' => sub { + my $self = shift; + $self->render_static('/index.html'); # main AngularJS application page +}; get '/data/' => sub { @@ -160,77 +161,5 @@ get '/:database/_design/:design/_view/:view' => sub { _render_jsonp( $self, _couchdb_get($url)); }; -# static JSON files from public/json/database/entity/json - -get '/json' => sub { - _render_jsonp( shift, [ map { s{public/json/}{}; $_ } glob 'public/json/*' ] ); -}; - -get '/json/:database' => sub { - my $self = shift; - my $database = $self->param('database'); - - my $status = { - document_counts => 0, - name => $database, - }; - - foreach my $path ( glob "public/json/$database/*" ) { - my @entities = glob "$path/*"; - $path =~ s{public/json/$database/}{}; - $status->{entities}->{$path} = scalar @entities; - $status->{document_counts}++; - } - - _render_jsonp( $self, $status ); -}; - -get '/json/:database/:entity' => sub { - my $self = shift; - - my $database = $self->param('database'); - my $entity = $self->param('entity'); - - my $path = "public/json/$database/$entity"; - die "$path: $!" unless -d $path; - - my $docs; - foreach my $path ( sort glob "$path/*" ) { - open(my $fh, '<', $path) || die $!; - local $/ = undef; - my $str = <$fh>; - warn "# $path $str"; - my $data = Mojo::JSON->new->decode( $str ); - $data->{_key} = $1 if $path =~ m{/([^/]+$)}; - push @$docs, $data; - } - - _render_jsonp( $self, $docs ) -}; - -get '/_utils/script/(*url)' => sub { $_[0]->proxy_to( "$couchdb/_utils/script/" . $_[0]->param('url') , with_query_params => 1 ) }; - app->start; -__DATA__ - -@@ index.html.ep -% layout 'funky'; -Yea baby! - -@@ layouts/funky.html.ep - - Funky! - <%== content %> - - -@@ layouts/angular.html.ep - - - - -% my $ANGULAR_JS = $ENV{ANGULAR_JS} || ( -e 'public/angular/build/angular.js' ? '/angular/build/angular.js' : '/angular/src/angular-bootstrap.js' ); - - - <%== content %> - +