# Copyright for the Uniform Repository Service (c) 1995 - 2012,
# by Gerald Banon. All rights reserved.
# Version 2.1
# info.tcl
# used by Get

proc Info {} {
	global env
	puts {Content-Type: text/html}
	puts {}
	foreach name [array names env] {
		puts "$name = $env($name)<BR>"
	}
}