wordoftheday.tcl

[CrazyCat]

First, thanx to use [ tcl ] and [ /tcl ] tags rather than [ code ] and [ /code ] when you copy tcl code here.

The simplest way, without redoing all the script, is to have a bind on time or cron which will launch the pub:wordoftheday procedure.

Here is what I may do (added at the end of the script):

tclcopier

package require tdom
package require http
 
bind pub - !word pub:wordoftheday
 
set wotdurl "http://www.urbandictionary.com/"
 
proc pub:wordoftheday {nick host handle chan text} {
   global wotdurl
   if {[catch {
      set page [::http::data [::http::geturl $wotdurl]]
      set doc [dom parse -html $page]
      set root [$doc documentElement]
      set titleNode [$root selectNodes {//div[@class='word']/a[1]/text()}]
      if {$titleNode == ""} {
         set titleNode [$root selectNodes {//td[@class='def_word']/a[1]/text()}]
      }
      set title [string trim [[lindex $titleNode 0] nodeValue]]
      putserv "PRIVMSG $chan :Word of the day is: \002$title\002"
      set defs [$root selectNodes {//div[@class='definition']}]
      if {$defs != ""} {
         set deftextnodes [[lindex $defs 0] selectNodes {self::*//text()}]
         set examples [$root selectNodes {//div[@class='example']}]
         set exampletextnodes [[lindex $examples 0] selectNodes {self::*//text()}]
         set def ""
         set example ""
         foreach node $deftextnodes {
            # why doesn't eggdrop output newlines?
            # it just stops outputting when newline comes up
            append def [string map {"\n" " "} [string trim [$node nodeValue]]]
            append def " "
         }
         putserv "PRIVMSG $chan :$def"
         foreach node $exampletextnodes {
            # why doesn't eggdrop output newlines?
            # it just stops outputting when newline comes up
            append example [string map {"\n" " "} [string trim [$node nodeValue]]]
            append example " "
         }
         putserv "PRIVMSG $chan :$example"
      } else {
         set parags [$root selectNodes {//tr[2]//p}]
         foreach p $parags {
            set text ""
            set textnodes [$p selectNodes {self::*//text()}]
            foreach node $textnodes {
               # why doesn't eggdrop output newlines?
               # it just stops outputting when newline comes up
               append text [string map {"\n" " "} [$node nodeValue]]
            }
            putserv "PRIVMSG $chan :$text"
         }
      }
   } err]} {
      putserv "PRIVMSG $chan :WotD failed - $err"
   }
}

###################################
putlog "Word Of The Day script loaded!"
###################################

# Autoshow part
# this adds a +/-wotd channel setting
# do .chanset #chan +wotd to activate the autoshow on #chan
setudef flag wotd

# Bind to show every hours the wotd
bind cron - "00 * * * *" auto:wotd
 
proc auto:wotd {min hour day mon wod} {
   # we loop on every channel of the eggdrop
   foreach c [channels] {
      # if channel has +wotd, call pub:wordoftheday
      if {[channel get $c wotd]} {
         pub:wordoftheday $::botnick *@* $::botnick $c ""
      }
   }
}

Have a look to cron syntax to change the frequency, or use bind time if you prefer