|
|
@@ -0,0 +1,67 @@
|
|
|
+program testweb;
|
|
|
+
|
|
|
+{$mode objfpc}{$H+}
|
|
|
+
|
|
|
+uses
|
|
|
+ Classes, SysUtils, httpdefs, custcgi,cgiapp,fphttp,fpcgi,
|
|
|
+ webutil, fpweb;
|
|
|
+
|
|
|
+Type
|
|
|
+ TMyWeb=Class(TCustomCGIApplication)
|
|
|
+ procedure HandleRequest(ARequest: TRequest; AResponse: TResponse); override;
|
|
|
+ end;
|
|
|
+
|
|
|
+procedure TMyWeb.HandleRequest(ARequest: TRequest; AResponse: TResponse);
|
|
|
+
|
|
|
+ Procedure AddNV(Const N,V : String);
|
|
|
+
|
|
|
+ begin
|
|
|
+ AResponse.Contents.Add('<TR><TD>'+N+'</TD><TD>'+V+'</TD></TR>');
|
|
|
+ end;
|
|
|
+
|
|
|
+Var
|
|
|
+ I,P : Integer;
|
|
|
+ N,V : String;
|
|
|
+
|
|
|
+begin
|
|
|
+ With AResponse.Contents do
|
|
|
+ begin
|
|
|
+ BeginUpdate;
|
|
|
+ Try
|
|
|
+ Add('<HTML><TITLE>FPC CGI Test page</TITLE><BODY>');
|
|
|
+ DumpRequest(ARequest,AResponse.Contents);
|
|
|
+ Add('<H1>CGI environment:</H1>');
|
|
|
+ Add('<TABLE BORDER="1">');
|
|
|
+ Add('<TR><TD>Name</TD><TD>Value</TD></TR>');
|
|
|
+ For I:=1 to GetEnvironmentVariableCount do
|
|
|
+ begin
|
|
|
+ V:=GetEnvironmentString(i);
|
|
|
+ P:=Pos('=',V);
|
|
|
+ N:=Copy(V,1,P-1);
|
|
|
+ system.Delete(V,1,P);
|
|
|
+ AddNV(N,V);
|
|
|
+ end;
|
|
|
+ Add('</TABLE>');
|
|
|
+ Add('</BODY></HTML>');
|
|
|
+ Finally
|
|
|
+ EndUpdate;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+Procedure Run;
|
|
|
+
|
|
|
+begin
|
|
|
+ With TMyWeb.Create(Nil) do
|
|
|
+ try
|
|
|
+ Initialize;
|
|
|
+ Run;
|
|
|
+ Finally
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+begin
|
|
|
+ Run;
|
|
|
+end.
|
|
|
+
|
michael