markov: refactor triplet learning

[user/henk/code/ruby/rbot.git] / data / rbot / plugins / fish.rb

diff --git a/data/rbot/plugins/fish.rb b/data/rbot/plugins/fish.rb
index 3bafd03ef44d90f64d4787f41794cad31a6380e9..2394fa098f7186a64917924e7d7cb2bd2db80610 100644 (file)
--- a/data/rbot/plugins/fish.rb
+++ b/data/rbot/plugins/fish.rb
@@ -1,5 +1,6 @@
 class BabelPlugin < Plugin
   LANGS = %w{en fr de it pt es nl ru zh zt el ja ko}
+  BASEURL = 'http://babelfish.yahoo.com'
 
   Config.register Config::EnumValue.new('translate.default_from',
     :values => LANGS, :default => 'en',
@@ -24,7 +25,7 @@ class BabelPlugin < Plugin
     trans_from = params[:fromlang] ? params[:fromlang] : @bot.config['translate.default_from']
     trans_to = params[:tolang] ? params[:tolang] : @bot.config['translate.default_to']
     trans_text = params[:phrase].to_s
-    
+
     lang_match = langs.join("|")
     unless(trans_from =~ /^(#{lang_match})$/ && trans_to =~ /^(#{lang_match})$/)
       m.reply "invalid language: valid languagess are: #{langs.join(' ')}"
@@ -35,10 +36,13 @@ class BabelPlugin < Plugin
     trans_pair = "#{trans_from}_#{trans_to}"
 
     if (trans_text =~ /^http:\/\//) && (URI.parse(trans_text) rescue nil)
-      url = 'http://babelfish.altavista.com/babelfish/trurl_pagecontent' +
-        "?lp=#{trans_pair}&url=#{data_text}"
-
-      return Utils.get_first_pars([url], 1, :message => m)
+      m.reply 'webpage translation is not currently supported'
+      return
+      # TODO FIXME
+      # url = BASEURL+'/translate_url' +
+      #   "?lp=#{trans_pair}&trurl=#{data_text}"
+      #
+      # return Utils.get_first_pars([url], 1, :message => m)
     end
 
     data = "lp=#{trans_pair}&doit=done&intl=1&tt=urltext&urltext=#{data_text}"
@@ -53,10 +57,10 @@ class BabelPlugin < Plugin
       "content-type" => "application/x-www-form-urlencoded; charset=utf-8"
     }
 
-    query = "/babelfish/tr"
+    query = "/translate_txt"
 
     begin
-      body = @bot.httputil.get('http://babelfish.altavista.com'+query,
+      body = @bot.httputil.get(BASEURL+query,
                                :method => :post,
                                :body => data,
                                :headers => headers)
@@ -68,8 +72,8 @@ class BabelPlugin < Plugin
     case body
     when nil
       m.reply "couldn't talk to babelfish :("
-    when /^\s+<td bgcolor=white class=s><div style=padding:10px;>(.*)<\/div><\/td>\s*<\/tr>/m
-      answer = $1.gsub(/\s*[\r\n]+\s*/,' ')
+    when /^\s*<div id="result"><div style="[^"]*">(.*?)<\/div><\/div>\s*$/
+      answer = $1
       # cache the answer
       if(answer.length > 0)
         @registry["#{trans_pair}/#{data_text}"] = answer