WeeChat scripts

#
# Copyright (c) 2006-2007 by FlashCode <flashcode@flashtux.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#

#
# Translate words and display result in infobar, local buffer or channel
#
# History:
# 2007-08-10, FlashCode <flashcode@flashtux.org>:
#     version 0.2: upgraded licence to GPL 3
# 2006-07-03, FlashCode <flashcode@flashtux.org>:
#     version 0.1: initial release
#

use strict;

my $version = "0.2";

# default values in setup file (~/.weechat/plugins.rc)
my $default_output_infobar = "on";
my $default_timeout = "2";

# script internal settings
my $languages = "de|el|en|es|fr|it|ja|ko|nl|pt|ru|zh|zt";

# init script
weechat::register("translate", $version, "", "Translation script");
weechat::set_plugin_config("output_infobar", $default_output_infobar) if (weechat::get_plugin_config("output_infobar") eq "");
weechat::set_plugin_config("timeout", $default_timeout) if (weechat::get_plugin_config("timeout") eq "");

# add command handlers for all languages
weechat::add_command_handler("translate", "translate", "translate text to other language",
                             "lang1 lang2 text [-o]",
                             "lang1: base language\n"
                             ."lang2: target language\n"
                             ." text: text to translate\n"
                             ."   -o: result is written on channel (visible by all)",
                             $languages." ".$languages);

# translate text with babelfish (altavista)
sub babelfish
{
    my $timeout = weechat::get_plugin_config("timeout");
    $timeout = $default_timeout if ($timeout eq "");
    
    if (`wget -q --timeout=$timeout --user-agent "Mozilla" --output-document=- "http://babelfish.altavista.com/babelfish/tr?lp=$_[0]_$_[1]&urltext=$_[2]"` =~ /.*<td bgcolor=white class=s><div style=padding:10px;>(.*)<\/div><\/td>/)
    {
        return $1;
    }
    return "";
}

# translate output
sub translate_output
{
    if ($_[1] == 1)
    {
        if (substr($_[0],0,1) eq "/")
        {
            weechat::command("/".$_[0], "", "");
        }
        else
        {
            weechat::command($_[0], "", "");
        }
    }
    else
    {
        my $output_infobar = weechat::get_plugin_config("output_infobar");
        $output_infobar = $default_output_infobar if ($output_infobar eq "");
        if ($output_infobar eq "on")
        {
            weechat::print_infobar(5, $_[0]);
        }
        else
        {
            weechat::print($_[0], "", "");
        }
    }
}

# /translate command
sub translate
{
    my $server = shift;
    my $args = shift;
    
    if ($args =~ /([a-zA-Z][a-zA-Z]) ([a-zA-Z][a-zA-Z]) (.*)/)
    {
        my $lang1 = $1;
        my $lang2 = $2;
        my $text = $3;
        
        # output on channel?
        my $output_chan = 0;
        if ($text =~ /(.*) -[oO]$/)
        {
            $output_chan = 1;
            $text = $1;
        }
        
        my $result = babelfish($lang1, $lang2, $text);
        if ($result eq "")
        {
            translate_output("Error: unable to translate (bad language or timeout)", 0);
        }
        else
        {
            translate_output($result, $output_chan);
        }
    }
    else
    {
        translate_output("Error: bad arguments", 0);
    }
    
    return weechat::PLUGIN_RC_OK;
}