tls support

gugod · May 24, 2021 · d5e3a6c · d5e3a6c
1 parent 051373b
commit d5e3a6c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/cpanfile b/cpanfile
@@ -10,13 +10,16 @@ requires "HTTP::Request::Common";
 requires "Hash::Merge";
 requires "Image::Randim";
 requires "IO::All";
+requires "IO::Socket::IP";
+requires "IO::Socket::SSL";
 requires "JSON";
 requires "LWP::Simple";
 requires "LWP::UserAgent";
 requires "List::UtilsBy";
 requires "Math::Expression::Evaluator";
 requires "Mojolicious", "8.51";
 requires "Mojo::IRC";
+requires "Mojo::IOLoop::Delay";
 requires "Object::Tiny";
 requires "Path::Class";
 requires "Plack";

diff --git a/lib/Jabbot/Front/IRC.pm b/lib/Jabbot/Front/IRC.pm
@@ -12,7 +12,7 @@ use Encode qw(decode_utf8);
 use IRC::Utils ();
 use Mojo::JSON qw(decode_json);
 use Mojolicious::Lite;
-use Mojo::IRC::UA;
+use Mojo::IRC;
 use Mojo::IOLoop;
 use Mojo::IOLoop::Delay;
 
@@ -24,11 +24,12 @@ sub init_irc_client {
 
     my $nick = $config->{nick};
 
-    my $irc = Mojo::IRC::UA->new(
+    my $irc = Mojo::IRC->new(
         nick => $config->{nick},
         user => $config->{nick},
         server => $config->{server} . ":" . $config->{port},
     );
+    $irc->tls({}) if $config->{tls};
 
     $irc->on(
         error => sub {