+
+ def info_name(sr, opts={})
+ resp = nil
+ begin
+ resp = @bot.httputil.get_response(IMDB + sr, :max_redir => -1)
+ rescue Exception => e
+ error e.message
+ warning e.backtrace.join("\n")
+ return nil
+ end
+
+ info = []
+
+ if resp.code == "200"
+ m = /<title>([^<]*)<\/title>/.match(resp.body)
+ return nil if !m
+ name = m[1]
+
+ info << "#{name} : http://us.imdb.com#{sr}"
+
+ return info if opts[:name_only]
+
+ if year = opts[:movies_in_year]
+ filmoyear = @bot.httputil.get(IMDB + sr + "filmoyear")
+ if filmoyear
+ info << filmoyear.scan(/#{TITLE_MATCH} \(#{year}\)[^\[\n]*((?:\s+\[[^\]]+\](?:\s+\([^\[<]+\))*)+)\s+</)
+ end
+ return info
+ end
+
+ birth = nil
+ data = grab_info("Date of Birth", resp.body)
+ if data
+ birth = "Birth: #{data.ircify_html.gsub(/\s+more$/,'')}"
+ end
+
+ death = nil
+ data = grab_info("Date of Death", resp.body)
+ if data
+ death = "Death: #{data.ircify_html.gsub(/\s+more$/,'')}"
+ end
+
+ info << [birth, death].compact.join('. ') if birth or death
+
+ movies = {}
+
+ filmorate = nil
+ begin
+ filmorate = @bot.httputil.get(IMDB + sr + "filmorate")
+ rescue Exception
+ end
+
+ if filmorate
+ filmorate.scan(/<div class="filmo">.*?<a href="\/title.*?<\/div>/m) { |str|
+ what = str.match(/<a name="[^"]+">([^<]+)<\/a>/)[1] rescue nil
+ next unless what
+ movies[what] = str.scan(TITLE_MATCH)[0..2].map { |url, tit|
+ fix_article(tit.ircify_html)
+ }
+ }
+ end
+
+ preferred = ['Actor', 'Director']
+ if resp.body.match(/Jump to filmography as: (.*?)<\/div>/)
+ txt = $1
+ preferred = txt.scan(/<a[^>]+>([^<]+)<\/a>/)[0..2].map { |pref|
+ pref.first
+ }
+ end
+
+ unless movies.empty?
+ all_keys = movies.keys.sort
+ debug all_keys.inspect
+ keys = []
+ preferred.each { |key|
+ keys << key if all_keys.include? key
+ }
+ keys = all_keys if keys.empty?
+ ar = []
+ keys.each { |key|
+ ar << key.dup
+ ar.last << ": " + movies[key].join('; ')
+ }
+ info << ar.join('. ')
+ end
+ return info
+
+ end
+ return nil
+ end
+
+ def year_movies(urls, year)
+ urls.map { |url|
+ info = info_name(url, :movies_in_year => year)
+
+ debug info.inspect
+
+ name_url = info.first
+ data = info[1]
+
+ movies = []
+ # Sort by pre-title putting movies before TV series
+ data.sort { |a, b|
+ aclip = a[1][0,5]
+ bclip = b[1][0,5]
+ quot = '"'
+ (aclip == quot ? 1 : -1) <=> (bclip == quot ? 1 : -1)
+ }.each { |url, pre_title, pre_roles|
+ title = fix_article(pre_title.ircify_html)
+ if title[0] == ?" and not @bot.config['imdb.tv_series_in_movies']
+ next
+ end
+ role_array = []
+ pre_roles.strip.scan(/\[([^\]]+)\]((?:\s+\([^\[]+\))+)?/) { |txt, comm|
+ if txt.match(/^(.*)\s+\.\.\.\.\s+(.*)$/)
+ role_array << "#{$1} (#{$2})"
+ else
+ role_array << txt
+ end
+ role_array.last << " " + comm.ircify_html if comm
+ }
+
+ roles = role_array.join(', ')
+ movies << [roles, title].join(": ")
+ }
+
+ if movies.empty?
+ [name_url, nil]
+ else
+ [name_url, movies.join(" | ")]
+ end
+ }
+ end
+
+ def name_in_movie(name_urls, movie_urls)
+ info = []
+ movie_urls.each { |movie|
+ title_info = info_title(movie, :title_only => true)
+ valid = []
+
+ data = @bot.httputil.get(IMDB + movie + "fullcredits")
+ data.scan(CREDIT_NAME_MATCH).each { |url, name, role|
+ valid << [url, name.ircify_html, role.ircify_html] if name_urls.include?(url)
+ }
+ valid.each { |url, name, role|
+ info << "%s : %s was %s in %s" % [name, IMDB + url, role, title_info]
+ }
+ }
+ return info
+ end
+
+