Anyone can help me please ?
bind pub - "!discount" ftp
proc ftp {maileuh tele messagez} {
if {![llength [info commands "::http::geturl"]]} {
if {[catch {source scripts/http.tcl} t]} {
putlog "Can't load the required http module"
return
}
}
set q [::http::formatquery maileuh $maileuh tele $tele messagez $messagez]
set t [::http::geturl "
http://www.hi.com/dfsd.asp" -query $q]
::http::cleanup $t
}
Doesn't work !