Update login.tcl

Bit more complete.
Made it a bit more readable.