#!/usr/bin/perl
use strict;
use warnings;
use Irssi qw(signal_add);
sub kyberify_word {
my ($word) = @_;
if (length($word) > 3){
$word = 'kyber'.$word;
}
return $word;
}
sub kyberify {
my @words = split / /, $_[0];
return join(' ', map {kyberify_word($_)} @words);
}
sub ircmsg {
my ($msg, $server, $witem) = @_;
if (defined($msg)){
$msg = kyberify($msg);
Irssi::signal_continue($msg, $server, $witem);
}
}
Irssi::signal_add('send text', \&ircmsg);