Virtual Host1 Test

<?
set ::vhost1 1
puts "vhost1 hello world<br>"

foreach var {
    childinit1 childinit2 vhost1 vhost2
} {
    if { [info exists ::$var] } {
	puts "$var exists<br>"
    }
}

?>