Application.Legacyrouting := True;

program fcgitest;

 

{$mode objfpc}{$H+}

 

uses

  fpFCGI, unitmain;

 

begin

  Application.Title:='FCGITest';

  { Uncomment the port setting here if you want to run the

    FastCGI application stand-alone (e.g. for NGINX) }

  Application.Port:=9000; // For example

  Application.Initialize;

  Application.Run;

end.

 

 

unit unitmain;

 

{$mode objfpc}{$H+}

 

interface

 

uses

  SysUtils, Classes, httpdefs, fpHTTP, fpWeb;

 

type

 

  { TFPWebModuleMain }

 

  TFPWebModuleMain = class(TFPWebModule)

    procedure DataModuleRequest(Sender: TObject; ARequest: TRequest;

      AResponse: TResponse; var Handled: Boolean);

  private

 

  public

 

  end;

 

var

  FPWebModuleMain: TFPWebModuleMain;

 

implementation

 

{$R *.lfm}

 

{ TFPWebModuleMain }

 

procedure TFPWebModuleMain.DataModuleRequest(Sender: TObject;

  ARequest: TRequest; AResponse: TResponse; var Handled: Boolean);

begin

  AResponse.ContentType := 'text/html;charset=utf-8';

  AResponse.Contents.Add('Hello World!');

  Handled:=true;

end;

 

initialization

  RegisterHTTPModule('TFPWebModule1', TFPWebModuleMain);

end.

server {

    listen 80;

    server_name debiantest.local www.debiantest.local;

    access_log /var/log/nginx/debiantest.local.access.log main;

    root   /var/www/debiantest.local;

 

    location / {

        #include          /etc/nginx/fastcgi_params;

        fastcgi_param  SCRIPT_FILENAME    $document_root$fastcgi_script_name;

        fastcgi_param  QUERY_STRING       $query_string;

        fastcgi_param  REQUEST_METHOD     $request_method;

        fastcgi_param  CONTENT_TYPE       $content_type;

        fastcgi_param  CONTENT_LENGTH     $content_length;

        

        fastcgi_param  SCRIPT_NAME        $fastcgi_script_name;

        fastcgi_param  REQUEST_URI        $request_uri;

        fastcgi_param  DOCUMENT_URI       $document_uri;

        fastcgi_param  DOCUMENT_ROOT      $document_root;

        fastcgi_param  SERVER_PROTOCOL    $server_protocol;

        fastcgi_param  REQUEST_SCHEME     $scheme;

        fastcgi_param  HTTPS              $https if_not_empty;

        

        fastcgi_param  GATEWAY_INTERFACE  CGI/1.1;

        fastcgi_param  SERVER_SOFTWARE    nginx/$nginx_version;

        

        fastcgi_param  REMOTE_ADDR        $remote_addr;

        fastcgi_param  REMOTE_PORT        $remote_port;

        fastcgi_param  REMOTE_USER        $remote_user;

        fastcgi_param  SERVER_ADDR        $server_addr;

        fastcgi_param  SERVER_PORT        $server_port;

        fastcgi_param  SERVER_NAME        $server_name;

        

        fastcgi_pass  localhost:9000;

        }

    

}

[Unit]

Description=FCGITest

After=network.target

 

[Service]

Type=simple

User = www-data

Group = www-data

ExecStart=/opt/fcgitest/fcgitest

Restart = always

RemainAfterExit=yes

TimeoutSec=25

 

[Install]

WantedBy=multi-user.target