+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : English help (https://forum.eggdrop.fr/forumdisplay.php?fid=25)
+--- Forum : Tcl scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=27)
+---- Forum : Scripts support & releases (https://forum.eggdrop.fr/forumdisplay.php?fid=31)
+---- Sujet : wordoftheday.tcl (/showthread.php?tid=1834)
wordoftheday.tcl - aslpls - 06/08/2025
Hi All, i need help from this script to an autoshow message to the channel. And if you can explain the added code for autoshow. that much better so that i can understand more. Thank you.
tcl
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!"
###################################
RE: wordoftheday.tcl - CrazyCat - 06/08/2025
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):
tcl
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
RE: wordoftheday.tcl - aslpls - 07/08/2025
thank you Crazycat.. for your time and support.. i will check, and post an update here soon..