CGIplus Variables (usage count 1) ----------------- AUTH_TYPE="" CONTENT_LENGTH="0" CONTENT_TYPE="" CSP_NONCE="ed4eed28d64de97655950a0d2dc224d" DOCUMENT_ROOT="" GATEWAY_EOF="$Z-41D7C1396FCE9FA6A63745EF-" GATEWAY_EOT="$D-2EBF2364473F6B15B14DD0D2-" GATEWAY_ESC="$E-BFBCE22B03E84B70384918B1-" 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.143.209.210" REMOTE_HOST="3.143.209.210" REMOTE_PORT="62764" REMOTE_USER="" REQUEST_METHOD="GET" REQUEST_PROTOCOL="HTTP/1.1" REQUEST_SCHEME="http:" REQUEST_TIME_GMT="Wed, 30 Apr 2025 07:31:45 GMT" REQUEST_TIME_LOCAL="Wed, 30 Apr 2025 17:01:45" 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="+09:30" SERVER_NAME="wasd.vsm.com.au" SERVER_PORT="80" SERVER_PROTOCOL="HTTP/1.1" SERVER_SIGNATURE="
WASD/12.3.1 Server at wasd.vsm.com.au Port 80" SERVER_SOFTWARE="HTTPd-WASD/12.3.1 OpenVMS/IA64 SSL" UNIQUE_ID="8c16d447f0e441b908d" ----------------- 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.1 OpenVMS/IA64 SSL|