Remove eng_no_translate_dpryo.pl

(Covers pull requests #2 and #3.)

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index 8ba79a8747d9718c44cd950308e6990dee8cd317..efa52296e5effd5e0456aebb06a906e0655f1cd7 100644 (file)
--- 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 (file)
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");