mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 06:59:42 +02:00
61 lines
1.3 KiB
ObjectPascal
61 lines
1.3 KiB
ObjectPascal
{$mode objfpc}
|
|
{$H+}
|
|
|
|
program testcgi;
|
|
|
|
uses cgiapp,classes,sysutils;
|
|
|
|
Type
|
|
TTestCGI = Class(TCGIApplication)
|
|
Procedure DoRun; override;
|
|
end;
|
|
|
|
Procedure TTestCGI.DoRun;
|
|
|
|
Var
|
|
L : TStrings;
|
|
I: Integer;
|
|
|
|
begin
|
|
ContentType:='text/html';
|
|
EmitContentType;
|
|
L:=TStringList.Create;
|
|
Writeln('<HTML><TITLE>',title,'</TITLE><BODY>');
|
|
Try
|
|
Writeln('<H1>List of CGI variables:</H1>');
|
|
GetCGIVarList(L);
|
|
For I:=0 to L.Count-1 do
|
|
Writeln(L[i],'<BR/>');
|
|
Writeln('<H1>List of environment variables:</H1>');
|
|
GetEnvironmentList(L);
|
|
For I:=0 to L.Count-1 do
|
|
Writeln(L[i],'<BR/>');
|
|
If (RequestVariableCount>0) then
|
|
begin
|
|
Writeln('<H1>List of form variables:</H1>');
|
|
GetRequestVarList(L);
|
|
For I:=0 to L.Count-1 do
|
|
Writeln(L[i],'<BR/>');
|
|
Writeln('<H1>List of form variables, tabular format:</H1>');
|
|
Writeln('<table width="100%" border="1">');
|
|
Writeln('<TR><TH>Name</TH><TH>Value</TH></TR>');
|
|
GetRequestVarList(L,True);
|
|
For I:=0 to L.Count-1 do
|
|
Writeln('<TR><TD>',L[i],'</TD><TD>',RequestVariables[L[i]],'</TD></TR>');
|
|
end;
|
|
Finally
|
|
Writeln('</BODY></HTML>');
|
|
Terminate;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
With TTestCGI.Create(Nil) do
|
|
Try
|
|
Title:='Test CGI application';
|
|
Initialize;
|
|
Run;
|
|
Finally
|
|
Free;
|
|
end;
|
|
end. |