From: Ralph Ronnquist 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 +# Amendments 2021 by Ralph Ronnquist # # 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);