-
-
Save timo/a86005834812816fd7c8bf18870932a8 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/bin/geth.p6 b/bin/geth.p6 | |
index 90dcda4..c1e46dc 100755 | |
--- a/bin/geth.p6 | |
+++ b/bin/geth.p6 | |
@@ -11,7 +11,7 @@ class Geth::Plugin::Info { | |
multi method irc-to-me ($ where /^ \s* ['help' | 'source' ] '?'? \s* $/) { | |
"Source at https://github.com/perl6/geth " | |
~ "To add repo, add an 'application/json' webhook on GitHub " | |
- ~ "pointing it to http://hack.p6c.org:8888/?chan=#perl6 and choose " | |
+ ~ "pointing it to http://hack.p6c.org:8888/?chan=%23perl6,%23perl6-dev and choose " | |
~ "'Send me everything' for events to send | use `ver URL to commit` " | |
~ "to fetch version bump changes"; | |
} | |
diff --git a/lib/Geth/GitHub/Hooks.pm6 b/lib/Geth/GitHub/Hooks.pm6 | |
index 92a4d13..ad580e8 100644 | |
--- a/lib/Geth/GitHub/Hooks.pm6 | |
+++ b/lib/Geth/GitHub/Hooks.pm6 | |
@@ -155,7 +155,7 @@ sub make-event ($e, :$event, :$query) { | |
say "Got `$event` event"; | |
dd [$query, $e]; | |
say "-" x 100; | |
- return; | |
+ return Empty; | |
} | |
} | |
} | |
diff --git a/lib/Geth/Plugin/GitHub.pm6 b/lib/Geth/Plugin/GitHub.pm6 | |
index bec54dc..ba10114 100644 | |
--- a/lib/Geth/Plugin/GitHub.pm6 | |
+++ b/lib/Geth/Plugin/GitHub.pm6 | |
@@ -48,6 +48,12 @@ method irc-started { | |
dd [ 'chans', @chans, @bot-chans, @chans ⊆ @bot-chans ]; | |
+ if @chans.elems == 0 || @chans.elems == 1 && @chans[0] eq "" { | |
+ note "reporting that this repo didn't have a proper channel in its request"; | |
+ dd $e; | |
+ throttle { $.irc.send: where => "#perl6-dev", text => "$e.repo() must have its webhook fixed; no channels were sent by github, please check if # needs to be replaced by %23" } | |
+ } | |
+ | |
if keys @chans ∩ @bot-chans -> @send-to-chans { | |
my $text = make-text $e or next; | |
for @send-to-chans -> $where { |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment