diff options
Diffstat (limited to 'scripts/eng_no_translate_dpryo.pl')
| -rw-r--r-- | scripts/eng_no_translate_dpryo.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/scripts/eng_no_translate_dpryo.pl b/scripts/eng_no_translate_dpryo.pl index f00f40c..63dc8b4 100644 --- a/scripts/eng_no_translate_dpryo.pl +++ b/scripts/eng_no_translate_dpryo.pl @@ -20,10 +20,11 @@ # guys are calling their software when it's in a buggy and # not-so-very-usefull stage of development :P # +use strict; use Irssi; use LWP::Simple; use vars qw($VERSION %IRSSI); -$translate =0; +my $translate =0; $VERSION = "0.2"; %IRSSI = ( @@ -37,20 +38,20 @@ $VERSION = "0.2"; ); sub income { -my ($server, $data, $nick, $mask, $target) = @_; - $eng = $data; - if($translate=1) { + my ($server, $data, $nick, $mask, $target) = @_; + my $eng = $data; + if($translate) { $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"); + my $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::print $translate; + $translate = 1 - $translate; } Irssi::signal_add("message public", "income"); |