babelfishtranslator.tcl

This script allow you to translate words or sentences from/to various languages by typing "!translate ".
Postat de	Copyright	Categorie	Review user	Vizualizari	Data
btc	MenzAgitat	text-input	Cod netestat	485	2023-12-24 23:10:57
 ###############################################
#                                               #
#   B A B E L   F I S H   T R A N S L A T O R   #
#      v1.1en (13/10/2007)   by MenzAgitat      #
#                                               #
#          http://www.boulets-roxx.com          #
#        IRC:  irc.teepi.net    #boulets        #
#              irc.epiknet.org  #boulets        #
#                                               #
#        You can download my scripts at         #
#            http://www.egghelp.org             #
#                                               #
 ###############################################
# The Tinyurl procedure has been written by
# Tomekk (tomekk@oswiecim.eu.org), thanks to him.

#
# Description:
#   This script allow you to translate words or sentences
#   from/to various languages by typing "!translate <languages> <word or sentence>".
#
# Changelog:
#   1.0:  First version
#   1.01: Fixed the available languages list that was wrong (thanks to raktivist).
#          (only for english version, the french one do not have this problem)
#   1.1:  - It is now possible to do a request in private msg with the bot like this :
#            /msg botname !translate en-fr This is a test
#         - Integration in a namespace

# LICENCE:
#   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 2 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, write to the Free Software
#   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA


namespace eval bftrans {
	###########################
	#        SETTINGS         #
	###########################

	##### Public command
	set translatorcmd "!translate"

	##### Authorizations for the public command
	set translatoraut "-|-"

	##### Allow private requests ? (0 = no, 1 = yes)
	set translatorprivate "1"

	##### Private command
	set translatorprivcmd "!translate"

	##### Authorizations for the private command
	set translatorprivaut "-|-"

	##### Channels on which the translator will be active.
	##### Add as many as you want or leave just one.
	set translatorchans "#chan1 #chan2 #chan3"


################################################################
#                                                              #
# DO NOT MODIFY ANYTHING BELOW THIS BOX IF YOU DON'T KNOW TCL  #
#                                                              #
################################################################

package require http
	variable translatorversion "1.1en"
	variable DEBUGMODE 0
	variable useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
	variable translatorlanguages "en-fr en-de en-nl en-it en-pt en-es fr-en de-en nl-en it-en pt-en es-en"
	variable private 0
	bind pub $translatoraut $translatorcmd bftrans::translate
	bind msg $translatorprivaut $translatorprivcmd bftrans::translate_priv
}

