Update login.tcl

now with 10% more functionality