update login.tcl