##### Main procedure
proc bftrans::translate {nick host hand chan arg}  {
	variable private
	##### Do we have permission to use this command on this chan ?
	if {([channel_check_translator $chan] == 0) && ($chan ne "#****")} {return}
	if { $private == 1 } {set chan $nick}
	set arg [string trim $arg]
  if {$arg == ""} {
  	bftrans::translator_syntax $chan
		if $private {set private 0}
		return
  } elseif {$arg == "langlist"} {
		putserv "PRIVMSG $nick :\037Available languages:\037"
    putserv "PRIVMSG $nick :\002fr-en\002 è¦§ French/English"
    putserv "PRIVMSG $nick :\002de-en\002 è¦§ German/English"
    putserv "PRIVMSG $nick :\002nl-en\002 è¦§ Dutch/English"
    putserv "PRIVMSG $nick :\002it-en\002 è¦§ Italian/English"
    putserv "PRIVMSG $nick :\002pt-en\002 è¦§ Portuguese/English"
    putserv "PRIVMSG $nick :\002es-en\002 è¦§ Spanish/English"
    putserv "PRIVMSG $nick :\002en-fr\002 è¦§ English/French"
    putserv "PRIVMSG $nick :\002en-de\002 è¦§ English/German"
    putserv "PRIVMSG $nick :\002en-nl\002 è¦§ English/Dutch"
    putserv "PRIVMSG $nick :\002en-it\002 è¦§ English/Italian"
    putserv "PRIVMSG $nick :\002en-pt\002 è¦§ English/Portuguese"
    putserv "PRIVMSG $nick :\002en-es\002 è¦§ English/Spanish"
		if $private {set private 0}
		return
	} else {
		set url1 "http://babelfish.altavista.com/babelfish/tr?doit=done&intl=1&lp="
  	set url2 "&urltext="
		set res ""
  	# putcmdlog "$nick@$chan translate $arg"
		set langtype [string range $arg 0 4]
		if $bftrans::DEBUGMODE {putlog "\00304\[BABEL DEBUG\]\003 langtype = $langtype"}

##### Are the requested languages	in the allowed languages list ?
		set lang_permission_result [bftrans::language_check_translator $langtype]
		if $bftrans::DEBUGMODE {putlog "\00304\[BABEL DEBUG\]\003 lang_permission_result = $lang_permission_result"}
		if {$lang_permission_result == 0} {
			puthelp "privmsg $chan :\00314This is not a valid language."
			bftrans::translator_syntax $chan
			if $private {set private 0}
#			return -code break
			return
		}
		set langtype [string map {- _} $langtype]
		set text [string range $arg 6 end]
		if $bftrans::DEBUGMODE {putlog "\00304\[BABEL DEBUG\]\003 text = $text"}
		if {$text == ""} {
			puthelp "privmsg $chan :\00314You must specify what you want to translate."
			bftrans::translator_syntax $chan
			if $private {set private 0}
#			return -code break
			return
		}
##### URL construction
		set text [string map {
      " "     "%20"		"\""    "%22"		"#"     "%23"		"$"     "%24"		"%"     "%25"
      "&"     "%26"   "'"     "%27"		"\("    "%28"   "\)"    "%29"   "*"     "%2A"
      "+"     "%2B"   ","     "%2C"   "."     "%2E"   "\/"    "%2F"   ":"     "%3A"
      ";"     "%3B"   "<"     "%3C"   "="     "%3D"   ">"     "%3E"   "?"     "%3F"
      "@"     "%40"   "\["    "%5B"   "\\"    "%5C"   "\]"    "%5D"		"^"			"%5E"
      "\{"    "%7B"   "|"     "%7C"   "\}"    "%7D"   "~"     "%7E"   "ï½¡"     "%A1"
      "ï½¢"			"%A2"		"ï½£"			"%A3"		"ï½¤"			"%A4"		"ï½¥"			"%A5"		"ï½¦"			"%A6"
			"ï½§"			"%A7"		"ï½¨"			"%A8"		"ï½©"			"%A9"		"ï½ª"			"%AA"		"ï½«"			"%AB"
			"ï½¬"			"%AC"		"ï½"			"%AD"		"ï½®"			"%AE"		"ï½¯"			"%AF"		"ï½°"			"%B0"
			"ï½±"			"%B1"		"ï½²"			"%B2"		"ï½³"			"%B3"		"ï½´"			"%B4"		"ï½µ"			"%B5"
			"ï½¶"			"%B6"		"ï½·"			"%B7"		"ï½¸"			"%B8"		"ï½¹"			"%B9"		"ï½º"			"%BA"
			"ï½»"			"%BB"		"ï½¼"			"%BC"		"ï½½"			"%BD"		"ï½¾"			"%BE"		"ï½¿"			"%BF"
			"ï¾€"			"%C0"		"ï¾"			"%C1"		"ï¾‚"			"%C2"		"ï¾ƒ"			"%C3"		"ï¾„"			"%C4"
			"ï¾…"			"%C5"		"ï¾†"			"%C6"		"ï¾‡"			"%C7"		"ï¾ˆ"			"%C8"		"ï¾‰"			"%C9"
			"ï¾Š"			"%CA"		"ï¾‹"			"%CB"		"ï¾Œ"			"%CC"		"ï¾"			"%CD"		"ï¾Ž"			"%CE"
			"ï¾"			"%CF"		"ï¾"			"%D0"		"ï¾‘"			"%D1"		"ï¾’"			"%D2"		"ï¾“"			"%D3"
			"ï¾”"			"%D4"		"ï¾•"			"%D5"		"ï¾–"			"%D6"		"ï¾—"			"%D7"		"ï¾˜"			"%D8"
			"ï¾™"			"%D9"		"ï¾š"			"%DA"		"ï¾›"			"%DB"		"ï¾œ"			"%DC"		"ï¾"			"%DD"
			"ï¾ž"			"%DE"		"ï¾Ÿ"			"%DF"		"ãƒ»			"%E0"		"ãƒ»			"%E1"		"ãƒ»			"%E2"
			"ãƒ»			"%E3"		"ãƒ»			"%E4"		"ãƒ»			"%E5"		"ãƒ»			"%E6"		"ãƒ»			"%E7"
			"ãƒ»			"%E8"		"ãƒ»			"%E9"		"ãƒ»			"%EA"		"ãƒ»			"%EB"		"ãƒ»			"%EC"
			"ãƒ»			"%ED"		"ãƒ»			"%EE"		"ãƒ»			"%EF"		"ãƒ»			"%F0"		"ãƒ»			"%F1"
			"ãƒ»			"%F2"		"ãƒ»			"%F3"		"ãƒ»			"%F4"		"ãƒ»			"%F5"		"ãƒ»			"%F6"
			"ãƒ»			"%F7"		"ãƒ»			"%F8"		"ãƒ»			"%F9"		"ãƒ»			"%FA"		"ãƒ»			"%FB"
			"ãƒ»			"%FC"		"ï£±"			"%FD"		"ï£²"			"%FE"		"ï£³"			"%FF"
		} $text]

  	set url "$url1$langtype$url2$text"
		if $bftrans::DEBUGMODE {putlog "\00304\[BABEL DEBUG\]\003 url = $url"}
  	::http::config -useragent $bftrans::useragent
		set token [::http::geturl "$url"]

		if {[::http::status $token] == "ok"} {
    	regexp "<td bgcolor=white class=s><div style=padding:10px;>(.+?)</div></td>" [::http::data $token] res
			if $bftrans::DEBUGMODE {putlog "\00304\[BABEL DEBUG\]\003 $res"}
    	if { $res != ""  } {
				regsub -all "\n" $res " " res
				regsub -all "<\[^<\]*>" $res "" res
      	set res [encoding convertfrom "utf-8" $res ]
      	if {$res != ""} {
	   			puthelp "privmsg $chan :\00314\037Translation\037:\003 $res"
				}
			} else {
  			puthelp "privmsg $chan :\00314$nick > Translation is impossible\003"
			}
		} else {
			puthelp "privmsg $chan :\00314The connexion to Babel Fish can't be established. Maybe the website suffer technical difficulties. Try again later.\003"
		}
		::http::cleanup $token
		if $private {set private 0}
	}
}

