home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / scripts / su2 < prev    next >
Encoding:
Text File  |  1993-02-21  |  535 b   |  19 lines

  1. #!/depot/path/expect -f
  2. # startup an su and run the argument
  3. # Designed to be run as: su2 !!
  4. # Don Libes
  5. set timeout -1
  6. log_user 0
  7. spawn su
  8. system stty -echo               ;# prepare to get password from user
  9. send_user "Password: "
  10. expect_user -re "(.*)\n"
  11. set password $expect_out(1,string)
  12. system stty echo
  13. expect "*Password:"             ;# discard su's password prompt
  14. log_user 1
  15. send "$password\r"
  16. expect *Sorry* exit *#*
  17. eval send [lrange $argv 1 end] \\r
  18. interact                        ;# let user type more cmds to root shell
  19.