mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-04 06:30:38 +01:00
23 lines
421 B
ObjectPascal
23 lines
421 B
ObjectPascal
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.
|
|
|