From 37c817f70efe0924b95eb4cc11c2a74390c6bc40 Mon Sep 17 00:00:00 2001
From: Al Beano <albino@autistici.org>
Date: Mon, 4 Jul 2016 19:40:33 +0100
Subject: [PATCH] ssl

---
 MarkovBot.pl       | 4 +++-
 config.default.yml | 3 ++-
 cpanfile           | 1 +
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/MarkovBot.pl b/MarkovBot.pl
index ea4146c..a1bb275 100644
--- a/MarkovBot.pl
+++ b/MarkovBot.pl
@@ -17,7 +17,7 @@ use MarkovBot::Commands;
 sub said {
   my $self = shift;
   my $msg = shift;
-  my $command_char = config "command_character";
+  my $command_char = quotemeta config "command_character";
 
   # Ignore PMs and ignored users
   return if $msg->{channel} eq 'msg';
@@ -56,4 +56,6 @@ MarkovBot->new(
   username => config("irc_nickname"),
   name => config("irc_nickname"),
 
+  ssl => config("irc_ssl") eq "true" ? 1 : 0,
+
 )->run();
diff --git a/config.default.yml b/config.default.yml
index 4c980f7..2e2f992 100644
--- a/config.default.yml
+++ b/config.default.yml
@@ -11,8 +11,9 @@ redis_prefix: markov
 #
 # IRC Settings
 #
+irc_ssl: true
 irc_server: irc.foo.bar
-irc_port: 6667
+irc_port: 6697
 irc_channel: "#baz"
 irc_nickname: shithead-ng
 irc_nickname2: shithead
diff --git a/cpanfile b/cpanfile
index 7b7d9b1..f8736c4 100644
--- a/cpanfile
+++ b/cpanfile
@@ -3,3 +3,4 @@ requires "YAML::Tiny" => "0";
 requires "Bot::BasicBot" => "0";
 requires "Redis" => "0";
 requires "YAML::Tiny" => "0";
+requires "POE::Component::SSLify" => "0";