Standard CGI Variables (DCL symbols) ---------------------- $FACILITY == "%X00000003" $IDENT == "%X00000000" $RESTART == "FALSE" $SEVERITY == "1" $STATUS == "%X00030001" AUTH_TYPE == "" CONTENT_LENGTH == "0" CONTENT_TYPE == "" CSP_NONCE == "2ca55b29de9c86cf839f66f2b4b7f5d" DOCUMENT_ROOT == "" GATEWAY_EOT == "$D-6537A9238A4C3808D5E94669-" GATEWAY_ESC == "$E-6AC9B71678E9BA9F6C438454-" GATEWAY_INTERFACE == "CGI/1.1" GATEWAY_MRS == "4492" GATEWAY_SYMBOLS == "WWW_AUTH_TYPE,WWW_CONTENT_LENGTH,WWW_CONTENT_TYPE,WWW_CSP_NONCE,WWW_DOCUMENT_ROOT,WWW_GATEWAY_INTERFACE,WWW_GATEWAY_EOT,WWW_GATEWAY_ESC,WWW_GATEWAY_MRS,WWW_HTTP_ACCEPT,WWW_HTTP_USER_AGENT,WWW_HTTP_ACCEPT_ENCODING,WWW_HTTP_HOST,WWW_PATH_INFO,WWW_PATH_ODS,WWW_PATH_TRANSLATED,WWW_QUERY_STRING,WWW_REMOTE_ADDR,WWW_REMOTE_HOST,WWW_REMOTE_PORT,WWW_REMOTE_USER,WWW_REQUEST_METHOD,WWW_REQUEST_PROTOCOL,WWW_REQUEST_SCHEME,WWW_REQUEST_TIME_GMT,WWW_REQUEST_TIME_LOCAL,WWW_REQUEST_URI,WWW_SCRIPT_FILENAME,WWW_SCRIPT_NAME,WWW_SERVER_ADDR,WWW_SERVER_CHARSET,WWW_SERVER_GMT,WWW_SERVER_NAME,WWW_SERVER_PROTOCOL,WWW_SERVER_PORT,WWW_SERVER_SIGNATURE,WWW_SERVER_SOFTWARE,WWW_UNIQUE_ID,WWW_KEY_COUNT" HTTP_ACCEPT == "*/*" HTTP_ACCEPT_ENCODING == "gzip, br, zstd, deflate" HTTP_HOST == "wasd.kicks-ass.net" HTTP_USER_AGENT == "Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)" KEY_COUNT == "0" PATH_INFO == "/wasd_root/src/perl" PATH_ODS == "5" PATH_TRANSLATED == "WASD_ROOT:[src]perl" QUERY_STRING == "" REMOTE_ADDR == "3.144.42.77" REMOTE_HOST == "ec2-3-144-42-77.us-east-2.compute.amazonaws.com" REMOTE_PORT == "35764" REMOTE_USER == "" REQUEST_METHOD == "GET" REQUEST_PROTOCOL == "HTTP/2" REQUEST_SCHEME == "https:" REQUEST_TIME_GMT == "Wed, 16 Oct 2024 18:56:53 GMT" REQUEST_TIME_LOCAL == "Thu, 17 Oct 2024 05:26:53" REQUEST_URI == "/cgi-bin/CGIplusPM_example1.pl/wasd_root/src/perl" SCRIPT_FILENAME == "CGI-BIN:[000000]cgipluspm_example1.pl" SCRIPT_NAME == "/cgi-bin/CGIplusPM_example1.pl" SERVER_ADDR == "45.249.118.87" SERVER_CHARSET == "ISO-8859-1" SERVER_GMT == "+10:30" SERVER_NAME == "x86vms.dyndns.org" SERVER_PORT == "443" SERVER_PROTOCOL == "HTTP/1.1" SERVER_SIGNATURE == "
WASD/12.2.5 Server at x86vms.dyndns.org Port 443
" SERVER_SOFTWARE == "HTTPd-WASD/12.2.5 OpenVMS/X86 SSL" UNIQUE_ID == "5e0f1fb3287e88c6b40" ---------------------- Demonstrate that the CGIplus::var() function and $ENV associative array contents are identical ... $ENV{'SCRIPT_NAME'} |/cgi-bin/CGIplusPM_example1.pl| CGIplus::var('SCRIPT_NAME') |/cgi-bin/CGIplusPM_example1.pl| $ENV{'PATH_INFO'} |/wasd_root/src/perl| CGIplus::var('PATH_INFO'} |/wasd_root/src/perl| $ENV{'QUERY_STRING'} || CGIplus::var('QUERY_STRING') || SERVER_SOFT does not exist and looks like an empty string ... SERVER_SOFT || SERVER_SOFTWARE should exist ... SERVER_SOFTWARE |HTTPd-WASD/12.2.5 OpenVMS/X86 SSL|