p6.p6

use IRC::Client;

class Messenger does IRC::Client::Plugin {
    method irc-privmsg-channel ($e) {
        for $.irc.servers.values -> $s {
            for $s.channels -> $channel {
                next if $s.name eq $e.server and $channel eq $e.channel;

                $.irc.send: :server($s), :where($channel), :text(
                    "Hey, everybody! $e.nick() over at $e.server()/$e.channel()"
                    ~ " says $e.text()"
                );
            }
        }

        'Message forwarded';
    }
}

.run with IRC::Client.new:
    :debug
    :plugins[Messenger.new]
    :nick<MahBot>
    :channels<#zofbot>
    :servers{
        freenode => %(
            :channels<#zofbot #perl6>,
            :host<irc.freenode.net>,
        ),
        local => %(
            :nick<P6Bot>,
            :channels<#zofbot #perl6>,
            :host(%*ENV<IRC_HOST> // 'localhost'),
        )
    }