41 lines
908 B
Plaintext
41 lines
908 B
Plaintext
#!/usr/bin/expect
|
|
# procedure to attempt connecting; result 0 if OK, 1 otherwise
|
|
proc connect {} {
|
|
expect "login:"
|
|
send "kitteh\r"
|
|
expect "password:"
|
|
send "a\r"
|
|
expect {
|
|
kitteh {return 0}
|
|
failed return 1
|
|
"invalid password" return 1
|
|
timeout return 1
|
|
connected
|
|
}
|
|
# timed out
|
|
return 1
|
|
}
|
|
|
|
spawn telnet win7
|
|
|
|
set rez [connect]
|
|
if { $rez == 0 } {
|
|
send "net use X: \\\\vboxsvr\\projects\r\n"
|
|
expect "The command completed successfully."
|
|
send "X:\r\n"
|
|
expect "X:"
|
|
send "cd X:\\dfhack\\build\r\n"
|
|
expect "build"
|
|
send "\"C:\\Program Files (x86)\\MSVC10\\VC\\vcvarsall.bat\" x86\r\n"
|
|
expect "build"
|
|
set timeout -1
|
|
send "linux-remote.bat\r\n"
|
|
# can detect build errors here, pass them out using 'exit'
|
|
expect "FINISHED_BUILD"
|
|
send "exit\r"
|
|
expect eof
|
|
exit 0
|
|
}
|
|
puts "\nError connecting to server!\n"
|
|
exit 1
|