Code:
####### Developers ######## Allakhazam item info v1.0.0 by Lopo## Allakhazam item info v1.0.1 Modifed by ^ThE^ // irc.lv# Email: serj3@inbox.lv# based on the imdb info script released by phillie########################### Changes:# 1 - Fixed all link to receive item# 2 - Use now http 2.5.0# 3 - TCL version 8.2# 4 - Command !alla rename it to !item# 5 - Fixed some bugs with http connections# Usage:## !item <itemname>## -h show help## cookies for output format:## bold = %bold# underline = %uline# colors = %color#,## new line = \n## to reset colors, just use %color without any arguments.################################## CONFIG ########## debug mode?set DEBUG 0set ALLAversion "1.0.1"# proxy support. leave empty to disableset ALLAhost ""set ALLAport ""# trigger you want to useset ALLAtrigger "!item"# userflags needed to use this scriptset ALLArights "-|-"# use +imdb chan-modeset ALLAperm 0# 0 for response via notice to $nick, 1 for msg to $chanset pub_or_not 1######################################################################## HTTP/TCL ########setudef flag allapackage require Tcl 8.2package require http 2.5.0####### Public Commands/Rights/Debugbind pub $ALLArights $ALLAtrigger alla_proc###### HTML CODES ######proc htmlcodes {tempfile} {set mapfile [string map {" ' & & [ ( \ / ] ) { ( } ) £ Ј ¨ Ё © © « « ® ® } $tempfile]set mapfile [string map {´ ґ · · ¹ № » » ¼ ј ½ Ѕ ¾ ѕ À А Á Б Â В } $mapfile]set mapfile [string map {Ã Г Ä Д Å Е Æ Ж Ç З È И É Й Ê К Ë Л Ì М Í Н Î О Ï П Ð Р Ñ С Ò Т Ó У Ô Ф Õ Х Ö Ц } $mapfile]set mapfile [string map {× Ч Ø Ш Ù Щ Ú Ъ Û Ы Ü Ь Ý Э Þ Ю ß Я à а á б â в ã г ä д å е æ ж ç з è и é й ê к } $mapfile]set mapfile [string map {ë л ì м í н î о ï п ð р ñ с ò т ó у ô ф õ х ö ц ÷ ч ø ш ù щ ú ъ û ы ü ь ý э þ ю } $mapfile]return $mapfile}###### Channel Check ######proc channel_check { chan } { foreach setting [channel info $chan] { if {[regexp -- {^[\+-]} $setting]} { if {![string compare "+alla" $setting]} { set permission 1 } else { set permission 0 } } } return $permission}proc replacevar {strin what withwhat} { set output $strin set replacement $withwhat set cutpos 0 while { [string first $what $output] != -1 } { set cutstart [expr [string first $what $output] - 1] set cutstop [expr $cutstart + [string length $what] + 1] set output [string range $output 0 $cutstart]$replacement[string range $output $cutstop end] } return $output}######################################### Conf ##########################################proc alla_proc { nick uhost handle chan argv } {global DEBUG ALLAtrigger announce pub_or_not ALLAperm allablow # channel_check permissionif {$ALLAperm == 1} { set permission_result [channel_check $chan] if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG permission_result == $permission_result" } if { $permission_result == 0 } { return }} if {$pub_or_not == 1 } { set toput "PRIVMSG $chan" } else { set toput "NOTICE $nick" }set start 0set extended 1set linkonly 0if {$argv == ""} {if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG no argv passed, show help notice" }putserv "PRIVMSG $chan :\[\002Allakhazam\002\] try $ALLAtrigger -help"return}if {[lindex $argv 0] == "-help" || [lindex $argv 1] == "-help" || [lindex $argv 2] == "-help" || [lindex $argv 3] == "-help"} {if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG argv == help, show help" }putserv "PRIVMSG $nick :Item info v$ALLAversion"putserv "PRIVMSG $nick :----------------------------------------------------------------"putserv "PRIVMSG $nick :$ALLAtrigger : <itemname>"putserv "PRIVMSG $nick : "putserv "PRIVMSG $nick :\002options\002:"putserv "PRIVMSG $nick :\002-help\002 show help"putserv "PRIVMSG $nick :\002-l\002 show only http link"return}############################################################################################# check for commandsif {[lindex $argv 0] == "-l" || [lindex $argv 1] == "-l" || [lindex $argv 2] == "-l" || [lindex $argv 3] == "-l"} {incr startincr linkonlyset moviename [lrange $argv $start end]}# create moviename using $startset moviename [lrange $argv $start end]# initial searchset allaurl "http://wow.allakhazam.com"set allasearchurl "http://wow.allakhazam.com/search.html?q="set timeout 20000set searchString [::http::formatQuery $moviename]set searchString [string trimleft $searchString "+"]if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG searchString: \"$searchString\"" }set page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ${allasearchurl}$searchString" }if {[catch {::http::geturl ${allasearchurl}$searchString -timeout $timeout} page]} {putlog "\002ALLA Error\002: $page"} elseif {[http::status $page] == "timeout"} {putlog "\002ALLA Error\002: Timeout after $timeout seconds"}set html [::http::data $page]::http::Finish $pageif {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0" }upvar 0 $page oldpageset body $oldpage(body)set pos [expr [string first ">0 items found.<" $body] + 0]if {$pos != -1} {putserv "$toput :0 items found."return}set pos [expr [string first "items found" $body] + 11]set body [string range $body $pos end]set lpole {}set sname [string tolower [replacevar $searchString "+" " "]]while {[string length $body] > 0} {set pos [expr [string first "/images/icons/" $body]]if {$pos == -1} {break}set body [string range $body $pos end]set pos [expr [string first "/db/item.html?source=live;witem=" $body] + 0]set body [string range $body $pos end]regexp {witem=[0-9]+} $body itemidset itemid [string range $itemid 6 end] if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ItemID == $itemid" }set pos [expr [string first "name\">" $body] + 6]set body [string range $body $pos end]set pos1 [expr [string first < $body] - 1]set itemname [string range $body 0 $pos1]set pole($itemid) $itemnamelappend lpole $itemidset itemname [string tolower $itemname]if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Itemname == $itemname" }set exact [string compare $sname $itemname]if {$exact == 0} {break}}if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG lpole == $lpole" }if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG exact == $exact" }if {$exact != 0 && [llength $lpole] > 1} {putserv "$toput :[llength $lpole] items found"foreach i $lpole {if {[llength $lpole] < 11} {putserv "$toput :http://wow.allakhazam.com/db/item.html?source=live;witem=$i - $pole($i)"} {putserv "PRIVMSG $nick :http://wow.allakhazam.com/db/item.html?source=live;witem=$i - $pole($i)"}}return}set iid $itemidif {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 iID == $iid" }if {$linkonly>0} {putserv "$toput :http://wow.allakhazam.com/db/item.html?source=live;witem==$iid"return}set newurl "$allaurl/dev/wow/item-xml.pl?source=live;witem=$iid"if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 = $newurl" }unset htmlset page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]if {[catch {::http::geturl $newurl -timeout $timeout} page]} {putlog "\002ALLA Error\002: $page"} elseif {[http::status $page] == "timeout"} {putlog "\002ALLA Error\002: Timeout after $timeout mseconds"if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Timeout after $timeout mseconds"}return}set html [::http::data $page]::http::Finish $page# for bogus searchesif {[string length $newurl] == 0} {putserv "$toput :No no no! I can't find that!"if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG bogus searches" }return}set iname "N/A"; set idesc "N/A"## get titleif [regexp {<name1>[^<]+} $html iname] {set pos [expr [string last > $iname] + 1]set iname [string range $iname $pos end]set iname [htmlcodes $iname]}if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG iname == $iname" }## full descset fhtml {}set beg 0foreach i $html {set pos [string first "<display_html>" $i]if {$pos>-1} {set fhtml [string range $i $pos end]set beg 1continue}set pos1 [string first "</display_html>" $i]if {$pos1>-1} {append fhtml " "append fhtml [string range $i 0 $pos1]break}append fhtml " "append fhtml $i}set pos [expr [string first > $fhtml] + 1]set pos1 [expr [string last < $fhtml] - 1]set popis [string range $fhtml $pos $pos1]set phtml [replacevar $popis " " " "]set phtml [replacevar $phtml "<" "<"]set phtml [replacevar $phtml ">" ">"]set phtml [replacevar $phtml """ "\""]set phtml [replacevar $phtml " <" "<"]set phtml [replacevar $phtml "> " ">"]set phtml [replacevar $phtml "<br />" "<br/>"]set pos [expr [string first "<span class=\"akznotice\">" $phtml] -1]set dhtml [string range $phtml 0 $pos]set pos [expr [string first $iname $dhtml] + [string length $iname]]set icname [string range $dhtml 0 $pos]set pos1 [expr [string last "\"" $icname] - 5]set icname [string range $icname 0 $pos1]set pos1 [expr [string last "\"" $icname] + 1]set icname [string range $icname $pos1 end]set dhtml [string range $dhtml $pos end]set pos [expr [string first "<br/>" $dhtml] + 5]set dhtml [string range $dhtml $pos end]set dhtml [htmlcodes $dhtml]set out {}set len [expr [string length $dhtml]]while {$len>0} {set pos [expr [string first < $dhtml]]if {$pos == -1} {lappend out $dhtmlbreak;}if {$pos == 0} {set pos [expr [string first > $dhtml] + 1]set dhtml [string range $dhtml $pos end]continue}set pos1 [expr [string first < $dhtml] - 1]set line [string range $dhtml 0 $pos1]lappend out $lineset dhtml [string range $dhtml $pos end]set len [string length $dhtml]}if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG out == $out" }putserv "$toput :Item: $iname Color: $icname "foreach line $out {putserv "$toput :$line" }putserv "$toput :Item Link: http://wow.allakhazam.com/db/item.html?source=live;witem=$iid"}putlog "alla info - v$ALLAversion loaded ..."]
