diff options
Diffstat (limited to 'lib/IRC')
-rw-r--r-- | lib/IRC/Client.pm6 | 24 |
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; |