#! ./tcl_cgi

# SCCS ID	@(#)testscript	1.2	6/17/94

puts "Query parsing, method = POST"

#  Set environment variables that CGI needs.
set env(REQUEST_METHOD) "POST"
set env(CONTENT_LENGTH) "59"
set env(CONTENT_TYPE) "application/x-www-form-urlencoded"

set query [cgi_get_query]
cgi_parse_query $query Q list

if {$Q(name1) != "value" || $Q(name2) != "a longer value" ||
    $Q(list) != "l1 l2 {l3 l4}"} {
	puts "Failed to parse the query."
	puts "Raw query: $query"
	puts "Parsed query:"
	foreach v [array names Q] {
		puts "<LI>$v = \"$Q($v)\""
	}
	exit 1
}

puts "Query parsing, method = POST, -list option"
cgi_parse_query -list $query Q

if {$Q(name1) != "value" || $Q(name2) != "{a longer value}" ||
    $Q(list) != "l1 l2 {l3 l4}"} {
	puts "Failed to parse the query."
	puts "Raw query: $query"
	puts "Parsed query:"
	foreach v [array names Q] {
		puts "<LI>$v = \"$Q($v)\""
	}
	exit 1
}
