diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/eng_no_translate_dpryo.pl | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/scripts/eng_no_translate_dpryo.pl b/scripts/eng_no_translate_dpryo.pl deleted file mode 100644 index f00f40c..0000000 --- a/scripts/eng_no_translate_dpryo.pl +++ /dev/null @@ -1,57 +0,0 @@ -# A simple script for all Norwegians who like to get -# all incoming english text translated to Norwegian :D -# Written by dpryo <hnesland@samsen.com> -# -# WARNING: -# Dunno what freetranslation.com thinks about it ;D -# ..so remember, this scripts sends ALL incoming public messages -# as a webrequest to their server. That is, one request pr. -# message you get. In other words, if somebody pubfloods 100 lines, you will -# visit freetranslation.com 100 times ;) -###### -# -# There is at least one bug in it .. It doesn't check wether the -# incoming text is english or not before it sends the request. -# -# Somebody could perhaps fix that?, since i'm a lazy asshole. -# -# Another thing, it doesn't handles channels or anything, so -# I could call this a "Technology Preview" as all the big -# guys are calling their software when it's in a buggy and -# not-so-very-usefull stage of development :P -# -use Irssi; -use LWP::Simple; -use vars qw($VERSION %IRSSI); -$translate =0; - -$VERSION = "0.2"; -%IRSSI = ( - authors => "Harald Nesland", - contact => "hnesland\@samsen.com", - name => "EngNoTranslate", - description => "Very simple script that sends incoming text to freetranslation.com for english->norwegian translation. May be modified to translate other languages.", - license => "Public Domain", - url => "http://www.satyra.net", - changed => "Thu Apr 11 14:15:25 CEST 2002" -); - -sub income { -my ($server, $data, $nick, $mask, $target) = @_; - $eng = $data; - if($translate=1) { - $eng =~ s/ /+/ig; - chop($eng); - Irssi::command("/echo [$nick] $eng"); - $result = get("http://ets.freetranslation.com:5081/?Sequence=core&Mode=txt&template=TextResults2.htm&Language=English/Norwegian&SrcText=$eng"); - Irssi::command("/echo [$nick] $result"); - } -} - -sub trans { - - if($translate =0) { $translate=1; } else { $translate =0; } -} - -Irssi::signal_add("message public", "income"); -Irssi::command_bind("translate","trans"); |