Shell Programming and Scripting

log_user 1

# Read hostname to connect to from arguments
set hostname    [ lindex $argv 0 ]
# Read ID
set adminID     [ lindex $argv 1 ]
# Read prompt to look for, to initiate interaction
set MenuPrompt  [ lindex $argv 2 ]
# Read input file used for interaction
set IntInFile   [ lindex $argv 3 ]
set IntInFileNm [ exec basename ${IntInFile} ]
set IntInFileDr [ exec dirname ${IntInFile} ]
# Read command to run
set RunCmd      [ lindex $argv 4 ]
# Set time to sleep between checks for input
set Sleep       5
# Set time to sleep between checks for input
set MyPID       [ pid ]
# Initialize var for commands to run to clean up after interaction input file
set Cmd         ""
# File handle/identifier for interaction input file.
set InFile      [ open ${IntInFile} ]

# The command/program should have started within this amount of time.
set timeout     25
# Set to name of running program.
set Me          "${argv0}"
# Set to name of running program's directory.
set MyDir       [ exec dirname ${Me} ]
# Set command to be spawned
set SpawnCmd    "ssh ${adminID}@${hostname} -oStrictHostKeyChecking=no \
    ${RunCmd}"

# Spawn SSH shell connection to target machine and execute command.
eval spawn -noecho ${SpawnCmd}

# Wait for IntInFile to have size, the send the contents as input to the
# spawned process, lock the IntInFile, empty it and then unlock it.
# Look for the specified menu prompt from the command/program called.
expect -re ${MenuPrompt} {
    while { 1 } {
        # Wait between checks for input to send.
        while { [ file size ${IntInFile} ]==0 } {
            expect * {
                puts "$expect_out(buffer)"
                sleep ${Sleep}
            }
        }
        # Send the chararacters in IntInFile to the process.
        gets ${InFile} Buff
        send -- "${Buff}\r"

        # Lock instance to clean out interaction input file.
        set Cmd "${MyDir}/InstLock.sh -n1 -wf \
            ${IntInFileDr}/Lock.${IntInFileNm} -p ${MyPID}"
        if [ catch [ eval exec ${Cmd} ] ] {
            puts "ERROR: executing ${Cmd} - ${CmdOut}"
        }
        # Remove interaction input file.
        set Cmd "rm ${IntInFile}"
        if [ catch [ eval exec ${Cmd} ] ] {
            puts "ERROR: executing ${Cmd} - ${CmdOut}"
        }
        # Re-initialize interaction input file.
        set Cmd "touch ${IntInFile}"
        if [ catch [ eval exec ${Cmd} ] ] {
            puts "ERROR: executing ${Cmd} - ${CmdOut}"
        }
        # Remove lock file.
        set Cmd "rm ${IntInFileDr}/Lock.${IntInFileNm}.1"
        if [ catch [ eval exec ${Cmd} ] ] {
            puts "ERROR: executing ${Cmd} - ${CmdOut}"
        }
    }
} timeout {
    puts "No response from command invoked - ${SpawnCmd}"
    puts "$expect_out(buffer)"
    send -- "^C"
    exit 1
}