Update login.tcl

Made a HECKTON of additions