Code:
########################################################################## Chilla's IMDb info script# ### Notes for this version: Thanks to 2dee for showing me his# imdb site update fix. Thanks to TotaLGaZ for his help.# Thanks to Chilla and FAN for their work on this brilliant script.# Would like to make the options selectable from the partyline and also# add a disable trigger in channel(both specific and global) option. Who # knows might get round to it one day but if anyone else wants to then it # will save me a job.#### Version: 20030014 - works with updated imdb site, new option of public# or notice response to chan triggers.# - GQsm http://forum.egghelp.org### Version: 20020604 - fixed misc http/html stuff, added msg command - FAN### Version: 20011031 - - Chilla########################################################################## base imdb url, to which you can append "/Title?######" or whateverset imdburl "http://www.imdb.com"# the imdb search scriptset imdbsearchurl "http://imdb.com:80/Tsearch?"# 1 for each of these means that the respective values will ALWAYS show# and that command options for these will be disregarded# leave zero to keep them an option at the command lineset show_rating 1 set show_genre 1set show_tagline 1set show_outline 0set show_cast 0# for a channel !imdb request# set to 1 = title ,rating, genre and tagline(if selected) will be displayed# publicly to the channel# set to 0 = all results will be sent as private noticeset pub_or_not 0########################################################################## DO NOT MODIFY BELOW HERE UNLESS YOU KNOW WHAT YOU ARE DOING!#########################################################################set DEBUG 0set imdbVERSION 20030014set b_agent "MSIE 6.0" # If you are getting http error messages, try uncommentign this next line:#package forget httppackage require http 2.3bind pub -|- !imdb imdb_handlerbind msg -|- !imdb imdb_msghandlerproc imdb_handler { nick uhost hand chan args } {global DEBUG imdbVERSION imdburl imdbsearchurl b_agentglobal show_rating show_genre show_tagline show_outline show_castglobal pub_or_not # How do you want your results ? chan or privif {$pub_or_not == 1 } {set toput "PRIVMSG $chan"} else {set toput "NOTICE $nick"} # set to defaultsset o_rating $show_rating set o_genre $show_genre set o_tagline $show_taglineset o_outline $show_outline set o_cast $show_castset checkargs [string trim $args " \n"]# if no arguments passed, show helpif {[string compare $checkargs "{}"] == 0} {putserv "NOTICE $nick :IMDb info script v$imdbVERSION - 7General Help"putserv "NOTICE $nick :14<===========================================>"putserv "NOTICE $nick :7!imdb \[options\] <imdb title>"putserv "NOTICE $nick :7options: -r ratings" putserv "NOTICE $nick :7 -g genre" putserv "NOTICE $nick :7 -t tagline" putserv "NOTICE $nick :7 -o plot outline" putserv "NOTICE $nick :7 -c cast" putserv "NOTICE $nick :7Example: !imdb -o -c Beautiful Mind" return} # Look for command line options and enable each, as desiredset fargs ""set imdbtitle ""foreach piece [split $args " "] {set piece[string trim $piece "{}"]if {[string compare $piece "-r"] == 0 } {set o_rating 1} elseif {[string compare $piece "-g"] == 0 } {set o_genre 1} elseif {[string compare $piece "-t"] == 0 } {set o_tagline 1} elseif {[string compare $piece "-o"] == 0 } {set o_outline 1} elseif {[string compare $piece "-c"] == 0 } {set o_cast 1} else {set fargs "$fargs $piece"}} #set fargs [string trimleft $args]if {$DEBUG == 1} {putserv "NOTICE $nick :I am doing a search for \"$fargs\" on imdb.com"}set query $fargs# do initial searchset searchString [ ::http::formatQuery $query ] set searchString [string trimleft $searchString "+"] if {$DEBUG == 1} { putserv "NOTICE $nick :searchString: \"$searchString\""} set page [::http::config -useragent $b_agent] set page [::http::geturl ${imdbsearchurl}title=${searchString}&sort=smart&tv=off]set redirect 0set newurl ""set lines [split [::http::data $page] \n]set numLines [llength $lines]for {set i 0} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]#if redirect necessary, find first link and redirect #putserv "NOTICE $nick : $line"if {[string compare $line "<TITLE>IMDb title search</TITLE>"] == 0} {set redirect 1 #putserv "NOTICE $nick : redirect 1"for {} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]if {[string compare -length 8 $line "<OL><LI>"] == 0} {regexp HREF=\"\[^\"\]*\" $line titleset title [string range $title 6 [expr [string length $title] - 2]] append newurl $imdburl $title# get the page redirected toset page [::http::config -useragent $b_agent]set page [::http::geturl ${newurl}]set lines [split [::http::data $page] \n]}}set i $numLines}}# if no redirect happened, then get first page on matchif {$redirect == 0} {upvar 0 $page oldpageregexp Location\ \[^\ \]*\ Connection $oldpage(meta) location #putserv "NOTICE $nick : $oldpage(meta)" set newurl [string range $location 9 [expr [string length $location] - 12]]set page [::http::config -useragent $b_agent]set page [::http::geturl ${newurl}]set lines [split [::http::data $page] \n]}# for bogus searchesif {[string length $newurl] == 0} {putserv "NOTICE $nick :No no no! I can't find that!"return}set numLines [llength $lines]# scan for wanted data from the pagefor {set i 0} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]if {[string compare -length 7 $line "<title>"] == 0} {# the movie title, year, urlset title [string range $line 7 [expr [string length $line] - 9]]set title [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $title]putserv "$toput :$title \( $newurl \)"} elseif {($o_tagline == 1) && ([regexp \[.\]*Tagline:\[.\]* $line] > 0)} {# the taglineregsub -all \<\[^\>\]*\> $line "" taglineregsub -all \\\(\[^\\\)\]*\\\) $tagline "" tagline regsub -all \[\ \t\]+ $tagline " " tagline regsub -all \ \; $tagline " " taglineset tagline [string trim $tagline " "]set tagline [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $tagline]putserv "$toput :$tagline"} elseif {($o_outline == 1) && ([regexp \[.\]*Outline:\[.\]* $line] > 0)} {# the outlineregsub -all \<\[^\>\]*\> $line "" outlineregsub -all \\\(\[^\\\)\]*\\\) $outline "" outline regsub -all \[\ \t\]+ $outline " " outline regsub -all \ \; $outline " " outlineset outline [string trim $outline " "]set outline [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $outline]putserv "NOTICE $nick :$outline"} elseif {($o_genre == 1) && ([regexp \[.\]*Genres\[.\]* $line] > 0)} {# the genreregsub -all \<\[^\>\]*\> $line "" genreregsub -all \\\(\[^\\\)\]*\\\) $genre "" genreregsub -all \[\ \t\]+ $genre " " genreset genre [string trim $genre " "]set genre "Genre: $genre"putserv "$toput :$genre"} elseif {($o_rating == 1) && ([regexp \[.\]*User\ Rating\[.\]* $line] > 0)} { # the user rating set j [expr $i + 3] set line2 [lindex $lines $j] set j [expr $i + 4] set line3 [lindex $lines $j] regsub -all \<\[^\>\]*\> $line3 "" rating regsub -all \ \; $rating " " rating regsub -all \[\ \t\]+ $rating " " rating set rating [string trim $rating " "] set goldstars [regexp -all goldstar $line2] set greystars [expr 10 - $goldstars] # generating the rating bar set marker "*" set rating_bar "11\[7" for {set i2 0} {$i2 < $goldstars} {incr i2 1} { set rating_bar "$rating_bar$marker" } set marker "-" set rating_bar "$rating_bar14" for {set i3 0} {$i3 < $greystars} {incr i3 1} { set rating_bar "$rating_bar$marker" } set rating_bar "$rating_bar11\]" putserv "$toput :$rating $rating_bar"} elseif {($o_cast == 1) && ([regexp \[.\]*\\\.\\\.\\\.\\\.\[.\]* $line] > 0)} {if {[regexp Name $line] > 0} {regsub -all \<\[^\>\]*\> $line "" castset cast [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $cast] set checkargs [string trim $args " \n"]putserv "NOTICE $nick :$cast"}}}}proc imdb_msghandler { nick uhost hand args } {global DEBUG imdbVERSION imdburl imdbsearchurl b_agentglobal show_rating show_genre show_tagline show_outline show_cast # set to defaultsset o_rating $show_rating set o_genre $show_genre set o_tagline $show_taglineset o_outline $show_outline set o_cast $show_castset checkargs [string trim $args " \n"]# if no arguments passed, show helpif {[string compare $checkargs "{}"] == 0} {putserv "PRIVMSG $nick :IMDb info script v$imdbVERSION - 7General Help"putserv "PRIVMSG $nick :14<===========================================>"putserv "PRIVMSG $nick :7!imdb \[options\] <imdb title>"putserv "PRIVMSG $nick :7options: -r ratings" putserv "PRIVMSG $nick :7 -g genre" putserv "PRIVMSG $nick :7 -t tagline" putserv "PRIVMSG $nick :7 -o plot outline" putserv "PRIVMSG $nick :7 -c cast" putserv "PRIVMSG $nick :7Example: !imdb -o -c Beautiful Mind" return} # Look for command line options and enable each, as desiredset fargs ""set imdbtitle ""foreach piece [split $args " "] {set piece[string trim $piece "{}"]if {[string compare $piece "-r"] == 0 } {set o_rating 1} elseif {[string compare $piece "-g"] == 0 } {set o_genre 1} elseif {[string compare $piece "-t"] == 0 } {set o_tagline 1} elseif {[string compare $piece "-o"] == 0 } {set o_outline 1} elseif {[string compare $piece "-c"] == 0 } {set o_cast 1} else {set fargs "$fargs $piece"}} #set fargs [string trimleft $args]if {$DEBUG == 1} {putserv "PRIVMSG $nick :I am doing a search for \"$fargs\" on imdb.com"}set query $fargs# do initial searchset searchString [ ::http::formatQuery $query ] set searchString [string trimleft $searchString "+"] if {$DEBUG == 1} { putserv "PRIVMSG $nick :searchString: \"$searchString\""} set page [::http::config -useragent $b_agent] set page [::http::geturl ${imdbsearchurl}title=${searchString}&sort=smart&tv=off]set redirect 0set newurl ""set lines [split [::http::data $page] \n]set numLines [llength $lines]for {set i 0} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]#if redirect necessary, find first link and redirect #putserv "PRIVMSG $nick : $line"if {[string compare $line "<TITLE>IMDb title search</TITLE>"] == 0} {set redirect 1 #putserv "PRIVMSG $nick : redirect 1"for {} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]if {[string compare -length 8 $line "<OL><LI>"] == 0} {regexp HREF=\"\[^\"\]*\" $line titleset title [string range $title 6 [expr [string length $title] - 2]] append newurl $imdburl $title# get the page redirected toset page [::http::config -useragent $b_agent]set page [::http::geturl ${newurl}]set lines [split [::http::data $page] \n]}}set i $numLines}}# if no redirect happened, then get first page on matchif {$redirect == 0} {upvar 0 $page oldpageregexp Location\ \[^\ \]*\ Connection $oldpage(meta) location #putserv "PRIVMSG $nick : $oldpage(meta)" set newurl [string range $location 9 [expr [string length $location] - 12]]set page [::http::config -useragent $b_agent]set page [::http::geturl ${newurl}]set lines [split [::http::data $page] \n]}# for bogus searchesif {[string length $newurl] == 0} {putserv "PRIVMSG $nick :No no no! I can't find that!"return}set numLines [llength $lines]# scan for wanted data from the pagefor {set i 0} {$i < $numLines} {incr i 1} {set line [lindex $lines $i]if {[string compare -length 7 $line "<title>"] == 0} {# the movie title, year, urlset title [string range $line 7 [expr [string length $line] - 9]]set title [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $title]putserv "PRIVMSG $nick :$title \( $newurl \)"} elseif {($o_tagline == 1) && ([regexp \[.\]*Tagline:\[.\]* $line] > 0)} {# the taglineregsub -all \<\[^\>\]*\> $line "" taglineregsub -all \\\(\[^\\\)\]*\\\) $tagline "" tagline regsub -all \[\ \t\]+ $tagline " " tagline regsub -all \ \; $tagline " " taglineset tagline [string trim $tagline " "]set tagline [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $tagline]putserv "PRIVMSG $nick :$tagline"} elseif {($o_outline == 1) && ([regexp \[.\]*Outline:\[.\]* $line] > 0)} {# the outlineregsub -all \<\[^\>\]*\> $line "" outlineregsub -all \\\(\[^\\\)\]*\\\) $outline "" outline regsub -all \[\ \t\]+ $outline " " outline regsub -all \ \; $outline " " outlineset outline [string trim $outline " "]set outline [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $outline]putserv "PRIVMSG $nick :$outline"} elseif {($o_genre == 1) && ([regexp \[.\]*Genres\[.\]* $line] > 0)} {# the genreregsub -all \<\[^\>\]*\> $line "" genreregsub -all \\\(\[^\\\)\]*\\\) $genre "" genreregsub -all \[\ \t\]+ $genre " " genreset genre [string trim $genre " "]set genre "Genre: $genre"putserv "PRIVMSG $nick :$genre"} elseif {($o_rating == 1) && ([regexp \[.\]*User\ Rating\[.\]* $line] > 0)} { # the user rating set j [expr $i + 3] set line2 [lindex $lines $j] set j [expr $i + 4] set line3 [lindex $lines $j] regsub -all \<\[^\>\]*\> $line3 "" rating regsub -all \ \; $rating " " rating regsub -all \[\ \t\]+ $rating " " rating set rating [string trim $rating " "] set goldstars [regexp -all goldstar $line2] set greystars [expr 10 - $goldstars] # generating the rating bar set marker "*" set rating_bar "11\[7" for {set i2 0} {$i2 < $goldstars} {incr i2 1} { set rating_bar "$rating_bar$marker" } set marker "-" set rating_bar "$rating_bar14" for {set i3 0} {$i3 < $greystars} {incr i3 1} { set rating_bar "$rating_bar$marker" } set rating_bar "$rating_bar11\]" putserv "PRIVMSG $nick :$rating $rating_bar"} elseif {($o_cast == 1) && ([regexp \[.\]*\\\.\\\.\\\.\\\.\[.\]* $line] > 0)} {if {[regexp Name $line] > 0} {regsub -all \<\[^\>\]*\> $line "" castset cast [string map {ß ß ä ä ö ö ü ü Ä Ä Ö Ö Ü Ü è è é é ê ê á á à à } $cast] set checkargs [string trim $args " \n"]putserv "PRIVMSG $nick :$cast"}}}}putlog " -=\[ chilla's IMDB info version $imdbVERSION loaded \]=- lastupdate 22-08-02 "
Statistics: Posted by Guest — Sat Aug 30, 2003 9:59 am
]]>
