aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-07-28 21:19:47 -0400
committerZoffix Znet <cpan@zoffix.com>2016-07-28 21:19:47 -0400
commit92e16c5d823c16267b42ae9ea056f931cec96de4 (patch)
tree51ce9a0e63380f469a1de4b5257f2d42e1c5e7a9
parent63c2a163e193ea53e159e2a7ffb8c73bddf9074b (diff)
Blarg
-rw-r--r--lib/IRC/Client.pm624
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index f463296..4055f1b 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -79,15 +79,6 @@ method part (*@channels, :$server) {
self;
}
-method !set-server-attr ($server, $method, $what) {
- if $server ne '*' {
- %!servers{$server}."$method"() = $what;
- return;
- }
-
- ."$method"() = $what for %!servers.values;
-}
-
method run {
.irc = self for @.plugins.grep: { .DEFINITE and .^can: 'irc' };
@@ -164,10 +155,10 @@ method send-cmd ($cmd, *@args is copy, :$prefix = '', :$server) {
###############################################################################
method !connect-socket ($server) {
- $!debug and debug-print 'Attempting to connect to server', :sys, :$server;
+ $!debug and debug-print 'Attempting to connect to server', :out, :$server;
IO::Socket::Async.connect($server.host, $server.port).then: sub ($prom) {
if $prom.status ~~ Broken {
- $!debug and debug-print 'Could not connect', :sys, :$server;
+ $!debug and debug-print 'Could not connect', :out, :$server;
sleep 5;
$!socket-pipe.send: $server;
return;
@@ -197,7 +188,7 @@ method !connect-socket ($server) {
}
unless $server.has-quit {
- $!debug and debug-print "Connection closed", :sys, :$server;
+ $!debug and debug-print "Connection closed", :in, :$server;
sleep 5;
}
@@ -295,6 +286,15 @@ method !plugs-that-can ($method, $e) {
}
}
+method !set-server-attr ($server, $method, $what) {
+ if $server ne '*' {
+ %!servers{$server}."$method"() = $what;
+ return;
+ }
+
+ ."$method"() = $what for %!servers.values;
+}
+
method !ssay (Str:D $msg, :$server is copy) {
$server //= '*';
$!debug and debug-print $msg, :out, :$server;