Update login.tcl

Fixed a few gitliches and added some stuff