[TCL] EggDrop site laten zeggen met trigger

[MaNDaRK]

Ik wil dus de bot wat laten zeggen met behulp van een trigger.
Trigger: !post
Action: website ophalen en die dan in het kanaal zeggen.
Het volgende heb ik al gerpobeerd, maar doet niets. Ook kon ik met google niets vinden.

code:

package require http

bind pub - !post pub:post


post pub:post { nick uhost handle channel arg } {
      set query ["http://test.server.nl/test.php"]
      set token [http::geturl $query]
      upvar #0 $token state
      putserv "PRIVMSG $channel :$token"
   }
putlog "*** WebGet Script loaded ***"

Wie kan mij verderhelpen

[2P]

Ik zou het zelf zo doen:

code:

package require http

bind pub - !post pub:post

proc pub:post { nick uhost handle channel arg } {
  set query "http://eenadres.nl/blaat.html"
  set token [http::geturl $query]
  foreach line [split [http::data $token] \n] { 
    putserv "PRIVMSG $channel :$line"    
  }
}

putlog "*** WebGet Script loaded ***"

Ik werk nooit met upvar, ik zie de voordelen er niet van en dit werkt net zo goed.

[MaNDaRK]

Heel erg bedankt! het werkt nu!

Ik ga het nu helemaal uitwerken dat als ik een post op me forum heb dat die bot het uit gaat spugen