Subversion Repositories or1k

#!/depot/tcl/src/expect/e --

# Description: Simple fragment to begin a telnet daemon

# For more information, see Chapter 17 of "Exploring Expect"

# Author: Don Libes, NIST

set IAC   "\xff"

set DONT  "\xfe"

set DO    "\xfd"

set WONT  "\xfc"

set WILL  "\xfb"

set SB    "\xfa"                ;# subnegotation begin

set SE    "\xf0"                ;# subnegotation end

set TTYPE "\x18"

set SGA   "\x03"

set ECHO  "\x01"

set SEND  "\x01"

send "$IAC$WILL$ECHO"

send "$IAC$WILL$SGA"

send "$IAC$DO$TTYPE"

remove_nulls 0

expect_before {

        -re "^$IAC$DO$ECHO" {

                # treat as acknowledgement and ignore

                exp_continue

        }

        -re "^$IAC$DO$SGA" {

                # treat as acknowledgement and ignore

                exp_continue

        }

        -re "^$IAC$DO\(.)" {

                # refuse anything else

                send_user "$IAC$WONT$expect_out(1,string)"

                exp_continue

        }

        -re "^$IAC$WILL$TTYPE" {

                # respond to acknowledgement

                send_user "$IAC$SB$TTYPE$SEND$IAC$SE"

                exp_continue

        }

        -re "^$IAC$WILL$SGA" {

                send_user "$IAC$DO$SGA"

                exp_continue

        }

        -re "^$IAC$WILL\(.)" {

                # refuse anything else

                send_user "$IAC$DONT$expect_out(1,string)"

                exp_continue

        }

        -re "^$IAC$SB$TTYPE" {

                expect_user null

                expect_user -re "(.*)$IAC$SE"

                set env(TERM) [string tolower $expect_out(1,string)]

                # no continue!

        }

        -re "^$IAC$WONT$TTYPE" {

                # treat as acknowledgement and ignore

                set env(TERM) vt100

                # no continue!

        }

}

# do negotations up to terminal type

# expect

##############################

# your code goes after this point here

# spawn something                       ;# typically spawn something

# expect ...                    ;# typically do some expects, sends, etc.

# send ...

# expect ...

# send ...

# expect_before                 ;# remove all protocol nonsense

# let user interact

# interact -re "\r" {send "\r"; expect_user \n {} null}