From 2a6b33a5991f5dc5444ab8cd82abefab6048b134 Mon Sep 17 00:00:00 2001
From: Hubert depesz Lubaczewski <depesz@depesz.com>
Date: Sun, 24 Jun 2012 15:12:49 +0200
Subject: [PATCH] Support SSL Irc connections

In "irc" settings simply add "ssl: 1" for SSL connections.
---
 docbot.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/docbot.pl b/docbot.pl
index 1f35bfb..91d4519 100755
--- a/docbot.pl
+++ b/docbot.pl
@@ -169,12 +169,14 @@ foreach my $session (keys(%main::sessions)) {
     my $server = config_get_key2('irc', 'server');
     my $port = config_get_key2('irc', 'port');
     $port = (length($port) > 0 and $port =~ /^\d+$/) ? $port : '6667';
+    my $ssl = config_get_key2('irc', 'ssl') ? 1 : undef;
     my $irc = POE::Component::IRC->spawn(
                   Nick => $main::sessions{$session}{'nickname'},
                   Ircname => $name,
                   Server => $server,
                   Port => $port,
-                  Raw => 1
+                  Raw => 1,
+                  UseSSL => $ssl,
               );
     if (!$irc) {
         print_msg("Could not spawn POE session: $!", ERROR);
-- 
2.39.5