Posted to tcl by mjanssen at Fri Oct 23 14:09:39 GMT 2009view pretty

set prompt "#"

expect {

        -re ".*Are.*.*yes.*no.*" {
        send "yes\r"
        exp_continue
        #look for the password prompt
       }

      $prompt {
        puts "Login succeeded"
        exit 0
      } 

      "again." {
        puts stderr "Could not login"
        exit 7
       }

       "password:" {
        send -- "dummy"
        send -- "\r"
        exp_continue
       }

}

Comments

Posted by krish at Fri Oct 23 14:13:29 GMT 2009 [text] [code]

"password:" { send -- "dummy" send -- "\r" exp_continue } "Permission denied" { exit 7 }