diff options
Diffstat (limited to 'scripts/perl/translate.pl')
| -rw-r--r-- | scripts/perl/translate.pl | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/scripts/perl/translate.pl b/scripts/perl/translate.pl deleted file mode 100644 index 306d3816a..000000000 --- a/scripts/perl/translate.pl +++ /dev/null @@ -1,131 +0,0 @@ -# -# 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; -} |