aboutsummaryrefslogtreecommitdiff
path: root/examples/07-multi-server-message-forwarder.p6
diff options
context:
space:
mode:
Diffstat (limited to 'examples/07-multi-server-message-forwarder.p6')
-rw-r--r--examples/07-multi-server-message-forwarder.p637
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>,
- )
- }