CGIplus Variables (usage count 1) ----------------- AUTH_TYPE="" CONTENT_LENGTH="0" CONTENT_TYPE="" CSP_NONCE="ccca82902188d7570aaf21ebdb0112c" DOCUMENT_ROOT="" GATEWAY_EOF="$Z-6D160F2788961D3C1CED750D-" GATEWAY_EOT="$D-AE25646ABE74CAE33CB6FEC8-" GATEWAY_ESC="$E-E8422E2987800BD60DF9585F-" GATEWAY_INTERFACE="CGI-PerlEx" GATEWAY_MRS="16492" GATEWAY_QIO="30408" 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="3.144.255.247" REMOTE_HOST="ec2-3-144-255-247.us-east-2.compute.amazonaws.com" REMOTE_PORT="18114" REMOTE_USER="" REQUEST_METHOD="GET" REQUEST_PROTOCOL="HTTP/2" REQUEST_SCHEME="https:" REQUEST_TIME_GMT="Wed, 22 Jan 2025 14:54:17 GMT" REQUEST_TIME_LOCAL="Thu, 23 Jan 2025 01:24:17" REQUEST_URI="/cgiplus-bin/CGIplusPM_example1.pl/ht_root/src/perl" SCRIPT_FILENAME="CGI-BIN:[000000]CGIPLUSPM_EXAMPLE1.PL" SCRIPT_NAME="/cgiplus-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="443" SERVER_PROTOCOL="HTTP/1.1" SERVER_SIGNATURE="
WASD/12.3.0 Server at wasd.vsm.com.au Port 443
" SERVER_SOFTWARE="HTTPd-WASD/12.3.0 OpenVMS/IA64 SSL" UNIQUE_ID="4f84deefbd6b816dd7f" ----------------- Demonstrate that the CGIplus::var() function and $ENV associative array contents are identical ... $ENV{'SCRIPT_NAME'} |/cgiplus-bin/CGIplusPM_example1.pl| CGIplus::var('SCRIPT_NAME') |/cgiplus-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.3.0 OpenVMS/IA64 SSL|