Posted to tcl by cßrnel at Tue Feb 19 12:45:56 GMT 2013view raw

  1. spawn /usr/bin/ssh -tp $PORT $UNAME@$HOSTIP "cd $REMOTE_SYSROOT_PATH ; mkdir -p $SYSROOT_VERSION ; /usr/bin/sudo tar -xjvf $SYSROOT_ARCHIVE -C $SYSROOT_VERSION"
  2.  
  3. #set timeout $XPCT_TIMEOUT
  4. set timeout -1
  5.  
  6. expect {
  7. "assword:" {send $UPASS\r}
  8.  
  9. puts "logged in";
  10.  
  11. " $UNAME:" {
  12. puts "got ' $UNAME:'"
  13. send "$UPASS\r"
  14. }
  15.  
  16. puts "We've unpacked as root"
  17.  
  18. timeout {
  19. puts "got timeout"
  20. exit 2
  21. }
  22.  
  23. eof {
  24. puts "ssh has exited"
  25. }
  26. }
  27.  
  28. puts "expect block finished"
  29.