mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
68 lines
1.4 KiB
ObjectPascal
68 lines
1.4 KiB
ObjectPascal
program info(output);
|
|
|
|
procedure WriteHeader;
|
|
begin
|
|
writeln('Content-type: text/html');
|
|
writeln;
|
|
writeln('<html>');
|
|
writeln('<head>');
|
|
writeln('<title>Irie Pascal sample CGI application</title>');
|
|
writeln('<h1>CGI environment variables.</h1>');
|
|
writeln('</head>')
|
|
end;
|
|
|
|
procedure WriteBody;
|
|
|
|
procedure DisplayEnvVar(name : string);
|
|
var
|
|
value : string;
|
|
begin
|
|
value := getenv(name);
|
|
writeln(name, ' = ', value, '<br>')
|
|
end;
|
|
|
|
begin
|
|
writeln('<body>');
|
|
DisplayEnvVar('HTTP_ACCEPT');
|
|
DisplayEnvVar('HTTP_ACCEPT_ENCODING');
|
|
DisplayEnvVar('HTTP_ACCEPT_LANGUAGE');
|
|
DisplayEnvVar('HTTP_AUTHORIZATION');
|
|
DisplayEnvVar('HTTP_CHARGE_TO');
|
|
DisplayEnvVar('HTTP_FROM');
|
|
DisplayEnvVar('HTTP_IF_MODIFIED_SINCE');
|
|
DisplayEnvVar('HTTP_PRAGMA');
|
|
DisplayEnvVar('HTTP_REFERER');
|
|
DisplayEnvVar('HTTP_USER_AGENT');
|
|
writeln('<hr>');
|
|
DisplayEnvVar('AUTH_TYPE');
|
|
DisplayEnvVar('CONTENT_LENGTH');
|
|
DisplayEnvVar('CONTENT_TYPE');
|
|
DisplayEnvVar('GATEWAY_INTERFACE');
|
|
DisplayEnvVar('PATH_INFO');
|
|
DisplayEnvVar('PATH_TRANSLATED');
|
|
DisplayEnvVar('QUERY_STRING');
|
|
DisplayEnvVar('REMOTE_ADDR');
|
|
DisplayEnvVar('REMOTE_HOST');
|
|
DisplayEnvVar('REMOTE_IDENT');
|
|
DisplayEnvVar('REMOTE_USER');
|
|
DisplayEnvVar('REQUEST_METHOD');
|
|
DisplayEnvVar('SCRIPT_NAME');
|
|
DisplayEnvVar('SERVER_NAME');
|
|
DisplayEnvVar('SERVER_PORT');
|
|
DisplayEnvVar('SERVER_PROTOCOL');
|
|
DisplayEnvVar('SERVER_SOFTWARE');
|
|
writeln('</body>')
|
|
end;
|
|
|
|
procedure WriteFooter;
|
|
begin
|
|
writeln('</html>')
|
|
end;
|
|
|
|
begin
|
|
WriteHeader;
|
|
WriteBody;
|
|
WriteFooter
|
|
end.
|
|
|