Tcl error [test1]: wrong # args: need help!

[Drewbu]

Hi i made a script to send a post request ... and it did work ... but after some time i start to get Tcl error [test1]: wrong # args: should be "join nick uhand handle chan input"
here si code .. plese help me

Code: Select all

package require http

bind pub - !test test1
proc test1 {nick uhand handle chan input} {
    putlog "post requested"
   set data test
    set url "http://url"
set query [http::formatQuery "body" $data] 
http::config -useragent "User-Agent: Mozilla/4.0 (compatible; Eggdrop 1.6)"
  set token [http::geturl $url -query $query]
upvar #0 $token state

array set meta $state(meta)

putserv "PRIVMSG $chan :$meta(Location)"
http::cleanup $token
}