diff options
author | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
---|---|---|
committer | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
commit | 4887a05481e143bfc4796230605d0a9ff7f2cb5a (patch) | |
tree | 495dce9e5a774e6826fa09f2651ae3c8c546822d /misc/pascal/tests/src/802-cgiinfo.pas | |
parent | 9684605c30d1f7f2f7120d8c1b5645e7ca4eb54f (diff) | |
download | nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.gz nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.bz2 nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.zip |
Pascal Tests
git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3
Diffstat (limited to 'misc/pascal/tests/src/802-cgiinfo.pas')
-rw-r--r-- | misc/pascal/tests/src/802-cgiinfo.pas | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/misc/pascal/tests/src/802-cgiinfo.pas b/misc/pascal/tests/src/802-cgiinfo.pas new file mode 100644 index 000000000..ba5cfdffa --- /dev/null +++ b/misc/pascal/tests/src/802-cgiinfo.pas @@ -0,0 +1,67 @@ +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. + |