scripts/mangle.pl

#!/usr/bin/perl
#
# by Szymon Sokol <szymon@hell.pl>
# ideas taken from BabelIRC by Stefan Tomanek
#

use strict;
use locale;
use utf8;
use Irssi 20020324;
use Irssi::TextUI;
use POSIX;
use Data::Dumper;

use vars qw($VERSION %IRSSI %HELP %channels %translations);
$VERSION = '2019071201';
%IRSSI = (
    authors     => 'Szymon Sokol',
    contact     => 'szymon@hell.pl',
    name        => 'mangle',
    description => 'translates your messages into Morse code, rot13 and other sillinesses.',
    sbitems     => 'mangle_sb',
    license     => 'GPLv2',
    url         => 'http://irssi.org/scripts/',
    changed     => $VERSION,
    modules     => 'Data::Dumper'
);  

# To work, this help requires scripthelp.pl by Maciek 'fahren' Freudenheim
$HELP{"mangle add"} = "/mangle add <translation> [<channel>]
Add a new translation entry for <channel> (default is current channel)";
$HELP{"mangle del"} = "/mangle del [<channel>]
Removes the translation for <channel> (default is current channel)";
$HELP{"mangle say"} = "/mangle say <translation> <message>
Says something to the current channel using given translation";
$HELP{"mangle load"} = "/mangle load 
Loads translations from file";
$HELP{"mangle save"} = "/mangle save 
Saves active translations to file";
$HELP{"mangle show"} = "/mangle show 
Shows active translations";
$HELP{"mangle list"} = "/mangle list 
Lists available translations";

