virtual sites tcl scripts