CGIplus-enabled Run-time Environment Example
--------------------------------------------

***** FIRST, EVIDENCE OF PERSISTANCE *****

Usage Count: 1

***** SECOND, THE CGI ENVIRONMENT AVAILABLE *****

WWW_AUTH_TYPE=
WWW_CONTENT_LENGTH=0
WWW_CONTENT_TYPE=
WWW_CSP_NONCE=a8443901d7e25b64f107be575a01109
WWW_DOCUMENT_ROOT=
WWW_GATEWAY_INTERFACE=CGI/1.1
WWW_GATEWAY_EOF=$Z-E8BC3AA328583B88053593E9-
WWW_GATEWAY_EOT=$D-78534696DBDB241F53707FD4-
WWW_GATEWAY_ESC=$E-076820C558D13EC2FE811B5B-
WWW_GATEWAY_MRS=16492
WWW_GATEWAY_QIO=30408
WWW_HTTP_ACCEPT=*/*
WWW_HTTP_USER_AGENT=Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)
WWW_HTTP_ACCEPT_ENCODING=gzip, br, zstd, deflate
WWW_HTTP_HOST=wasd.vsm.com.au
WWW_PATH_INFO=
WWW_PATH_TRANSLATED=
WWW_QUERY_STRING=
WWW_REMOTE_ADDR=216.73.216.63
WWW_REMOTE_HOST=216.73.216.63
WWW_REMOTE_PORT=42314
WWW_REMOTE_USER=
WWW_REQUEST_METHOD=GET
WWW_REQUEST_PROTOCOL=HTTP/2
WWW_REQUEST_SCHEME=https:
WWW_REQUEST_TIME_GMT=Thu, 10 Jul 2025 03:01:58 GMT
WWW_REQUEST_TIME_LOCAL=Thu, 10 Jul 2025 12:31:58
WWW_REQUEST_URI=/rtbin/version.c
WWW_SCRIPT_FILENAME=WASD_ROOT:[src.httpd]version.c
WWW_SCRIPT_NAME=/rtbin/version.c
WWW_SCRIPT_RTE=cgi-bin:[000000]rte_example.exe
WWW_SERVER_ADDR=119.252.17.13
WWW_SERVER_CHARSET=ISO-8859-1
WWW_SERVER_GMT=+09:30
WWW_SERVER_NAME=wasd.vsm.com.au
WWW_SERVER_PROTOCOL=HTTP/1.1
WWW_SERVER_PORT=443
WWW_SERVER_SIGNATURE=<address>WASD/12.3.1 Server at wasd.vsm.com.au Port 443</address>
WWW_SERVER_SOFTWARE=HTTPd-WASD/12.3.1 OpenVMS/IA64 SSL
WWW_UNIQUE_ID=e8c325372375ecd40d4
WWW_KEY_COUNT=0

***** THIRD, AN "INTERPRETED" FILE (WWW_SCRIPT_NAME/WWW_SCRIPT_FILENAME) *****

[0001] /*****************************************************************************/
[0002] /*
[0003]                                  version.c
[0004] 
[0005] Merely generate software ID and build information strings.
[0006] 
[0007] 
[0008] 10-OCT-1999  MGD  moved from HTTPD.C for v6.1
[0009] */
[0010] /*****************************************************************************/
[0011] 
[0012] #ifdef WASD_VMS_V7
[0013] #undef _VMS__V6__SOURCE
[0014] #define _VMS__V6__SOURCE
[0015] #undef __VMS_VER
[0016] #define __VMS_VER 70000000
[0017] #undef __CRTL_VER
[0018] #define __CRTL_VER 70000000
[0019] #endif
[0020] 
[0021] #include <stdio.h>
[0022] #include <ctype.h>
[0023] 
[0024] #include "wasd.h"
[0025] 
[0026] #ifdef __ia64
[0027] #  define HTTPD_ARCH "IA64"
[0028] #endif
[0029] #ifdef __ALPHA
[0030] #  define HTTPD_ARCH "AXP"
[0031] #endif
[0032] #ifdef __x86_64
[0033] #  define HTTPD_ARCH "X86"
[0034] #endif
[0035] 
[0036] #ifndef BUILD_DATETIME
[0037] #  define BUILD_DATETIME __DATE__ " " __TIME__
[0038] #endif
[0039] 
[0040] /******************/
[0041] /* global storage */
[0042] /******************/
[0043] 
[0044] int  ActivityGblSecVersion = ACTIVITY_GBLSEC_VERSION_NUMBER,
[0045]      AuthGblSecVersion = AUTH_GBLSEC_VERSION_NUMBER,
[0046]      AuthTokenGblSecVersion = AUTH_TOKEN_GBLSEC_VERSION_NUMBER,
[0047]      HttpdGblSecVersion = HTTPD_GBLSEC_VERSION_NUMBER,
[0048]      SesolaGblSecVersion = SESOLA_GBLSEC_VERSION_NUMBER,
[0049]      ProxyVerifyGblSecVersion = PROXYVERIFY_GBLSEC_VERSION_NUMBER;
[0050] 
[0051] ulong  HttpdVersionNumber;
[0052] 
[0053] char  BuildDateTime [] = BUILD_DATETIME,
[0054]       BuildInfo [96],
[0055]       HttpdName [] = HTTPD_NAME,
[0056]       HttpdSoftwareIdName [] = HTTPD_SOFTWAREID_NAME,
[0057]       HttpdVersion [] = HTTPD_VERSION,
[0058]       SoftwareID [128];
[0059] 
[0060] /********************/
[0061] /* external storage */
[0062] /********************/
[0063] 
[0064] extern char  HttpdSesola[];
[0065] 
[0066] /*****************************************************************************/
[0067] /*
[0068] */
[0069] 
[0070] VersionInfo ()
[0071] 
[0072] {
[0073]    char  *cptr, *sptr;
[0074] 
[0075]    /*********/
[0076]    /* begin */
[0077]    /*********/
[0078] 
[0079]    /* server version as "11.10.9" into 111,009 */
[0080]    sptr = HttpdVersion;
[0081]    HttpdVersionNumber = atoi(sptr) * 10000;
[0082]    while (isdigit(*sptr)) sptr++;
[0083]    if (*sptr == '.') sptr++;
[0084]    HttpdVersionNumber += atoi(sptr) * 100;
[0085]    while (isdigit(*sptr)) sptr++;
[0086]    if (*sptr == '.') sptr++;
[0087]    HttpdVersionNumber += atoi(sptr);
[0088] 
[0089]    /* software ID can be specified on the command line! */
[0090]    if (!SoftwareID[0])
[0091]       sprintf (SoftwareID, "%s/%s OpenVMS/%s%s",
[0092]                HttpdSoftwareIdName, HttpdVersion, HTTPD_ARCH, HttpdSesola);
[0093] 
[0094]    sprintf (BuildInfo, "%s VMS %s DECC %d %s %s",
[0095]             BUILD_DATETIME, __VMS_VERSION+1, __DECC_VER,
[0096] #ifdef WASD_VMS_V0
[0097]             "WASD_VMS_V0",
[0098] #else
[0099] #ifdef WASD_VMS_V7
[0100]             "WASD_VMS_V7",
[0101] #else
[0102]             "WASD_VMS_??",
[0103] #endif
[0104] #endif
[0105]             OPERATE_WITH_SYSPRV ? " [/SYSPRV]" : "");
[0106] 
[0107]    /* compress white-space */
[0108]    cptr = sptr = BuildInfo;
[0109]    while (*cptr)
[0110]    {
[0111]       if (*cptr == ' ')
[0112]       {
[0113]          *sptr++ = *cptr++;
[0114]          while (*cptr == ' ') cptr++;
[0115]       }
[0116]       else
[0117]          *sptr++ = *cptr++;
[0118]    }
[0119]    *sptr = '\0';
[0120] } 
[0121] 
[0122] /*****************************************************************************/
[0123]