update version and add a log line

diff --git a/slirc.pl b/slirc.pl
index 2aab5cb7a2416408ad843488455c360ea83fb9ad..4a6a2450573a0d4c58d2eef9c6ce7c5073bf560e 100755 (executable)
--- 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);