From 3b93dbe4c3a9eb792d3cfa2a9d858c598a0738df Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 21 Dec 2019 19:43:05 -0800
Subject: [PATCH] Channels: add autojoin function

---
 PBot/Channels.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/PBot/Channels.pm b/PBot/Channels.pm
index 22a99a70..1bf6b13a 100644
--- a/PBot/Channels.pm
+++ b/PBot/Channels.pm
@@ -107,6 +107,20 @@ sub list {
   return $result;
 }
 
+sub autojoin {
+  my ($self) = @_;
+  return if $self->{pbot}->{joined_channels};
+  my $chans;
+  foreach my $chan (keys %{ $self->{pbot}->{channels}->{channels}->hash }) {
+    if ($self->{pbot}->{channels}->{channels}->hash->{$chan}{enabled}) {
+      $chans .= "$chan,";
+    }
+  }
+  $self->{pbot}->{logger}->log("Joining channels: $chans\n");
+  $self->{pbot}->{chanops}->join_channel($chans);
+  $self->{pbot}->{joined_channels} = 1;
+}
+
 sub is_active {
   my ($self, $channel) = @_;
   return exists $self->{channels}->hash->{$channel} && $self->{channels}->hash->{$channel}->{enabled};