projects
/
rrq
/
slirc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
623b863
)
update version and add a log line
master
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Mon, 30 Aug 2021 09:12:29 +0000
(19:12 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Mon, 30 Aug 2021 09:12:29 +0000
(19:12 +1000)
slirc.pl
patch
|
blob
|
history
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>
#!/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
#
# 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 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;
use strict;
use warnings;
@@
-56,7
+59,7
@@
use Time::localtime;
use Digest::SHA qw(sha256);
use JSON;
use Digest::SHA qw(sha256);
use JSON;
-my $VERSION = "20
190225
";
+my $VERSION = "20
210830
";
my $start_time = time();
my %config;
my $start_time = time();
my %config;
@@
-606,6
+609,7
@@
my %irc_command = (
},
"JOIN" => sub {
my ($c, $name) = @_;
},
"JOIN" => sub {
my ($c, $name) = @_;
+ print "JOIN $name\n";
return unless $c->{Ready};
return unless defined($name);
return unless $c->{Ready};
return unless defined($name);