Datei: post1.exp

#!/usr/bin/expect -f

# This Expect script was generated by autoexpect on Thu Nov 23 10:07:50 2000

# Expect and autoexpect were both written by Don Libes, NIST.

# Note that autoexpect does not guarantee a working script. It

# necessarily has to guess about certain things. Two reasons a script

# might fail are:

# 1) timing - A surprising number of programs (rn, ksh, zsh, telnet,

# etc.) and devices discard or ignore keystrokes that arrive "too

# quickly" after prompts. If you find your new script hanging up at

# one spot, try adding a short sleep just before the previous send.

# Setting "force_conservative" to 1 (see below) makes Expect do this

# automatically - pausing briefly before sending each character. This

# pacifies every program I know of. The -c flag makes the script do

# this in the first place. The -C flag allows you to define a

# character to toggle this mode off and on.

set force_conservative 0 ;# set to 1 to force conservative mode even if

;# script wasn't run conservatively originally

if {$force_conservative} {

set send_slow {1 .1}

proc send {ignore arg} {

sleep .1

exp_send -s -- $arg

}

# 2) differing output - Some programs produce different output each time

# they run. The "date" command is an obvious example. Another is

# ftp, if it produces throughput statistics at the end of a file

# transfer. If this causes a problem, delete these patterns or replace

# them with wildcards. An alternative is to use the -p flag (for

# "prompt") which makes Expect only look for the last line of output

# (i.e., the prompt). The -P flag allows you to define a character to

# toggle this mode off and on.

# Read the man page for more info.

# -Don

set delay 3

catch {set delay [expr int([lindex $argv 0])]}

proc delay {} {

global delay

sleep $delay

}

set timeout -1

spawn $env(SHELL)

match_max 100000

expect -glob "> "

send -- "telnet localhost 80\r"

expect -glob "Trying 127.0.0.1...\r\r

Connected to localhost.\r\r

Escape character is '^\]'.\r\r

delay

send -- "POST /cgi-bin/test.cgi HTTP/1.0\r"

expect -glob " HTTP/1.?\r

delay

send -- "Connection: Keep-Alive\r"

expect -glob "\r

delay

set content "VAR1=123&VAR2=xyz\r\n"

send -- "Content-Type: application/x-www-form-urlencoded\r"

expect -glob "\r

delay

send -- "Content-Length: [string length $content]\r"

expect -glob "\r

delay

send -- "\r"

expect -glob "\r

delay

send -- $content

expect -glob $content

expect -glob "

Connection closed by foreign host.\r\r

delay

expect "> "

send -- "exit\r"

expect eof

Die Datei: post1.exp