diff options
| author | David Leadbeater | 2014-12-23 11:26:05 +0000 |
|---|---|---|
| committer | David Leadbeater | 2014-12-23 11:26:05 +0000 |
| commit | 636a2c50b59b4e491cfbc99136c47765fa55e5c9 (patch) | |
| tree | ae128fcdd9f1b6086649ff2401572d46ede8a829 | |
| parent | 34e2d9ce3ae585876df98dded3be27f9535ef248 (diff) | |
| download | scripts.irssi.org-636a2c50b59b4e491cfbc99136c47765fa55e5c9.tar.bz2 | |
Remove eng_no_translate_dpryo.pl
(Covers pull requests #2 and #3.)
| -rw-r--r-- | _data/scripts.yaml | 11 | ||||
| -rw-r--r-- | scripts/eng_no_translate_dpryo.pl | 57 |
2 files changed, 0 insertions, 68 deletions
diff --git a/_data/scripts.yaml b/_data/scripts.yaml index 8ba79a8..efa5229 100644 --- a/_data/scripts.yaml +++ b/_data/scripts.yaml @@ -1269,17 +1269,6 @@ name: "emo" version: "0.0.1" -- authors: "Harald Nesland" - contact: "hnesland@samsen.com" - description: "Very simple script that sends incoming text to freetranslation.com for english->norwegian translation. May be modified to translate other languages." - filename: "eng_no_translate_dpryo.pl" - modified: "2002-04-11 14:15:25" - license: "Public Domain" - modules: "LWP::Simple" - name: "EngNoTranslate" - url: "http://www.satyra.net" - version: "0.2" - - authors: "Taneli Kaivola" contact: "dist@sci.fi" description: "Expand event mode and emit event mode {channel,user,server} *" 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"); |