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

#################################################################
# Let's rock

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

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

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

    return $string unless $nick eq ':foxbridge';

    if ( $msg =~ s{^:<\x03([02-9]|1[0-5])(.+?)\x0f>\s}{}x ) {
        $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", "" );