#$language = "VBScript"
#$interface = "1.0"

' script for logging in to multiple servers

Sub Main()
    ' turn on synchronous mode
    crt.Screen.Synchronous = True

    ' login name
    crt.Screen.WaitForString "ogin:"
    crt.Screen.Send "userid" & VbCr

    ' password
    crt.Screen.WaitForString "assword:"
    crt.Screen.Send "passwd" & VbCr

    ' find machine name
    crt.Screen.WaitForString "$ "
    crt.Screen.Send "uname -n" & VbCr
    crt.Screen.WaitForString "$ "
    row = crt.Screen.CurrentRow - 1
    mach = Trim(crt.Screen.Get(row, 1, row, 20))

    ' decide if more commands are needed
    Select Case mach
        Case "bldsrv9"
            crt.Screen.Send "cd blddir" & VbCr
            crt.Screen.WaitForString "$ "
            crt.Screen.Send ". ./.bldprof9" & VbCr
            crt.Screen.WaitForString "$ "
            crt.Screen.Send "cd $MYNODE" & VbCr
        
        Case "bldsrv10", "bldsrv11"
            crt.Screen.Send "cd blddir" & VbCr
            crt.Screen.WaitForString "$ "
            crt.Screen.Send ". ./.bldprof10" & VbCr
            crt.Screen.WaitForString "$ "
            crt.Screen.Send "cd $MYNODE" & VbCr
    End Select

    ' setup the test servers (names start with tstsrv)
    If Left(mach, 6) = "tstsrv" Then
        crt.Screen.Send ". ./.tstprofile" & VbCr
        crt.Screen.WaitForString "$ "
    End If

    ' turn off synchronous mode
    crt.Screen.Synchronous = False
End Sub