From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 30 Aug 2021 09:12:29 +0000 (+1000)
Subject: update version and add a log line
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=d7340f51626f2f2337808a426f16fc212f7a3f6e;p=rrq%2Fslirc.git

update version and add a log line
---

diff --git a/slirc.pl b/slirc.pl
index 2aab5cb..4a6a245 100755
--- a/slirc.pl
+++ b/slirc.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 # slirc.pl: local Slack IRC gateway
 # Copyright (C) 2017-2019 Daniel Beer <dlbeer@gmail.com>
+# Amendments 2021 by Ralph Ronnquist <ralph.ronnquist@gmail.com>
 #
 # Permission to use, copy, modify, and/or distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -41,6 +42,8 @@
 #
 # Updated 2019-05-08 based on changes from Neia Finch to improve
 # support for bots.
+#
+# Updated 2021-08-30 for Slack API changes.
 
 use strict;
 use warnings;
@@ -56,7 +59,7 @@ use Time::localtime;
 use Digest::SHA qw(sha256);
 use JSON;
 
-my $VERSION = "20190225";
+my $VERSION = "20210830";
 my $start_time = time();
 my %config;
 
@@ -606,6 +609,7 @@ my %irc_command = (
     },
     "JOIN" => sub {
 	my ($c, $name) = @_;
+	print "JOIN $name\n";
 	return unless $c->{Ready};
 	return unless defined($name);