Code:

# pricewatch.tcl# arfer <arfer.minute@gmail.com># DALnet #Atlantis### ------------------------------------------------------------------------------------------- ###### -------------------- OPERATION ------------------------------------------------------------ #### scrapes product price information from http://tweakers.net/pricewatch/### ------------------------------------------------------------------------------------------- ###### -------------------- CHANGELOG ------------------------------------------------------------ #### 1.0 beta release 28/12/09### ------------------------------------------------------------------------------------------- ###### -------------------- DEPENDENCIES --------------------------------------------------------- #### eggdrop 1.6.17+# tcl 8.4.x+# http 2.5.x+ (http package is normally installed by default with the shell's tcl installation)# IRC client for results output must be UTF-8 compliant, such as mIRC or XChat# IRC output channel must allow colour/bold text styles### ------------------------------------------------------------------------------------------- ###### -------------------- INSTALLATION --------------------------------------------------------- #### 1. configure pricewatch.tcl in a suitable text editor# 2. put the configured pricewatch.tcl in the bot's scripts subdirectory# 3. add a line to the bots .conf file 'source scripts/pricewatch.tcl'# 4. restart the bot# 5. requires partyline '.chanset #channelname +pricewatch' to function in #channelname### ------------------------------------------------------------------------------------------- ###### -------------------- SYNTAX --------------------------------------------------------------- #### assuming the default trigger character ! (see configuration section below)# !pw <text># !pricewatch <text>### ------------------------------------------------------------------------------------------- ###### -------------------- CONFIGURATION -------------------------------------------------------- #### set here the single character command triggerset vPricewatchTrigger !# set here the bot user flag(s) required to permit use of the public commandsset vPricewatchFlag -# set here the maximum number of results to return# note that the actual results may be less than this value, but will never be moreset vPricewatchResults 4### ------------------------------------------------------------------------------------------- ###### -------------------- CODE ----------------------------------------------------------------- ###### ********************************* ###### ********** DO NOT EDIT ********** ###### ********************************* ###### ----- initialise ------------------------ ###set vPricewatchVersion 1.0package require httpsetudef flag pricewatchproc pPricewatchTrigger {} {  global vPricewatchTrigger  return $vPricewatchTrigger}### ----- binds ----------------------------- ###bind PUB $vPricewatchFlag [pPricewatchTrigger]pw pPricewatchScrapebind PUB $vPricewatchFlag [pPricewatchTrigger]pricewatch pPricewatchScrape### ----- procs ----------------------------- ###proc pPricewatchParse {chan text token} {  global vPricewatchResults  regexp -- {<tbody>(.+)</tbody>} [::http::data $token] -> data  if {[info exists data]} {    for {set count 1} {$count <= $vPricewatchResults} {incr count} {      if {[regexp -indices -- {(</tr>)} $data -> idx]} {        set product($count) [regsub -all -- {[\n\t]} [string range $data 0 [expr {[lindex $idx 0] - 1}]] {}]        set data [string range $data [expr {[lindex $idx 1] + 1}] end]      }    }    if {[array size product] > 0} {      set results 0      foreach name [lsort -increasing [array names product]] {        if {[regexp -- {<td class=\"title ellipsis\"><p><a href[^>]+>([^<]+)</a>} $product($name) -> model]} {          if {[regexp -- {title=\"Specificaties[^>]+>([^<]+)</a>} $product($name) -> type]} {            if {[regexp -- {<td class=\"price\"><p><a href[^>]+>([^<]+)</a>} $product($name) -> price]} {              set price [regsub -- {€ } $price [encoding convertto utf-8 \u20AC]]              if {[regexp -- {<p class=\"subtitle\">([^<]+)</p>} $product($name) -> shops]} {                if {[regexp -- {<td class=\"first thumb\"><a href=\"([^"]+)\"} $product($name) -> link]} {                  putserv "PRIVMSG $chan :<pricewatch> \002$model\002 -> $type -> \002$price\002 ($shops) -> \00303\037$link\037\003"                  incr results                }              }            }          }        }      }      if {$results == 0} {putserv "PRIVMSG $chan :Nothing found for $text"}    } else {putserv "PRIVMSG $chan :Nothing found for $text"}  } else {putserv "PRIVMSG $chan :Nothing found for $text"}  return 0}proc pPricewatchScrape {nick uhost hand chan text} {  if {[channel get $chan pricewatch]} {    set keyword [regsub -all -- {[\s]} [regsub -all -- {[\s]{2,}} [string trim $text] { }] \+]    set url http://tweakers.net/pricewatch/zoeken/?keyword=$keyword    set agent [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]    if {![catch {set token [::http::geturl $url -timeout 20000]}]} {      switch -exact -- [::http::status $token] {        "timeout" {putserv "PRIVMSG $chan :Operation timed out"}        "error" {putserv "PRIVMSG $chan :Error encountered [::http::error $token]"}        "ok" {          switch -- [http::ncode $token] {            200 {pPricewatchParse $chan $text $token}            default {putserv "PRIVMSG $chan :Unexpected Ncode [http::ncode $token]"}          }        }        default {}      }      ::http::cleanup $token    } else {putserv "PRIVMSG $chan :Failed to locate URL"}  }  return 0}### ----- finalise -------------------------- ###putlog "pricewatch.tcl version $vPricewatchVersion by arfer loaded"# eof