5 class BabelPlugin < Plugin
6 LANGS = %w{en fr de it pt es nl ru zh zt el ja ko}
8 BotConfig.register BotConfigEnumValue.new('translate.default_from',
9 :values => LANGS, :default => 'en',
10 :desc => "Default language to translate from")
11 BotConfig.register BotConfigEnumValue.new('translate.default_to',
12 :values => LANGS, :default => 'en',
13 :desc => "Default language to translate to")
15 def help(plugin, topic="")
16 from = @bot.config['translate.default_from']
17 to = @bot.config['translate.default_to']
18 "translate to <lang> <string> => translate from #{from} to <lang>, translate from <lang> <string> => translate to #{to} from <lang>, translate <fromlang> <tolang> <string> => translate from <fromlang> to <tolang>. If <string> is an http url, translates the referenced webpage and returns the 1st content paragraph. Languages: #{LANGS.join(', ')}"
21 def translate(m, params)
23 trans_from = params[:fromlang] ? params[:fromlang] : @bot.config['translate.default_from']
24 trans_to = params[:tolang] ? params[:tolang] : @bot.config['translate.default_to']
25 trans_text = params[:phrase].to_s
27 lang_match = langs.join("|")
28 unless(trans_from =~ /^(#{lang_match})$/ && trans_to =~ /^(#{lang_match})$/)
29 m.reply "invalid language: valid languagess are: #{langs.join(' ')}"
33 data_text = URI.escape trans_text
34 trans_pair = "#{trans_from}_#{trans_to}"
36 if (trans_text =~ /^http:\/\//) && (URI.parse(trans_text) rescue nil)
37 url = 'http://babelfish.altavista.com/babelfish/trurl_pagecontent' +
38 "?lp=#{trans_pair}&url=#{data_text}"
40 return Utils.get_first_pars([url], 1, :message => m)
43 data = "lp=#{trans_pair}&doit=done&intl=1&tt=urltext&urltext=#{data_text}"
45 # check cache for previous lookups
46 if @registry.has_key?("#{trans_pair}/#{data_text}")
47 m.reply @registry["#{trans_pair}/#{data_text}"]
52 "content-type" => "application/x-www-form-urlencoded; charset=utf-8"
55 query = "/babelfish/tr"
58 resp = @bot.httputil.get_response('http://babelfish.altavista.com'+query,
63 m.reply "http error: #{e.message}"
67 if (resp.code == "200")
69 resp.body.each_line { |l| lines.push l }
72 debug "babelfish response: #{l}"
75 when /^\s+<td bgcolor=white class=s><div style=padding:10px;>(.*)<\/div><\/td>\s*<\/tr>/m
76 answer = $1.gsub(/\s*[\r\n]+\s*/,' ')
79 @registry["#{trans_pair}/#{data_text}"] = answer
83 when /^\s+<option value="#{trans_pair}"\s+SELECTED>/
84 m.reply "couldn't parse babelfish response html :("
86 m.reply "babelfish doesn't support translation from #{trans_from} to #{trans_to}"
89 m.reply "couldn't talk to babelfish :("
93 plugin = BabelPlugin.new
94 plugin.map 'translate to :tolang *phrase'
95 plugin.map 'translate from :fromlang *phrase'
96 plugin.map 'translate :fromlang :tolang *phrase'