# the endless possibilities for extensions here
%translations = (
  # CChheecckk  yyoouurr  dduupplleexx  sswwiittcchh
  "duplex" => sub { 
    my ($text) = @_;
    $text =~ s/./$&$&/g;
    return $text;
  },
  # TaLk LiKe ThIs - EvErY OtHeR LeTtEr Is UpPeRcAse
  "funky" => sub {
    my ($text) = @_;
    $text =~ s/(\w.)/\u$1/g;
    return $text;
  },
  # TalkLikeThis-NoSpaces,WordBeginsWithUppercase
  "gnome" => sub {
    my ($text) = @_;
    $text =~ s/\b(\w)/\u$1/g;
    $text =~ s/\s+//g;
    return $text;
  },

  # ds mangle by blap - double strike mathematical symbols
  "ds" => sub { 
    my %ds = (
    "A" => "&#120120;",
    "B" => "&#120121;",
    "C" => "&#8450;",
    "D" => "&#120123;",
    "E" => "&#120124;",
    "F" => "&#120125;",
    "G" => "&#120126;",
    "H" => "&#8461;",
    "I" => "&#120128;",
    "J" => "&#120129;",
    "K" => "&#120130;",
    "L" => "&#120131;",
    "M" => "&#120132;",
    "N" => "&#8469;",
    "O" => "&#120134;",
    "P" => "&#8473;",
    "Q" => "&#8474;",
    "R" => "&#8477;",
    "S" => "&#120138;",
    "T" => "&#120139;",
    "U" => "&#120140;",
    "V" => "&#120141;",
    "W" => "&#120142;",
    "X" => "&#120143;",
    "Y" => "&#120144;",
    "Z" => "&#8484;",
    "a" => "&#120146;",
    "b" => "&#120147;",
    "c" => "&#120148;",
    "d" => "&#120149;",
    "e" => "&#120150;",
    "f" => "&#120151;",
    "g" => "&#120152;",
    "h" => "&#120153;",
    "i" => "&#120154;",
    "j" => "&#120155;",
    "k" => "&#120156;",
    "l" => "&#120157;",
    "m" => "&#120158;",
    "n" => "&#120159;",
    "o" => "&#120160;",
    "p" => "&#120161;",
    "q" => "&#120162;",
    "r" => "&#120163;",
    "s" => "&#120164;",
    "t" => "&#120165;",
    "u" => "&#120166;",
    "v" => "&#120167;",
    "w" => "&#120168;",
    "x" => "&#120169;",
    "y" => "&#120170;",
    "z" => "&#120171;",
    "0" => "&#120792;",
    "1" => "&#120793;",
    "2" => "&#120794;",
    "3" => "&#120795;",
    "4" => "&#120796;",
    "5" => "&#120797;",
    "6" => "&#120798;",
    "7" => "&#120799;",
    "8" => "&#120800;",
    "9" => "&#120801;"
    );
    my ($text) = @_;
    $text =~ s/./defined $ds{$&} ? $ds{$&} : "$&"/eg;
    return $text;
  },

  # curs cursive by blap - cursive (bold) script
  "curs" => sub { 
    my %curs = (
    "A" => "&#120016;",
    "B" => "&#120017;",
    "C" => "&#120018;",
    "D" => "&#120019;",
    "E" => "&#120020;",
    "F" => "&#120021;",
    "G" => "&#120022;",
    "H" => "&#120023;",
    "I" => "&#120024;",
    "J" => "&#120025;",
    "K" => "&#120026;",
    "L" => "&#120027;",
    "M" => "&#120028;",
    "N" => "&#120029;",
    "O" => "&#120030;",
    "P" => "&#120031;",
    "Q" => "&#120032;",
    "R" => "&#120033;",
    "S" => "&#120034;",
    "T" => "&#120035;",
    "U" => "&#120036;",
    "V" => "&#120037;",
    "W" => "&#120038;",
    "X" => "&#120039;",
    "Y" => "&#120040;",
    "Z" => "&#120041;",
    "a" => "&#120042;",
    "b" => "&#120043;",
    "c" => "&#120044;",
    "d" => "&#120045;",
    "e" => "&#120046;",
    "f" => "&#120047;",
    "g" => "&#120048;",
    "h" => "&#120049;",
    "i" => "&#120050;",
    "j" => "&#120051;",
    "k" => "&#120052;",
    "l" => "&#120053;",
    "m" => "&#120054;",
    "n" => "&#120055;",
    "o" => "&#120056;",
    "p" => "&#120057;",
    "q" => "&#120058;",
    "r" => "&#120059;",
    "s" => "&#120060;",
    "t" => "&#120061;",
    "u" => "&#120062;",
    "v" => "&#120063;",
    "w" => "&#120064;",
    "x" => "&#120065;",
    "y" => "&#120066;",
    "z" => "&#120067;"
    );
    my ($text) = @_;
    $text =~ s/./defined $curs{$&} ? $curs{$&} : "$&"/eg;
    return $text;
  },

  # vapor double-width by blap - 'vaporwave' script
  "vapor" => sub { 
    my %vapor = (
    " " => "  ",
    "A" => "&#65313;",
    "B" => "&#65314;",
    "C" => "&#65315;",
    "D" => "&#65316;",
    "E" => "&#65317;",
    "F" => "&#65318;",
    "G" => "&#65319;",
    "H" => "&#65320;",
    "I" => "&#65321;",
    "J" => "&#65322;",
    "K" => "&#65323;",
    "L" => "&#65324;",
    "M" => "&#65325;",
    "N" => "&#65326;",
    "O" => "&#65327;",
    "P" => "&#65328;",
    "Q" => "&#65329;",
    "R" => "&#65330;",
    "S" => "&#65331;",
    "T" => "&#65332;",
    "U" => "&#65333;",
    "V" => "&#65334;",
    "W" => "&#65335;",
    "X" => "&#65336;",
    "Y" => "&#65337;",
    "Z" => "&#65338;",
    "a" => "&#65345;",
    "b" => "&#65346;",
    "c" => "&#65347;",
    "d" => "&#65348;",
    "e" => "&#65349;",
    "f" => "&#65350;",
    "g" => "&#65351;",
    "h" => "&#65352;",
    "i" => "&#65353;",
    "j" => "&#65354;",
    "k" => "&#65355;",
    "l" => "&#65356;",
    "m" => "&#65357;",
    "n" => "&#65358;",
    "o" => "&#65359;",
    "p" => "&#65360;",
    "q" => "&#65361;",
    "r" => "&#65362;",
    "s" => "&#65363;",
    "t" => "&#65364;",
    "u" => "&#65365;",
    "v" => "&#65366;",
    "w" => "&#65367;",
    "x" => "&#65368;",
    "y" => "&#65369;",
    "z" => "&#65370;",
    "0" => "&#65296;",
    "1" => "&#65297;",
    "2" => "&#65298;",
    "3" => "&#65299;",
    "4" => "&#65300;",
    "5" => "&#65301;",
    "6" => "&#65302;",
    "7" => "&#65303;",
    "8" => "&#65304;",
    "9" => "&#65305;",
    '[' => '&#65339;',
    ']' => '&#65341;',
    '{' => '&#65371;',
    '}' => '&#65373;',
    '(' => '&#65288;',
    ')' => '&#65289;',
    '.' => '&#65294;',
    ',' => '&#65292;',
    '?' => '&#65311;',
    '!' => '&#65281;',
	'"' => chr(65282),
    '\'' => '&#65287;',
    '#' => '&#65283;',
    '$' => '&#65284;',
    '%' => '&#65285;',
    '^' => '&#65342;',
    '&' => '&#65286;',
    '=' => '&#65309;',
    '\\' => '&#65340;',
    '/' => '&#65295;',
    '`' => '&#65344;'
    );
    my ($text) = @_;
    $text =~ s/./defined $vapor{$&} ? $vapor{$&} : "$&"/eg;
    return $text;
  },

  # blox cypher by blap
  "blox" => sub { 
    my %blox = (
    "a" => "&#9630;",
    "b" => "&#9613;",
    "c" => "&#9614;",
    "d" => "&#9605;",
    "e" => "&#9603;",
    "f" => "&#9626;",
    "g" => "&#9724;",
    "h" => "&#9607;",
    "i" => "&#9624;",
    "j" => "&#9627;",
    "k" => "&#9515;",
    "l" => "&#9611;",
    "m" => "&#9606;",
    "n" => "&#9629;",
    "o" => "&#9628;",
    "p" => "&#9608;",
    "q" => "&#9601;",
    "r" => "&#9604;",
    "s" => "&#9628;",
    "t" => "&#9600;",
    "u" => "&#9612;",
    "v" => "&#9622;",
    "w" => "&#9625;",
    "x" => "&#9602;",
    "y" => "&#9623;",
    "z" => "&#9631;",
    "0" => "&#9610;",
    "1" => "&#9616;",
    "2" => "&#9620;",
    "3" => "&#9618;",
    "4" => "&#9615;",
    "5" => "&#9617;",
    "6" => "&#9650;",
    "7" => "&#9507;",
    "8" => "&#9619;",
    "9" => "&#9660;"
    );
    my ($text) = @_;
    $text = lc($text);
    $text =~ s/./defined $blox{$&} ? $blox{$&} : "$&"/eg;
    return "&#9587;".$text;
  },

  "morse" => sub { 
    my %morse = (
    " " => "",
    "a" => ".-",
    "b" => "-...",
    "c" => "-.-.",
    "d" => "-..",
    "e" => ".",
    "f" => "..-.",
    "g" => "--.",
    "h" => "....",
    "i" => "..",
    "j" => ".---",
    "k" => "-.-",
    "l" => ".-..",
    "m" => "--",
    "n" => "-.",
    "o" => "---",
    "p" => ".--.",
    "q" => "--.-",
    "r" => ".-.",
    "s" => "...",
    "t" => "-",
    "u" => "..-",
    "v" => "...-",
    "w" => ".--",
    "x" => "-..-",
    "y" => "-.--",
    "z" => "--..",
    # notice: Polish and German diacritical characters have their own 
    # Morse codes; the same probably stands true for other languages
    # using ISO-8859-2 - if you happen to know them, please send me e-mail
    "&plusmn;" => ".-.-",
    "&aelig;" => "-.-..",
    "&ecirc;" => "..-..",
    "&sup3;" => ".-..-",
    "&ntilde;" => "--.-",
    "&oacute;" => "---.".
    "&para;" => "...-...",
    "&frac14;" => "--..",
    "&iquest;" => "--..-",
    '&auml;'=>'.-.-',
    '&ouml;'=>'---.',
    '&uuml;'=>'..--',
    "0" => "-----",
    "1" => ".----",
    "2" => "..---",
    "3" => "...--",
    "4" => "....-",
    "5" => ".....",
    "6" => "-....",
    "7" => "--...",
    "8" => "---..",
    "9" => "----.",
    "'" => ".----.",
    '"' => ".-..-.",
    '.' => ".-.-.-",
    ',' => "--..--",
    '?' => "..--..",
    ':' => "---...",
    ';' => "-.-.-.",
    '-' => "-....-",
    '_' => "..--.-",
    '/' => "-..-.",
    '(' => "-.--.",
    ')' => "-.--.-",
    '@' => ".--.-.", #  byFlorian Ernst <florian@uni-hd.de>
    '=' => "-...-"
    );
    my ($text) = @_;
    $text = lc($text);
    $text =~ s/./defined $morse{$&} ? $morse{$&}." " : ""/eg;
    return $text.'[morse]';
  },

  # Fraktur font by blap
  "frakt" => sub { 
    my %HoA = (
    'a' => ["&#120198;"],
    'b' => ["&#120199;"],
    'c' => ["&#120200;"],
    'd' => ["&#120201;"],
    'e' => ["&#120202;"],
    'f' => ["&#120203;"],
    'g' => ["&#120204;"],
    'h' => ["&#120205;"],
    'i' => ["&#120206;"],
    'j' => ["&#120207;"],
    'k' => ["&#120208;"],
    'l' => ["&#120209;"],
    'm' => ["&#120210;"],
    'n' => ["&#120211;"],
    'o' => ["&#120212;"],
    'p' => ["&#120213;"],
    'q' => ["&#120214;"],
    'r' => ["&#120215;"],
    's' => ["&#120216;"],
    't' => ["&#120217;"],
    'u' => ["&#120218;"],
    'v' => ["&#120219;"],
    'w' => ["&#120220;"],
    'x' => ["&#120221;"],
    'y' => ["&#120222;"],
    'z' => ["&#120223;"],
    'A' => ["&#120172;"],
    'B' => ["&#120173;"],
    'C' => ["&#120174;"],
    'D' => ["&#120175;"],
    'E' => ["&#120176;"],
    'F' => ["&#120177;"],
    'G' => ["&#120178;"],
    'H' => ["&#120179;"],
    'I' => ["&#120180;"],
    'J' => ["&#120181;"],
    'K' => ["&#120182;"],
    'L' => ["&#120183;"],
    'M' => ["&#120184;"],
    'N' => ["&#120185;"],
    'O' => ["&#120186;"],
    'P' => ["&#120187;"],
    'Q' => ["&#120188;"],
    'R' => ["&#120189;"],
    'S' => ["&#120190;"],
    'T' => ["&#120191;"],
    'U' => ["&#120192;"],
    'V' => ["&#120193;"],
    'W' => ["&#120194;"],
    'X' => ["&#120195;"],
    'Y' => ["&#120196;"],
    'Z' => ["&#120197;"]
    );
    my ($text) = @_;
    $text =~ s/./defined $HoA{$&} ? $HoA{$&}[rand(@{$HoA{$&}})] : "$&"/eg;
    return $text;
  },

  # Unicode Obfusticator by blap
  "obfus" => sub { 
    my %HoA = (
    '0' => ["&#1256;","&#8008;","&#7890;","&#7892;","&Theta;","&#465;","&#526;","&#1012;","&Ograve;","&Otilde;","&Ocirc;","&#510;"],
    '1' => ["&#300;","&#7992;","&#298;","&#1216;","&#906;","&Iota;","&#1030;","&#1031;","&#8152;","&#8153;","&#8154;"],
    '2' => ["&#443;","&#424;"],
    '3' => ["&#439;","&#1248;","&#1176;","&#1177;","&#1246;","&#1079;","&#1349;","&#1047;","&#605;"],
    '4' => ["&#1063;"],
    '5' => ["&#444;"],
    '6' => ["&#477;","&#601;"],
    '7' => ["7"],
    '8' => ["&#1361;"],
    '9' => ["9"],
    'a' => ["&#7941;","&#7937;","&#7834;","&#1235;","&#8049;","&#8119;","&#8118;","&#8113;","&#462;","&#479;","&#940;","&#593;"],
    'b' => ["&#387;","&#389;","&thorn;","&#7683;","&#7685;","&#7687;","&#1016;","&#595;"],
    'c' => ["&#267;","&#263;","&#392;","&#8573;","&#987;","&ccedil;","&sigmaf;","&#1010;"],
    'd' => ["&#396;","&#7697;","&#8574;","&#7691;","&#7693;","&#7695;","&#1386;","&#599;","&#598;"],
    'e' => ["&#1105;","&#279;","&#7879;","&#1139;","&#7701;","&#7709;","&egrave;","&ecirc;","&#1009;","&#553;","&epsilon;"],
    'f' => ["&#1171;","&fnof;","&#383;","&#7835;","&#989;","&#7711;"],
    'g' => ["&#287;","&#291;","&#609;","&#485;","&#487;","&#1409;","&#1379;","&#501;","&#7713;","&#597;"],
    'h' => ["&#293;","&#1211;","&#7830;","&#615;","&#614;","&#1387;","&#7721;","&#7723;","&#1392;"],
    'i' => ["&#297;","&#299;","&#7986;","&#617;","&iexcl;","&iacute;","&igrave;","&#912;","&#943;","&iota;","&#7725;"],
    'j' => ["&#1112;","&#309;","&#669;","&#567;","&#496;","&#1397;"],
    'k' => ["&#1181;","&#409;","&#312;","&#311;","&#1082;","&#7729;","&#7731;","&kappa;"],
    'l' => ["&#322;","&#320;","&#410;","&#318;","&#314;","&#619;","&#448;","&#621;","&#620;","&#7739;","&#7741;"],
    'm' => ["&#8357;","&#7747;","&#7745;","&#625;","&#7743;"],
    'n' => ["&#414;","&#7972;","&#7749;","&#8053;","&ntilde;","&#628;","&#8087;","&#8085;","&#8084;","&#8135;","&#1404;","&#1394;"],
    'o' => ["&#7899;","&#7903;","&#8001;","&#335;","&#333;","&#417;","&#8056;","&#8057;","&oacute;","&ograve;","&#664;","&#555;"],
    'p' => ["&#1088;","&#1167;","&#7767;","&#7765;","&#8164;","&#8165;","&thorn;","&#1385;"],
    'q' => ["&#1307;","&#672;","&#1382;","&#1379;"],
    'r' => ["&#343;","&#341;","&#1107;","&#1271;","&#1075;","&#529;","&#637;","&#636;"],
    's' => ["&#351;","&#347;","&#7783;","&#7779;","&#1297;","&scaron;","&#642;"],
    't' => ["&dagger;","&#7787;","&#357;","&#539;","&#1362;","&#566;","&#648;"],
    'u' => ["&#432;","&#7803;","&#7795;","&#367;","&#363;","&#7909;","&#7911;","&ugrave;","&micro;","&#476;","&#474;"],
    'v' => ["&#7807;","&#8016;","&#8023;","&#8020;","&#8059;","&#1141;","&#1199;","&#8160;","&#8162;","&#8564;","&#944;"],
    'w' => ["&#1309;","&#7817;","&#7811;","&#7809;","&#373;","&#7815;","&#7813;"],
    'x' => ["&#7819;","&#1203;","&#7821;","&#1008;"],
    'y' => ["&#1091;","&#436;","&#1263;","&#1118;","&#7929;","&#7925;","&#7927;","&#7833;","&yuml;"],
    'z' => ["&#438;","&#382;","&#380;","&#378;","&#7827;","&#7825;","&#657;"],
    'A' => ["&#7848;","&#7852;","&#260;","&#7950;","&#1232;","&#8123;","&#8121;","&Alpha;","&#570;","&Atilde;","&#8073;","&#8072;"],
    'B' => ["&#385;","&#7682;","&#7684;","&Beta;","&#1042;"],
    'C' => ["&#268;","&#264;","&#262;","&#8373;","&#1194;","&#1022;","&Ccedil;"],
    'D' => ["&#272;","&#394;","&#393;","&#7698;","&#7690;","&#7692;","&#7694;","&ETH;"],
    'E' => ["&#7864;","&#280;","&#7868;","&#276;","&#7878;","&#400;","&#1296;","&#7702;","&#7708;","&#8136;","&#552;"],
    'F' => ["&#1170;","&#401;","&#8355;","&#989;","&#988;"],
    'G' => ["&#284;","&#286;","&#288;","&#290;","&#484;","&#7712;","&#500;"],
    'H' => ["&#292;","&#1223;","&#1188;","&#1186;","&#542;","&#1053;","&#7716;","&#7722;"],
    'I' => ["&#7880;","&#7993;","&#298;","&#304;","&#520;","&#522;","&Iota;","&Iacute;","&#7724;","&#8154;","&#7726;"],
    'J' => ["&#308;","&#646;","&#1032;"],
    'K' => ["&#8365;","&#408;","&#310;","&Kappa;","&#7728;","&#7730;","&#7732;","&#1050;","&#1036;"],
    'L' => ["&#321;","&#317;","&#8556;","&#7734;","&#7736;","&#7738;","&#8466;"],
    'M' => ["&#1229;","&#7746;","&#7744;","&Mu;","&#1052;","&#7742;"],
    'N' => ["&#327;","&#325;","&#323;","&#8358;","&#7754;","&#7752;","&Ntilde;","&#504;"],
    'O' => ["&#1258;","&#7900;","&#7892;","&#7884;","&Theta;","&Oslash;","&Ograve;","&Otilde;","&#556;","&#558;"],
    'P' => ["&#420;","&#1166;","&#7766;","&#7764;","&#8369;","&#8172;","&Rho;"],
    'Q' => ["&#1306;"],
    'R' => ["&#344;","&#342;","&#340;","&#7774;","&#7768;","&#528;"],
    'S' => ["&#991;","&#350;","&#348;","&#7776;","&Scaron;","&#536;","&#1359;"],
    'T' => ["&#7792;","&#7790;","&#7786;","&#430;","&#358;","&#354;","&#1058;","&Tau;","&#8155;"],
    'U' => ["&#7920;","&#370;","&#7912;","&#7916;","&#360;","&#532;","&#534;","&#469;","&#471;","&#475;","&Ucirc;","&Uacute;"],
    'V' => ["&#7806;","&#7804;","&#1142;","&#8897;","&#8548;"],
    'W' => ["&#1308;","&#7816;","&#7810;","&#7808;","&#372;","&#7814;","&#7812;"],
    'X' => ["&#7818;","&#1202;","&#7820;","&#1061;","&Chi;"],
    'Y' => ["&#7928;","&#7822;","&#1200;","&Yuml;","&#7922;","&#7924;","&yen;","&#979;","&#562;","&Upsilon;"],
    'Z' => ["&#381;","&#379;","&#377;","&#7826;","&Zeta;","&#548;"],
    );
    my ($text) = @_;
    $text =~ s/./defined $HoA{$&} ? $HoA{$&}[rand(@{$HoA{$&}})] : "$&"/eg;
    return $text;
  },

  # convert text in Polish from ISO-8859-2 to 7-bit approximation
  # if you know how to do it for other languages using 8859-2, 
  # please let me know
  "polskawe" => sub {
    my ($text) = @_;
    $text =~ y/&iexcl;&AElig;&Ecirc;&pound;&Ntilde;&Oacute;&brvbar;&macr;&not;&plusmn;&aelig;&ecirc;&sup3;&ntilde;&oacute;&para;&iquest;&frac14;/ACELNOSZZacelnoszz/;
    return $text;
  },
  # Ouch, my eyes!
  "rainbow" => sub {
    my ($text) = @_;
    # colors list
    #  0 == white
    #  4 == light red
    #  8 == yellow
    #  9 == light green
    # 11 == light cyan
    # 12 == light blue
    # 13 == light magenta
    my @colors = ('00','04','08','09','11','12','13');
    my $color;
    $text = join '', map { push @colors, $color = shift @colors;
"\003" . $color . ($_ eq "," ? ",," : $_) } split(//,$text);
    return $text;
  },
  # .drawkcab klaT
  "reverse" => sub {
    my ($text) = @_;
    $text = scalar reverse $text;
    return $text;
  },
  # Gnyx va ebg13 rapbqvat.
  "rot13" => sub {
    my ($text) = @_;
    $text =~ y/N-ZA-Mn-za-m/A-Za-z/;
    return $text.' [rot13]';
  },
  # T-T-Talk l-l-like y-y-you h-h-have a s-s-stutter.
  "stutter" => sub {
    my ($text) = @_;
    $text =~ s/(\w)(\w+)/$1-$1-$1$2/g;
    return $text;
  },
  # rmv vwls
  "vowels" => sub {
    my ($text) = @_;
    $text =~ y/aeiouy&plusmn;&ecirc;//d;
    return $text;
  }
);

sub add_channel ($$) {
    my ($channel,$code) = @_;
    $channels{$channel} = $code;
}

sub save_channels {
    my $filename = Irssi::settings_get_str('mangle_filename');
	my $fo;
    open $fo, '>',$filename;
    my $data = Dumper(\%channels);
    print $fo $data;
    close $fo;
    print CLIENTCRAP "%R>>%n Mangle channels saved";
}

sub load_channels {
    my $filename = Irssi::settings_get_str('mangle_filename');
    return unless (-e $filename);
    my $fi;
    open $fi, '<',$filename;
    my $text;
    $text .= $_ foreach <$fi>;
    #no strict "vars";
    my $VAR1;
    eval "$text";
    %channels = %$VAR1;
}

sub mangle_show ($$) {
    my ($item, $get_size_only) = @_;
    my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
    if (ref $win && ($win->{type} eq "CHANNEL" || $win->{type} eq "QUERY") && $channels{$win->{name}}) {
        my $code = $channels{$win->{name}};
	$item->{min_size} = $item->{max_size} = length($code);
	$code = '%U%g'.$code.'%U%n';
	my $format = "{sb ".$code."}";
	$item->default_handler($get_size_only, $format, 0, 1);
    } else {
	$item->{min_size} = $item->{max_size} = 0;
    }
}
sub cmd_mangle ($$$) {
    my ($args, $server, $witem) = @_;
    my @arg = split(/ +/, $args);
    if ($arg[0] eq 'add' && defined $arg[1]) {
      my $code = $arg[1];
      if(exists $translations{$code}) {
        if (defined $arg[2]) { 
    	  add_channel($arg[2], $code);
        }
        elsif($witem) {
	  add_channel($witem->{name}, $code);
	}
      } else {
        Irssi::print("There is no such translation as $code !");
      }
    } elsif ($arg[0] eq 'del') {
        if(defined $arg[1]) {
	  delete $channels{$arg[1]} if defined $channels{$arg[1]};
	} elsif($witem) {
	  delete $channels{$witem->{name}} if defined $channels{$witem->{name}};
	}
    } elsif ($arg[0] eq 'say' && defined $arg[1]) {
      my $code = $arg[1];
      if(exists $translations{$code}) {
        if($witem) {
	  say($code, join(' ',@arg[2..$#arg]), $server, $witem);
	}
      } else {
        Irssi::print("There is no such translation as $code !");
      }
    } elsif ($arg[0] eq 'save') {
	save_channels();
    } elsif ($arg[0] eq 'load') {
	load_channels();
    } elsif ($arg[0] eq 'list') {
	Irssi::print("mangle: available translations are: ".
	join(" ", sort keys %translations));
    } elsif ($arg[0] eq 'show') {
        for (sort keys %channels) {
	  Irssi::print("mangle: ".$_." set to ".$channels{$_});
	}
    } else {
      Irssi::print("mangle v. $VERSION; use /help mangle for help (ensure you have scripthelp.pl loaded!)");
    }
    Irssi::statusbar_items_redraw('mangle_sb');
}

sub say ($$$$) {
    my ($code, $line, $server, $witem) = @_;
    my $target = "";
    if ($line =~ s/^(\w+?: )//) {
      $target = $1;
    }
    $line = $translations{$code}->($line);
    $server->command('MSG '.$witem->{name}.' '.$target.$line);
}

sub event_send_text ($$$) {
    my ($line, $server, $witem) = @_;
    return unless ($witem && 
                  ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY") && 
                  $channels{$witem->{name}});
    say($channels{$witem->{name}}, $line, $server, $witem);
    Irssi::signal_stop();
    Irssi::statusbar_items_redraw('mangle_sb');
}

# main

Irssi::command_bind('mangle', \&cmd_mangle);
foreach my $cmd ('add', 'del', 'save', 'load', 'say', 'list', 'show') {
    Irssi::command_bind('mangle '.$cmd => sub {
		    cmd_mangle($cmd." ".$_[0], $_[1], $_[2]); });
}

Irssi::statusbar_item_register('mangle_sb', 0, "mangle_show");
Irssi::signal_add('setup saved', 'save_channels');
Irssi::signal_add('send text', \&event_send_text);
Irssi::signal_add('window changed', sub {Irssi::statusbar_items_redraw('mangle_sb');});

Irssi::settings_add_str($IRSSI{name}, 'mangle_filename', Irssi::get_irssi_dir()."/mangle_channels");
load_channels();
print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /help mangle for help';

# ;-)