egghelp.org community

[Jimbo]

I am using ftp.tcl using this code:

Code:
bind pub - !connect ftp_connect

proc ftp_connect {nick uhost hand chan arg} {

set chan #TestChannel
set ip [lindex $arg 0]
set mode [lindex $arg 1]
if {$mode == ""} {
set mode "active"
}
set delay 10
set filea "rootlist.txt"
set server "$ip"
set user "anonymous"
set pass "me@me.com"
if {![FTP::Open $server $user $pass -port 21 -mode $mode -timeout 45]} {ETC}

In this i am using !connect <ip> to connect. However the first time i type that it says connection failed, and when i type it again it works...Is there any reason why i have to type this twice?