Changeset 2624 in ProjectBuilder

Timestamp:

Apr 17, 2020, 8:27:38 PM (4 years ago)

Author:

Bruno Cornec

Message:

More tests around OpenAPI - back to a working server with v3

Location:

devel/pb-server

Files:

• README (modified) (1 diff)
• bin/pb-server (modified) (2 diffs)
• lib/ProjectBuilder.pm (modified) (4 diffs)
• lib/ProjectBuilder/Controller/Example.pm (added)
• public (added)
• public/index.html (added)
• t (added)
• t/basic.t (added)
• templates/example (added)
• templates/example/welcome.html.ep (added)
• templates/layouts/default.html.ep (added)

devel/pb-server/README

@@ -4 +4 @@
 The whole Project-builder.org project is provided under the GPL v2 as per the copying file.
 Other licenses may be available in addition later on.
+
+Reference docs:
+https://fr.slideshare.net/ssoriche/metacpan-mojolicious-and-openapi
+https://mojolicious.io/blog/2017/12/22/day-22-how-to-build-a-public-rest-api/
+

devel/pb-server/bin/pb-server

@@ -4 +4 @@
 use warnings;
 
-use lib 'lib';
 use ProjectBuilder::Env;
 use ProjectBuilder::Conf;
@@ -10 +9 @@
 
 # Start command line interface for application
-require Mojolicious::Commands;
+use Mojo::File qw(curfile);
+use lib curfile->dirname->sibling('lib')->to_string;
+use Mojolicious::Commands;
 
 # Force for now
 pb_env_init("pb",undef,"none",0);
+
+# Debug YAML validation
+$ENV{'JSON_VALIDATOR_DEBUG'} = 1;
+
 #print "CONF: ".Dumper(pb_conf_get_hash())."\n";
+# Start command line interface for application
 Mojolicious::Commands->start_app('ProjectBuilder');

devel/pb-server/lib/ProjectBuilder.pm

@@ -1 +1 @@
 package ProjectBuilder;
 use Mojo::Base 'Mojolicious';
+use ProjectBuilder::Model::Confs;
+use Data::Dumper;
+use ProjectBuilder::YAML;
+use JSON;
 
-use ProjectBuilder::Model::Confs;
-
+# This method will run once at server start
 sub startup {
   my $self = shift;
 
-  # Configuration
-  #$self->secrets([split /:/, $ENV{'BLOG_SECRETS'} || 'super:s3cret']);
-
+  print Dumper($self);
   # Model
-  #$self->helper(pg => sub { state $pg = Mojo::Pg->new($ENV{'BLOG_PG_URL'}) });
   $self->helper(confs => sub { state $confs = ProjectBuilder::Model::Confs->new() });
 
-  # Migrate to latest version if necessary
-  #my $path = $self->home->rel_file('migrations/blog.sql');
-  #$self->pg->migrations->name('blog')->from_file($path)->migrate;
+  # Load configuration from hash returned by config file - doesn't work for now
+  #my $config = $self->plugin('Config' => { file => 'etc/pb-server.json' });
 
-  # Swagger API endpoints
+  # Configure the application
+  #$self->secrets([split /:/, $ENV{'BLOG_SECRETS'} || 'super:s3cret']);
+  #$self->secrets($config->{secrets});
+
+  # Load Open API endpoins
   # /api             *       api
   #   +/confs        POST    "store"
@@ -25 +28 @@
   #   +/confs/(:id)  DELETE  "remove"
   #   +/confs/(:id)  GET     "show"
-  $self->plugin(openapi => {url => $self->home->rel_file('api.yml')});
+  my $c = {
+        #schema => "v3",
+        default_response_codes => [400, 401, 404, 500, 501],
+        #default_response_name => 1,
+        url => 'file:///usr/share/pb/api.yaml',
+        };
+  $self->plugin(OpenAPI => $c);
+  print "After Plugin OpenAPI\n";
+  #$self->plugin(OpenAPI => {schema_file => $self->home->rel_file('api.yaml'), schema => "v3"});
 
   # Regular web pages
@@ -36 +47 @@
   # /confs/:id       PUT     "update_conf"
   # /confs/:id       DELETE  "remove_conf"
+
+  # Router
   my $r = $self->routes;
+
+  # Normal route to controller
+  $r->get('/w')->to('example#welcome');
   $r->get('/' => sub { shift->redirect_to('confs') });
   $r->get('/confs')->to('conf#list');
@@ -48 +64 @@
   # Swagger2 module not maintained anymore
   #require Swagger2::Editor;
-  #my $editor = Swagger2::Editor->new(specification_file => $self->home->rel_file('api.yml'));
+  #my $editor = Swagger2::Editor->new(specification_file => $self->home->rel_file('api.yaml'));
   #$r->route('/editor')->detour(app => $editor);
 }