From: Michal Rus Date: Sun, 23 Nov 2014 22:50:23 +0000 (+0000) Subject: Support UTF-8 in rainbow.pl X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=840fb2565fe2b912d2077f6c2c62a12e517c8c66;p=irssi-scripts.irssi.org.git Support UTF-8 in rainbow.pl --- diff --git a/scripts/rainbow.pl b/scripts/rainbow.pl index 3fc2375..4b0361b 100644 --- a/scripts/rainbow.pl +++ b/scripts/rainbow.pl @@ -20,7 +20,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = "1.4"; +$VERSION = "1.5"; %IRSSI = ( authors => 'Jakub Jankowski', contact => 'shasta@atn.pl', @@ -47,6 +47,7 @@ my @colors = ('0', '4', '8', '9', '11', '12', '13'); # returns random-coloured string sub make_colors { my ($string) = @_; + Encode::_utf8_on($string); my $newstr = ""; my $last = 255; my $color = 0; @@ -144,3 +145,4 @@ Irssi::command_bind("rkick", "rkick"); # 29.01.2002: /rsay works with dcc chats now (v1.2) # 02.02.2002: make_colors() doesn't assign any color to spaces (v1.3) # 23.02.2002: /rkick added +# 26.11.2014: utf-8 support