#!/usr/win32/perl117
# Example Test Program To Echo Back Default
# Web Agent Headers from a CGI environment
#
# First put out a valid CGI Header
print "Content-Type: text/html\n\n";
# Now print out the standard HTML document tags
print "";
print " Test Web Agent Headers ";
print "";
print " Test Web Agent Headers
";
print "HTTP_SM_USER: $ENV{'HTTP_SM_USER'}
";
print "HTTP_SM_RESOURCE: $ENV{'HTTP_SM_RESOURCE'}
";
print "HTTP_SM_ACTION: $ENV{'HTTP_SM_ACTION'}
";
print "HTTP_SM_AUTHTYPE: $ENV{'HTTP_SM_AUTHTYPE'}
";
print "HTTP_SM_AUTHENTIC: $ENV{'HTTP_SM_AUTHENTIC'}
";
print "HTTP_SM_AUTHORIZED: $ENV{'HTTP_SM_AUTHORIZED'}
";
print "HTTP_SM_SERVERNAME: $ENV{'HTTP_SM_SERVERNAME'}
";
print "HTTP_SM_SESSIONID: $ENV{'HTTP_SM_SESSIONID'}
";
# Now end the HTML file output
print "";
print "";