diff options
Diffstat (limited to 'examples/07-multi-server-message-forwarder.p6')
-rw-r--r-- | examples/07-multi-server-message-forwarder.p6 | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/examples/07-multi-server-message-forwarder.p6 b/examples/07-multi-server-message-forwarder.p6 deleted file mode 100644 index 06d07ec..0000000 --- a/examples/07-multi-server-message-forwarder.p6 +++ /dev/null @@ -1,37 +0,0 @@ -use lib <lib>; - -use IRC::Client; - -class Messenger does IRC::Client::Plugin { - method irc-privmsg-channel ($e) { - for $.irc.servers.values -> $server { - for $server.channels -> $channel { - next if $server eq $e.server and $channel eq $e.channel; - - $.irc.send: :$server, :where($channel), :text( - "$e.nick() over at $e.server.host()/$e.channel() says $e.text()" - ); - } - } - - $.irc.send: :where<Zoffix> - :text('I spread the messages!') - :server<local>; - } -} - -.run with IRC::Client.new: - :debug - :plugins[Messenger.new] - :nick<MahBot> - :channels<#zofbot> - :servers{ - freenode => %( - :host<irc.freenode.net>, - ), - local => %( - :nick<P6Bot>, - :channels<#zofbot #perl6>, - :host<localhost>, - ) - } |