Very Computer

I have the following expect script to automate a simple ftp transfer
but it doesn't take the '$1' from the command line for some reason.
Anyone know how I could get it to do that?

--------------------------------------------------
#!/usr/bin/expect
#
#
#set prompt "(%|#|\\$) $"                ;# default prompt
#catch {set prompt $env(EXPECT_PROMPT)}

eval spawn ftp ftp.eskimo.com
interact -o -nobuffer -re ftp.iglou.com:root return
send "oak\r"
interact -o -nobuffer -re assword: return
send "mypassword\r"
interact -o -nobuffer -re ftp> return
send "put"
send $1\r"
interact -o -nobuffer -re ftp> return
send "bye\r"
#interact -o -nobuffer -re $prompt return
interact
--------------------------------------------------

All I get is the follow error:

     ftp>can't read "1": no such variable
         while executing
     "send $1..."

Thanks,

-Tony

Well, for openers, you should be using the 'expect' command below, not
'interact'.  It looks like you are using a lot of options and flags to get
interact to do what expect was originally designed to do.  Also, you used
"eval spawn ftp ..." - lose the eval, it is unnnecessary.

Second, in order to access the command line args in Expect (I.e., in tcl),
you have to manipulate the argv variable using the list commands.  I usually
use 'lindex' thusly: set arg1 [lindex $argv 0]

Alternatively, you might want to wrap the thing up as a /bin/sh script
instead of as an Expect script. Then you can do something like:

#!/bin/sh
expect -c 'spawn ftp foo.bar
expect >
send "'$1'\r"
....
'