From 542d55e56558d73eeff507a4d43531f2e9cdf4d7 Mon Sep 17 00:00:00 2001
From: kimjackson <kim.jackson@gmail.com>
Date: Wed, 14 Sep 2022 16:01:23 +1000
Subject: [PATCH 1/2] Switch to rtm.connect API

The rtm.start API is deprecated.
More details: https://api.slack.com/changelog/2021-10-rtm-start-to-stop
---
 lib/Slack/RTM/Bot/Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slack/RTM/Bot/Client.pm b/lib/Slack/RTM/Bot/Client.pm
index 58ac228..6056f06 100644
--- a/lib/Slack/RTM/Bot/Client.pm
+++ b/lib/Slack/RTM/Bot/Client.pm
@@ -38,7 +38,7 @@ sub connect {
 	my $self = shift;
 	my ($token) = @_;
 
-	my $res = $ua->request(POST 'https://slack.com/api/rtm.start', [ token => $token ]);
+	my $res = $ua->request(POST 'https://slack.com/api/rtm.connect', [ token => $token ]);
 	my $content;
 	eval {
 		$content = JSON::from_json($res->content);

From d14614eb292f907455036e11e7a2da872227c50d Mon Sep 17 00:00:00 2001
From: kimjackson <kim.jackson@gmail.com>
Date: Wed, 14 Sep 2022 16:03:54 +1000
Subject: [PATCH 2/2] Fix incorrect key in users.list response parsing

The users.list API response contains the key `members`, not `users`.
---
 lib/Slack/RTM/Bot/Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slack/RTM/Bot/Client.pm b/lib/Slack/RTM/Bot/Client.pm
index 6056f06..87efe52 100644
--- a/lib/Slack/RTM/Bot/Client.pm
+++ b/lib/Slack/RTM/Bot/Client.pm
@@ -206,7 +206,7 @@ sub _refetch_users {
 		do {
 			$res = $ua->request(GET "https://slack.com/api/users.list?token=$self->{token}&cursor=$cursor");
 			my $args = JSON::from_json($res->content);
-			for my $user (@{$args->{users}}) {
+			for my $user (@{$args->{members}}) {
 				$users->{$user->{id}} = $user;
 			}
 			$cursor = $args->{response_metadata}->{next_cursor};