#################### LOGIN_windows winUsername winPassword halEnv d3Username d3Password  ####################
# Author:       Mark Franklin
# Precondition: N/A
# Takes:        5 strings
# Where:        winUsername == windows username and winPassword == windows
#                password. halEnv (waphaldev, waphaltest...)
#                d3Username == d3 password d3Password == d3 password
# Returns:      TRUE if login is successful or FALSE if not
# Notes:        Would rather set an error var but need to research
#################### LOGIN_connect winUsername winPassword d3Username d3Password  ####################
proc LOGIN_connect { winUsername winPassword halEnv d3Username d3Password} {
        set TRUE 1
        set FALSE 0
        set rcode $TRUE

        spawn telnet $halEnv
        expect "login: "
        exp_send -- "$winUsername\r"
        expect "Password: "
        exp_send -- "$winPassword\r"
        expect {
                        "Login incorrect" {
                                set rcode $FALSE
                                return $rcode
                        }
                        "Connected"
        }
        exp_send -- "\r"
        expect "Enter your user id: "
        exp_send -- "$d3Username\r"
        expect "user password:"
        exp_send -- "$d3Password\r"
        expect {
                        "Invalid" {
                                set rcode $FALSE
                                return $rcode
                        }
                        "OFF"
        }
        return $rcode
}