#!/usr/bin/perl
#
# by Szymon Sokol
# 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 => '[email protected]',
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 []
Add a new translation entry for (default is current channel)";
$HELP{"mangle del"} = "/mangle del []
Removes the translation for (default is current channel)";
$HELP{"mangle say"} = "/mangle say
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" => "ð”¸",
"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" => "ℤ",
"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" => "ð•«",
"0" => "ðŸ˜",
"1" => "ðŸ™",
"2" => "ðŸš",
"3" => "ðŸ›",
"4" => "ðŸœ",
"5" => "ðŸ",
"6" => "ðŸž",
"7" => "ðŸŸ",
"8" => "ðŸ ",
"9" => "ðŸ¡"
);
my ($text) = @_;
$text =~ s/./defined $ds{$&} ? $ds{$&} : "$&"/eg;
return $text;
},
# curs cursive by blap - cursive (bold) script
"curs" => sub {
my %curs = (
"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" => "ð“©",
"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" => "ð”ƒ"
);
my ($text) = @_;
$text =~ s/./defined $curs{$&} ? $curs{$&} : "$&"/eg;
return $text;
},
# vapor double-width by blap - 'vaporwave' script
"vapor" => sub {
my %vapor = (
" " => " ",
"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" => "Ｚ",
"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" => "ｚ",
"0" => "ï¼",
"1" => "１",
"2" => "ï¼’",
"3" => "３",
"4" => "ï¼”",
"5" => "５",
"6" => "ï¼–",
"7" => "ï¼—",
"8" => "８",
"9" => "ï¼™",
'[' => 'ï¼»',
']' => 'ï¼½',
'{' => 'ï½›',
'}' => 'ï½',
'(' => '（',
')' => '）',
'.' => '．',
',' => '，',
'?' => '？',
'!' => 'ï¼',
'"' => chr(65282),
'\'' => '＇',
'#' => '＃',
'$' => '＄',
'%' => 'ï¼…',
'^' => 'ï¼¾',
'&' => '＆',
'=' => 'ï¼',
'\\' => 'ï¼¼',
'/' => 'ï¼',
'`' => 'ï½€'
);
my ($text) = @_;
$text =~ s/./defined $vapor{$&} ? $vapor{$&} : "$&"/eg;
return $text;
},
# blox cypher by blap
"blox" => sub {
my %blox = (
"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" => "â–Ÿ",
"0" => "â–Š",
"1" => "â–",
"2" => "â–”",
"3" => "â–’",
"4" => "â–",
"5" => "â–‘",
"6" => "â–²",
"7" => "┣",
"8" => "â–“",
"9" => "â–¼"
);
my ($text) = @_;
$text = lc($text);
$text =~ s/./defined $blox{$&} ? $blox{$&} : "$&"/eg;
return "╳".$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
"±" => ".-.-",
"æ" => "-.-..",
"ê" => "..-..",
"³" => ".-..-",
"ñ" => "--.-",
"ó" => "---.".
"¶" => "...-...",
"¼" => "--..",
"¿" => "--..-",
'ä'=>'.-.-',
'ö'=>'---.',
'ü'=>'..--',
"0" => "-----",
"1" => ".----",
"2" => "..---",
"3" => "...--",
"4" => "....-",
"5" => ".....",
"6" => "-....",
"7" => "--...",
"8" => "---..",
"9" => "----.",
"'" => ".----.",
'"' => ".-..-.",
'.' => ".-.-.-",
',' => "--..--",
'?' => "..--..",
':' => "---...",
';' => "-.-.-.",
'-' => "-....-",
'_' => "..--.-",
'/' => "-..-.",
'(' => "-.--.",
')' => "-.--.-",
'@' => ".--.-.", # byFlorian Ernst
'=' => "-...-"
);
my ($text) = @_;
$text = lc($text);
$text =~ s/./defined $morse{$&} ? $morse{$&}." " : ""/eg;
return $text.'[morse]';
},
# Fraktur font by blap
"frakt" => sub {
my %HoA = (
'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' => ["ð–Ÿ"],
'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' => ["ð–…"]
);
my ($text) = @_;
$text =~ s/./defined $HoA{$&} ? $HoA{$&}[rand(@{$HoA{$&}})] : "$&"/eg;
return $text;
},
# Unicode Obfusticator by blap
"obfus" => sub {
my %HoA = (
'0' => ["Ө","Ὀ","Ồ","Ổ","Θ","Ǒ","Ȏ","ϴ","Ò","Õ","Ô","Ǿ"],
'1' => ["Ĭ","Ἰ","Ī","Ӏ","Ί","Ι","І","Ї","Ῐ","Ῑ","Ὶ"],
'2' => ["ƻ","ƨ"],
'3' => ["Æ·","Ó ","Ò˜","Ò™","Óž","з","Õ…","З","É"],
'4' => ["Ч"],
'5' => ["Ƽ"],
'6' => ["Ç","É™"],
'7' => ["7"],
'8' => ["Õ‘"],
'9' => ["9"],
'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' => ["ƶ","ž","ż","ź","ẓ","ẑ","ʑ"],
'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' => ["Ž","Ż","Ź","Ẓ","Ζ","Ȥ"],
);
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/¡ÆÊ£ÑÓ¦¯¬±æê³ñ󶿼/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±ê//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';
# ;-)