Posted to tcl by Texan at Thu Jan 31 21:12:25 GMT 2019view raw
- #!/usr/bin/expect
- set host [lindex $argv 0]
- set klishprompt "$host>"
- set shellprompt "myuser]"
- set component [lindex $argv 1]
- spawn ssh -oUserKnownHostsFile=/dev/null myuser@$host
- set timeout 2
- expect {
- timeout {
- puts "Connection timed out"
- exit 1
- }
- "yes/no" {
- send "yes\r"
- exp_continue
- }
- "assword:" {
- send -- "hammerhead\r"
- exp_continue
- }
- "password for myuser:" {
- send -- "mypass\r"
- exp_continue
- }
- "$klishprompt" {
- send "shell\r"
- exp_continue
- }
- "$shellprompt" {
- exec "mv -f /some/directory/$component /some/other/dir"
- exec "exit\r"
- exec "exit\r"
- exit 0
- }
- }