Update login.tcl

Added a fair bit