web/src/cgi.tcl-1.10/example/vclock-src-frame.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/depot/path/tclsh

# This CGI script displays the Tcl and Perl vclock source side by side.

package require cgi

cgi_eval {
    source example.tcl

    cgi_title "Comparison of vclock source"

    cgi_frameset cols=50%,* {
	cgi_frame =[cgi_cgi display scriptname=vclock.cgi]
	cgi_frame =[cgi_cgi display scriptname=vclock.pl]
    }
    cgi_noframes {
	cgi_h1 "uh oh"

	p "This document is designed to be viewed by a Frames-capable
	browser.  If you see this message your browser is not
	Frames-capable."
    }
}