Code:

package require htmlparsepackage require httppackage require tls::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]namespace eval ::ud {# set this to !ud or whatever you wantvariable trigger "!ud"# maximum lines to outputvariable max_lines 1# approximate characters per linevariable line_length 400# show truncated message / url if more than one linevariable show_truncate 1# toggle whether we store raw response data.# this will store the response from an http request to urbandictionary.com# in files for debugging.# NOTE: enabling this will cause a file to be created for every request#   the script makes, so these can pile up quickly!variable store_responses 0# the directory to store responses if store_responses is on.# this is under your eggdrop directory.# files under this directory will be named with unix timestamps# (microseconds).variable store_responses_dir slang_responsesvariable output_cmd "putserv"variable client "Mozilla/5.0 (compatible; Y!J; for robot study; keyoshid)"variable url https://www.urbandictionary.com/define.phpvariable url_random https://www.urbandictionary.com/random.php# regex to find the wordvariable word_regex {<a class="word" href=.*?>(.*?)</a>}variable list_regex {<div class="def-panel" data-defid="[0-9]+?">.*?<div class="def-footer">}variable def_regex {<div class="def-panel" data-defid="([0-9]+?)">.*?<div class="meaning">(.*?)</div>}setudef flag udbind pub -|- $::ud::trigger ::ud::handler# 0 if isgd package is presentvariable isgd_disabled [catch {package require isgd}]}# write a console log message.proc ::ud::log {msg} {if {[string length $msg] == 0} {return}putlog "urban.tcl $msg"}proc ::ud::handler {nick uhost hand chan argv} {if {![channel get $chan ud]} { return }set argv [string trim $argv]set argv [split $argv]if {[string is digit [lindex $argv 0]]} {set number [lindex $argv 0]set query [join [lrange $argv 1 end]]} else {set query [join $argv]set number 1}set query [string trim $query]if {[llength $argv] == 1 && [string is digit [lindex $argv 0]]} {$::ud::output_cmd "PRIVMSG $chan :Usage: $::ud::trigger \[#\] <query> (or just $::ud::trigger for random definition)"return}if {$query == ""} {::ud::log "Performing random query..."if {[catch {::ud::get_random} result]} {$::ud::output_cmd "PRIVMSG $chan :Error: $result"return}::ud::output $chan $result} else {::ud::log "Fetching definition $number of $query..."if {[catch {::ud::get_def $query $number} result]} {$::ud::output_cmd "PRIVMSG $chan :Error: $result"return}::ud::output $chan $result}}proc ::ud::output {chan def_dict} {set output 0foreach line [::ud::split_line $::ud::line_length [dict get $def_dict definition]] {if {[incr output] > $::ud::max_lines} {if {$::ud::show_truncate} {$::ud::output_cmd "PRIVMSG $chan :Output truncated. [::ud::def_url $def_dict]"}break}$::ud::output_cmd "PRIVMSG $chan :$line"}}proc ::ud::get_random {} {set result [::ud::http_fetch $::ud::url_random -1]set word [dict get $result word]set defs_html [dict get $result definitions]if {[llength $defs_html] < 1} {error "Failure finding random definition."}return [::ud::parse $word [lindex $defs_html 0]]}proc ::ud::get_def {query number} {set page [expr {int(ceil($number / 7.0))}]set number [expr {$number - (($page - 1) * 7)}]set url $::ud::urlappend url ?if {$page == 1} {append url [::http::formatQuery term $query]} else {append url [::http::formatQuery term $query page $page]}set result [::ud::http_fetch $url $page]set word [dict get $result word]set defs_html [dict get $result definitions]if {[llength $defs_html] < $number} {error "[llength $defs_html] definitions found."}return [::ud::parse $word [lindex $defs_html [expr {$number - 1}]]]}# store an http request response (if enabled).proc ::ud::store_response {data} {if {!$::ud::store_responses} {return}# ensure the directory to store the responses exists.if {![file isdirectory $::ud::store_responses_dir]} {# mkdir raises an error if it fails.file mkdir $::ud::store_responses_dir}# make the filename that we will store to.set base [clock microseconds]set path [file join $::ud::store_responses_dir $base]# write out the responseset f [open $path w]puts -nonewline $f $dataclose $f::ud::log "stored response to $path"}proc ::ud::http_fetch {url page} {http::config -useragent $::ud::client::ud::log "Fetching $url"set token [http::geturl $url -timeout 20000]set data [http::data $token]set ncode [http::ncode $token]set meta [http::meta $token]http::cleanup $token# Follow redirectsif {[regexp -- {30[01237]} $ncode]} {set new_url [dict get $meta Location]# We lose our page parameter apparently.if {$page != -1 && $page != 1} {append new_url &page=$page}return [::ud::http_fetch $new_url $page]}if {$ncode == 404} {error "No definitions found."}if {$ncode != 200} {error "HTTP fetch error. Code: $ncode"}# we may be storing responses for debugging.if {[catch {::ud::store_response $data} result]} {putlog "Problem storing response: $result"}return [::ud::parse_word_and_definitions $data]}# parse a response from a file.# this is primarily for debugging purposes. we can pass this function# a stored response file to try to parse it.proc ::ud::parse_response_file {path} {set f [open $path]set data [read -nonewline $f]close $freturn [::ud::parse_word_and_definitions $data]}# first pass parsing - we pull out the word and the definitions from# the page.# we return a dictionary with keys 'word' and 'definitions' on success.# on failure, we raise an error.proc ::ud::parse_word_and_definitions {data} {# pull out the word.if {![regexp -- $::ud::word_regex $data -> word]} {error "Word not found. No definitions or parsing problem!"}set word [string trim $word]set definitions [regexp -all -inline -- $::ud::list_regex $data]set definition_count [llength $definitions]if {$definition_count == 0} {error "No definitions found"}return [list word $word definitions $definitions]}proc ::ud::parse {word raw_definition} {if {![regexp $::ud::def_regex $raw_definition -> number definition]} {error "Could not parse definition's HTML"}set definition [htmlparse::mapEscapes $definition]set definition [regsub -all -- {<.*?>} $definition ""]set definition [regsub -all -- {\n+} $definition " "]set definition [string tolower $definition]set definition [string trim $definition]return [list number $number word $word definition "$word is $definition"]}proc ::ud::def_url {def_dict} {set word [dict get $def_dict word]set number [dict get $def_dict number]set raw_url ${::ud::url}?[http::formatQuery term $word defid $number]if {$::ud::isgd_disabled} {return $raw_url} else {if {[catch {isgd::shorten $raw_url} shortened]} {return "$raw_url (is.gd error)"} else {return $shortened}}}# by fedexproc ::ud::split_line {max str} {set last [expr {[string length $str] -1}]set start 0set end [expr {$max -1}]set lines []while {$start <= $last} {if {$last >= $end} {set end [string last { } $str $end]}lappend lines [string trim [string range $str $start $end]]set start $endset end [expr {$start + $max}]}return $lines}putlog "urban.tcl loaded"