| 12345678910111213141516171819202122 |
- program echo;
- {$mode objfpc}{$H+}
- uses
- {$ifdef unix}
- fpwidestring, unicodeducet,
- {$endif}
- fpFCGI, custfcgi, wmecho;
- {$R *.res}
- begin
- {$IFDEF UNIX}
- SetActiveCollation('DUCET');
- {$ENDIF}
- Application.Port:=2015;//Port the FCGI application is listening on
- Application.PathInfoHandling:=pihLastScriptComponent; // Assume url is of form /scriptname/echo
- Application.Initialize;
- Application.Run;
- end.
|