proc bftrans::translate_priv {nick host hand arg} {
	if !$bftrans::translatorprivate {return}
	variable private
	variable private 1
	bftrans::translate $nick $host $hand #**** $arg
	return
}

##### Syntax
proc bftrans::translator_syntax { chan } {
	variable private
	if $private {set private 0}
	puthelp "privmsg $chan :\037Syntax :\037 \002!translate\002 \00314<\003languages\00314> <\003word or sentence\00314> \00307| \003Display the translation for a given word or sentence. For a list of available languages, type \002!translate langlist\002"
	return
}


##### Check if the requested language is in the allowed languages list
proc bftrans::language_check_translator { langtype } {
	if {[lsearch -exact $bftrans::translatorlanguages $langtype] != -1} {
		return 1
	} else {
		return 0
	}
}


##### Check if the chan is in the allowed chans list
proc bftrans::channel_check_translator { chan } {
	if {[lsearch -exact $bftrans::translatorchans $chan] != -1} {
		return 1
	} else {
		return 0
	}
}


putlog "\002*Babel Fish Translator v$bftrans::translatorversion*\002 by MenzAgitat (\037\00312http://www.boulets-roxx.com\003\037) has been loaded"
Info util

Parteneri

babelfishtranslator.tcl

babelfishtranslator.tcl
