use strict;

my $PRGNAME = 'foxbridge_fix';
my $VERSION = '0.002';
my $LICENCE = 'BSD style';
my $DESCR   = 'Discord bridge utilities, e.g. displaying messages in a better way.';

sub discord_cb {
    my ( $data, $modifier, $modifier_data, $string ) = @_;

    my ( $tmpuser, $cmd, $channel, $msg ) = split( ' ', $string, 4 );

    my ( $nick, $userhost ) = split( '!', $tmpuser );

    if (   ( $nick eq ':foxbridge' )
        && ( ( $channel eq '#gynvaelstream' ) || ( $channel eq '#gynvaelstream-en' ) )
        && ( $msg =~ s{^:<\x03([02-9]|1[0-5])(.+?)\x0f>\s}{} ) )
    {
        $nick = 'D|' . $2;
        $string = sprintf( ':%s!%s %s %s :%s', $nick, $userhost, $cmd, $channel, $msg );
    }
    return $string;
}

weechat::register( $PRGNAME, 'wiechu', $VERSION, $LICENCE, $DESCR, '', '' ) || return;
weechat::hook_modifier( 'irc_in_privmsg', 'discord_cb', '' );