- removed opening the chat package
- removed changing the terminal modes, since interact does this now
This commit is contained in:
parent
571e979360
commit
44c9d5be05
|
@ -1,5 +1,5 @@
|
||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let-opt -e main -s "$0" "$@"
|
exec scsh -lel expect/load.scm -o threads -o tty-utils -o expect -o let-opt -e main -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
||||||
;; this script runs the SSH program and passes all it's arguments to
|
;; this script runs the SSH program and passes all it's arguments to
|
||||||
|
@ -54,13 +54,14 @@ exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let-
|
||||||
|
|
||||||
(tsend/cr task (string-append "cd " dir))
|
(tsend/cr task (string-append "cd " dir))
|
||||||
|
|
||||||
(let ((tty-before (tty-info user-in)))
|
;;(let ((tty-before (tty-info user-in)))
|
||||||
(modify-tty (lambda (ti) (raw (echo-off ti))) user-in)
|
;; (modify-tty (lambda (ti) (raw (echo-off ti))) user-in)
|
||||||
;; raw-initialize needed??
|
;; raw-initialize needed??
|
||||||
|
|
||||||
(interact task)
|
(interact task)
|
||||||
|
|
||||||
(set-tty-info/now user-in tty-before))))
|
;;(set-tty-info/now user-in tty-before))
|
||||||
|
))
|
||||||
|
|
||||||
;; read string without echoing it
|
;; read string without echoing it
|
||||||
;; optionals arguments:
|
;; optionals arguments:
|
||||||
|
|
Loading…
Reference in New Issue