Skip to content

Instantly share code, notes, and snippets.

@timo
Created September 28, 2016 16:42
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save timo/58996f10e6334fcab124f86b510b8fc2 to your computer and use it in GitHub Desktop.
Save timo/58996f10e6334fcab124f86b510b8fc2 to your computer and use it in GitHub Desktop.
diff --git a/synopsebot.p6 b/synopsebot.p6
index 1f95a16..6e30fe4 100755
--- a/synopsebot.p6
+++ b/synopsebot.p6
@@ -32,7 +32,7 @@ class SynopsesBot {
}
method info:sym<Snn> ($/) {
- return unless $<line> < 9999;
+ return unless $<entry> or $<line> < 9999;
my $syn = $<subsyn> ?? "$<syn>/$<subsyn>" !! $<syn>;
my $name = $<line> ?? "line_" ~ $<line> !! $<entry>.trans(" " => "_");
$e.msg("Link: http://design.perl6.org/$syn.html#$name");
@@ -52,14 +52,13 @@ class SynopsesBot {
my $bot = Net::IRC::Bot.new(
server => "irc.freenode.net",
port => 6667,
- channels => ["#duff"],
+ channels => ["#perl6", "#moarvm", "#perl6-dev", "#perl6-release"],
- nick => "jsdbot",
- username => "jsdbot",
- name => "blame PerlJam",
+ nick => "synopsebot6",
+ username => "synopsebot6",
+ name => "i link to perl6 design docs",
modules => ( SynopsesBot.new ),
- :debug
);
$bot.run();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment