Standard CGI Variables (DCL symbols) ---------------------- $FACILITY == "%X00000003" $IDENT == "%X00000000" $RESTART == "FALSE" $SEVERITY == "1" $STATUS == "%X00030001" AUTH_TYPE == "" CONTENT_LENGTH == "0" CONTENT_TYPE == "" CSP_NONCE == "54eb6a31b414e45dbd40d18c0a07b97" DOCUMENT_ROOT == "" GATEWAY_EOT == "$D-544AF403426C8D6841838449-" GATEWAY_ESC == "$E-A851A3769222E37FAEFC9FB4-" GATEWAY_INTERFACE == "CGI/1.1" GATEWAY_MRS == "16492" GATEWAY_SYMBOLS == "AUTH_TYPE,CONTENT_LENGTH,CONTENT_TYPE,CSP_NONCE,DOCUMENT_ROOT,GATEWAY_INTERFACE,GATEWAY_EOT,GATEWAY_ESC,GATEWAY_MRS,HTTP_ACCEPT,HTTP_USER_AGENT,HTTP_ACCEPT_ENCODING,HTTP_HOST,PATH_INFO,PATH_ODS,PATH_TRANSLATED,QUERY_STRING,REMOTE_ADDR,REMOTE_HOST,REMOTE_PORT,REMOTE_USER,REQUEST_METHOD,REQUEST_PROTOCOL,REQUEST_SCHEME,REQUEST_TIME_GMT,REQUEST_TIME_LOCAL,REQUEST_URI,SCRIPT_FILENAME,SCRIPT_NAME,SERVER_ADDR,SERVER_CHARSET,SERVER_GMT,SERVER_NAME,SERVER_PROTOCOL,SERVER_PORT,SERVER_SIGNATURE,SERVER_SOFTWARE,UNIQUE_ID,KEY_COUNT" HTTP_ACCEPT == "*/*" HTTP_ACCEPT_ENCODING == "gzip, br, zstd, deflate" HTTP_HOST == "wasd.vsm.com.au" HTTP_USER_AGENT == "Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)" KEY_COUNT == "0" PATH_INFO == "/ht_root/src/perl" PATH_ODS == "5" PATH_TRANSLATED == "WASD_ROOT:[src]perl" QUERY_STRING == "" REMOTE_ADDR == "18.116.42.136" REMOTE_HOST == "ec2-18-116-42-136.us-east-2.compute.amazonaws.com" REMOTE_PORT == "62322" REMOTE_USER == "" REQUEST_METHOD == "GET" REQUEST_PROTOCOL == "HTTP/1.1" REQUEST_SCHEME == "http:" REQUEST_TIME_GMT == "Fri, 01 Nov 2024 07:20:02 GMT" REQUEST_TIME_LOCAL == "Fri, 01 Nov 2024 17:50:02" REQUEST_URI == "/cgi-bin/CGIplusPM_example1.pl/ht_root/src/perl" SCRIPT_FILENAME == "CGI-BIN:[000000]CGIPLUSPM_EXAMPLE1.PL" SCRIPT_NAME == "/cgi-bin/CGIplusPM_example1.pl" SERVER_ADDR == "119.252.17.13" SERVER_CHARSET == "ISO-8859-1" SERVER_GMT == "+10:30" SERVER_NAME == "wasd.vsm.com.au" SERVER_PORT == "80" SERVER_PROTOCOL == "HTTP/1.1" SERVER_SIGNATURE == "
WASD/12.2.5 Server at wasd.vsm.com.au Port 80" SERVER_SOFTWARE == "HTTPd-WASD/12.2.5 OpenVMS/IA64 SSL" UNIQUE_ID == "9a40854540835e5fd6c" ---------------------- 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'} |/ht_root/src/perl| CGIplus::var('PATH_INFO'} |/ht_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/IA64 SSL|