# Replace annoying emojis. You can see them on slack, for example.

noemoji.pl

# noemoji.pl
#
# Replace annoying emojis. You can see them on slack, for example.

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

$VERSION = '1.0';
%IRSSI = (
    authors	=> 'Lajos Koszti',
    contact	=> '[email protected]',
    name	=> 'noemjoi',
    description	=> 'Replaces emojis from messages',
    license	=> 'Public Domain',
    url		=> 'https://ajnasz.hu',
);

sub replaceEmojis {
	my ($msg) = @_;
	my $replace = {
		'smile' => ':D',
		'simple_smile' => ':)',
		'dizzy_face' => 'XO',
		'disappointed' => ':('
	};

	for (keys %$replace) {
		$msg =~ s/:$_:/$replace->{$_}/g;
	}

	return $msg;
}

sub hasEmoji {
	my ($msg) = @_;

	if ($msg =~ m/:[a-zA-Z_]+:/) {
		return 1;
	}
	return 0;
}

#main event handler
sub caps_message {
	my ($server, $data, $nick, $address) = @_;
	my ($target, $msg) = split(/ :/, $data,2);

	if (hasEmoji($msg)) {
		my $replacement = replaceEmojis($msg);
		#re-emit the signal to make Irssi display it
		Irssi::signal_emit('event privmsg', ($server, "$target :$replacement", $nick, $address));
		#and stop
		Irssi::signal_stop();
	}
}

Irssi::signal_add('event privmsg', 'caps_message');