Conf/Examples/CgiConfig/TclParamExample - Revision history

Visitatvishal at 13:02, 30 December 2011

2011-12-30T13:02:53Z

2011-12-30T13:02:28Z

2011-12-30T12:59:54Z

New page

[[Conf/Examples/CgiConfig | part of CGI Config Examples]]

@@ Line 19: / Line 19: @@
    puts "<html><head><title>CGI Reply Page - via Tcl</title></head>"
    puts "<body bgcolor=white>TCL used in CGI - First Demo"
-   puts "<p>foo: $form(foo)</p>"
+   puts "foo: $form(foo)"
-   puts "<p>bar: $form(bar)</p>"
+   puts "bar: $form(bar)"
    puts "</body>"

← Older revision		Revision as of 13:02, 30 December 2011
Line 1:		Line 1:
	[[Conf/Examples/CgiConfig \| part of CGI Config Examples]]		[[Conf/Examples/CgiConfig \| part of CGI Config Examples]]
		+
		+	#!/usr/bin/tclsh8.5
		+
		+	set params [split $env(QUERY_STRING) &]
		+	foreach par $params {
		+	set pair [split $par =]
		+	set name [lindex $pair 0]
		+	set value [lindex $pair 1]
		+	regsub -all \\\+ $value " " value
		+	# Convert url-encoded characters like %20
		+	regsub -all -nocase {%([0-9a-f][0-9a-f])} $value \
		+	{[format %c 0x\1]} value
		+	set form($name) [subst $value]
		+	}
		+
		+	puts "Content-type: text/html\n"
		+
		+	puts "<html><head><title>CGI Reply Page - via Tcl</title></head>"
		+	puts "<body bgcolor=white>TCL used in CGI - First Demo"
		+	puts "<p>foo: $form(foo)</p>"
		+	puts "<p>bar: $form(bar)</p>"
		+	puts "</body>"