CGIplus Variables (usage count 1) ----------------- AUTH_TYPE="" CONTENT_LENGTH="0" CONTENT_TYPE="" CSP_NONCE="168095f89ebebefd3575532ef230ff1" DOCUMENT_ROOT="" GATEWAY_EOF="$Z-D2B246E80D448FC9AAFD58F6-" GATEWAY_EOT="$D-235ABAFFA625B134A7628AA5-" GATEWAY_ESC="$E-95986722EF69503B60A33E40-" 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="18.117.91.170" REMOTE_HOST="ec2-18-117-91-170.us-east-2.compute.amazonaws.com" REMOTE_PORT="9512" REMOTE_USER="" REQUEST_METHOD="GET" REQUEST_PROTOCOL="HTTP/1.1" REQUEST_SCHEME="http:" REQUEST_TIME_GMT="Mon, 23 Dec 2024 04:21:32 GMT" REQUEST_TIME_LOCAL="Mon, 23 Dec 2024 14:51:32" 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="80" SERVER_PROTOCOL="HTTP/1.1" SERVER_SIGNATURE="
WASD/12.3.0 Server at wasd.vsm.com.au Port 80" SERVER_SOFTWARE="HTTPd-WASD/12.3.0 OpenVMS/IA64 SSL" UNIQUE_ID="10261b09600c839dcad" ----------------- 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|