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