web/src/cgi.tcl-1.10/example/utf.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/local/bin/tclsh

# Test UTF encoding

package require cgi

cgi_eval {
    source example.tcl

    cgi_title "Study utf encoding"
    cgi_html {
	cgi_body {
	    p "I'm going to be living on the Straüße."
	}
    }
}