# Lilys Simple Dictionary (lily@disorg.net)
# Dictionary script for eggdrop bots
# Will return short dictionary definitions from dict.org
# Requires TCL8.0 or greater, has only been tested on eggdrop > 1.6.15
## VERSION 1.0 6/15/04 - basic functions
## Version 2.0 10/17/07 - changed to dict.org
## Version 3.0 10/16/13 - code rewrite
# You must ".chanset #channel +ldict" for each chan you wish to use this in.
# USAGE !d <word>

####################################################################

package require http
setudef flag ldict
set ldef(vers) 3.0
set ldef(agent) "Mozilla/5.0 (X11; Linux i686; rv:2.0.1) Gecko/20100101 Firefox/4.0.1"

proc pub_d {nick uhand handle chan input} {
  if {[channel get $chan ldict]} {
    global ldef
    if {[llength $input]==0} {
      putserv "PRIVMSG $chan :Lilys Dictionary $ldef(vers). Definitions are from WordNet, served by http://dict.org"
    } else {
      set query "http://www.dict.org/bin/Dict?Form=Dict1&Strategy=*&Database=wn&Query="
      for { set index 0 } { $index<[llength $input] } { incr index } {
        set query "$query[lindex $input $index]"
        if {$index<[llength $input]-1} then {
          set query "$query+"
        }
      }
    }
    set http [::http::config -useragent $ldef(agent)]
    set http [::http::geturl $query]
    set html [split [::http::data $http] \n]
    ::http::cleanup $http

#check for valid word
     if {[regexp {No definitions found for} $html]} {
       regexp {wn:(.*?)</pre>} $html - nodef
       if {![info exists nodef]} {
         putserv "PRIVMSG $chan :$nick, $input was not found in WordNet"
         return 0
       }
       regsub -all {<[^>]*>} $nodef {} nodef
       regsub -all {[\{\}\\]} $nodef {} nodef
       regsub -all " +" $nodef " " nodef
       putserv "PRIVMSG $chan :$nick, $input was not found. Try:$nodef"
       return 0
     }
#get def
     regexp {WordNet \(r\) 3.0 \(2006\) </a>:(.*?)Questions or comments} $html - defdata
     if {![info exists defdata]} {
       putserv "PRIVMSG $chan :$nick, data not found :("
       return 0
     }
     regsub -all {<[^>]*>} $defdata {} defdata
     regsub -all {[\{\}\\]} $defdata {} defdata
     regsub -all " +" $defdata " " defdata

     regexp { v 1: (.*?$)} $defdata - vdef
     if {[info exists vdef]} {
       regsub { 2: (.*?$)} $vdef "" vdef
       set vdef [string trim $vdef]
       set verbd "\002\[V\]\002: $vdef "
       append output $verbd
     }
     regexp {n 1: (.*?$)} $defdata - ndef
     if {[info exists ndef]} {
       regsub { 2: (.*?$)} $ndef "" ndef
       regsub { v 1: (.*?$)} $ndef "" ndef
       set ndef [string trim $ndef]
       set nound "\002\[N\]\002: $ndef "
       append output $nound
     }
     regexp {adv 1: (.*?$)} $defdata - advdef
     if {[info exists advdef]} {
       regsub { 2: (.*?$)} $advdef "" advdef
       regsub { n 1: (.*?$)} $advdef "" advdef
       regsub { v 1: (.*?$)} $advdef "" advdef
       regsub { adj 1: (.*?$)} $advdef "" advdef
       set advdef [string trim $advdef]
       set advd "\002\[Adv\]\002: $advdef "
       append output $advd
     }
     regexp {adj 1: (.*?$)} $defdata - adjdef
     if {[info exists adjdef]} {
       regsub { 2: (.*?$)} $adjdef "" adjdef
       regsub { n 1: (.*?$)} $adjdef "" adjdef
       regsub { v 1: (.*?$)} $adjdef "" adjdef
       regsub { adv 1: (.*?$)} $adjdef "" adjdef
       set adjdef [string trim $adjdef]
       set adjd "\002\[Adj\]\002: $adjdef"
       append output $adjd
     }
     putserv "PRIVMSG $chan :$nick, \002$input\002: $output"
  }
}
bind pub - !d pub_d

putlog "Lilys Dictionary $ldef(vers) loaded!"