implement controller and middleware for handing CORS

.gitignore

@@ -19,6 +19,7 @@ public/.htaccess
 #----------------------------------------------
 # Ignore generated binary executable
 #----------------------------------------------
+bin/app.cgi
 public/app.cgi
 cgi-bin/app.cgi
 
@@ -73,4 +74,3 @@ fp.ini
 # Ignore Visual Studio Code generated files
 #----------------------------------------------
 .vscode/
-

build.cmd

@@ -14,9 +14,9 @@ IF NOT DEFINED FANO_DIR (SET FANO_DIR="vendor/fano")
 IF NOT DEFINED BUILD_TYPE (SET BUILD_TYPE="prod")
 IF NOT DEFINED USER_APP_DIR (SET USER_APP_DIR="src")
 IF NOT DEFINED UNIT_OUTPUT_DIR (SET UNIT_OUTPUT_DIR="bin\unit")
-IF NOT DEFINED EXEC_OUTPUT_DIR (SET EXEC_OUTPUT_DIR="public")
+IF NOT DEFINED EXEC_OUTPUT_DIR (SET EXEC_OUTPUT_DIR="bin")
 IF NOT DEFINED EXEC_OUTPUT_NAME (SET EXEC_OUTPUT_NAME="app.cgi")
 IF NOT DEFINED SOURCE_PROGRAM_NAME (SET SOURCE_PROGRAM_NAME="app.pas")
 IF NOT DEFINED FPC_BIN (SET FPC_BIN="fpc")
 
-%FPC_BIN% @vendor/fano/fano.cfg @build.cfg %USER_APP_DIR%\%SOURCE_PROGRAM_NAME%
+%FPC_BIN% @vendor/fano/fano.cfg @build.cfg %USER_APP_DIR%\%SOURCE_PROGRAM_NAME%

build.sh

@@ -29,7 +29,7 @@ if [[ -z "${UNIT_OUTPUT_DIR}" ]]; then
 fi
 
 if [[ -z "${EXEC_OUTPUT_DIR}" ]]; then
-export EXEC_OUTPUT_DIR="public"
+export EXEC_OUTPUT_DIR="bin"
 fi
 
 if [[ -z "${EXEC_OUTPUT_NAME}" ]]; then
@@ -44,4 +44,4 @@ if [[ -z "${FPC_BIN}" ]]; then
 export FPC_BIN="fpc"
 fi
 
-${FPC_BIN} @vendor/fano/fano.cfg @build.cfg ${USER_APP_DIR}/${SOURCE_PROGRAM_NAME}
+${FPC_BIN} @vendor/fano/fano.cfg @build.cfg ${USER_APP_DIR}/${SOURCE_PROGRAM_NAME}

src/App/Home/Controllers/HomeController.pas

@@ -23,7 +23,7 @@ interface
      *
      * @author [[AUTHOR_NAME]] <[[AUTHOR_EMAIL]]>
      *------------------------------------------------*)
-    THomeController = class(TRouteHandler, IDependency)
+    THomeController = class(TRouteHandler)
     public
         function handleRequest(
             const request : IRequest;
@@ -38,9 +38,7 @@ implementation
           const response : IResponse
     ) : IResponse;
     begin
-        {---put your code here---}
-        //response.body().write('nice');
-        result := response;
+        result := TJsonResponse.create(response.headers(), '{ "hello" : "world" }');
     end;
 
 end.

src/Dependencies/main.dependencies.inc

@@ -22,9 +22,22 @@ container.add('appMiddlewares', TMiddlewareCollectionAwareFactory.create());
  ------------------------------------------------}
 container.factory('routeMiddlewares', TNullMiddlewareCollectionAwareFactory.create());
 
-container.add('cors', TCorsMiddlewareFactory.create());
+container.add(
+    'cors',
+    (TCorsMiddlewareFactory.create())
+        .allowedOriginsPatterns(['http\:\/\/localhost\:[0-9]{1,5}'])
+        .allowedMethods(['GET', 'POST', 'OPTIONS'])
+        .allowedHeaders(['X-My-Custom-Header'])
+);
 
-container
-(
-  container.get('appMiddlewares') as IMiddlewareCollectionAware
-).addBefore(container.get('cors') as IMiddleware);
+appMiddlewares := container.get('appMiddlewares') as IMiddlewareCollectionAware;
+appMiddlewares.addBefore(container.get('cors') as IMiddleware);
+
+container.add(
+    GuidToString(IDispatcher),
+    TDispatcherFactory.create(
+        appMiddlewares,
+        container.get(GuidToString(IRouteMatcher)) as IRouteMatcher,
+        TRequestResponseFactory.create()
+    )
+);

src/Routes/Home/routes.inc

@@ -6,4 +6,5 @@
  * @license   [[LICENSE_URL]] ([[LICENSE]])
  *------------------------------------------------------------- *)
 
-router.get('/home', container.get('homeController') as IRouteHandler);
+router.get('/', container.get('homeController') as IRouteHandler);
+router.options('/', container.get('homeController') as IRouteHandler);

src/app.pas

@@ -16,13 +16,13 @@
     appInstance : IWebApplication;
 
 begin
-    writeln('Starting application at 127.0.0.1:20477');
+    writeln('Starting application at 127.0.0.1:4000');
 
     (*!-----------------------------------------------
      * Bootstrap SCGI application
      *
      * @author AUTHOR_NAME <[email protected]>
      *------------------------------------------------*)
-    appInstance := TBootstrapApp.create('127.0.0.1', 20477);
+    appInstance := TBootstrapApp.create('127.0.0.1', 4000);
     appInstance.run();
-end.
+end.

src/bootstrap.pas

@@ -35,6 +35,7 @@ implementation
 
 
     procedure TBootstrapApp.buildDependencies(const container : IDependencyContainer);
+    var appMiddlewares : IMiddlewareCollectionAware;
     begin
         {$INCLUDE Dependencies/dependencies.inc}
     end;
@@ -49,4 +50,4 @@ implementation
             router := nil;
         end;
     end;
-end.
+end.