+
+ 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}"
+ info.last << " : http://www.imdb.com#{sr}" unless opts[:nourl]
+
+ return info if opts[:name_only]
+
+ if opts[:movies_by_year]
+ filmoyear = @bot.httputil.get(IMDB + sr + "filmoyear")
+ if filmoyear
+ info << filmoyear.scan(/#{TITLE_MATCH} \((\d\d\d\d)\)[^\[\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, years_txt_org, role_req)
+ years_txt = years_txt_org.dup
+ years_txt.sub!(/^'/,'')
+ years_txt = "9#{years_txt}" if years_txt.match(/^\d\ds?$/)
+ years_txt = "1#{years_txt}" if years_txt.match(/^\d\d\ds?$/)
+
+ years = []
+ case years_txt
+ when /^\d\d\d\d$/
+ years << years_txt
+ when /^(\d\d\d\d)s$/
+ base = $1.to_i
+ base.upto(base+9) { |year|
+ years << year.to_s
+ }
+ end
+
+ urls.map { |url|
+ info = info_name(url, :movies_by_year => true)
+
+ 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, year, pre_roles|
+ next unless years.include?(year)
+ title = fix_article(pre_title.ircify_html)
+ if title[0] == ?" and not @bot.config['imdb.tv_series_in_movies']
+ next
+ end
+ title << " (#{year})" unless years.length == 1
+ role_array = []
+ pre_roles.strip.scan(/\[([^\]]+)\]((?:\s+\([^\[]+\))+)?/) { |txt, comm|
+ role = nil
+ extra = nil
+ if txt.match(/^(.*)\s+\.\.\.\.\s+(.*)$/)
+ role = $1
+ extra = "(#{$2.ircify_html})"
+ else
+ role = txt
+ end
+ next if role_req and not role.match(/^#{role_req}/i)
+ if comm
+ extra ||= ""
+ extra += comm.ircify_html if comm
+ end
+ role_array << [role, extra]
+ }
+ next if role_req and role_array.empty?
+
+ roles = role_array.map { |ar|
+ if role_req
+ ar[1] # works for us both if it's nil and if it's something
+ else
+ ar.compact.join(" ")
+ end
+ }.compact.join(', ')
+ roles = nil if roles.empty?
+ movies << [roles, title].compact.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
+
+