Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Show the search url on help request.

  • Loading branch information...
commit f013dac05dc5b98c97d29f2b010f9af45501eb92 1 parent 452b559
@coke authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 bin/cj.pl
View
4 bin/cj.pl
@@ -8,6 +8,7 @@
my $max-twitter-id;
my $base-url = "http://search.twitter.com/search.json?q=";
+my $human-url = "https://twitter.com/#!/search/";
my $search-criteria = "%23perl6%20OR%20%23p6p5%20OR%20%23p5p6%20OR%20%22perl%206%22";
my $nick = "cjbot";
@@ -15,7 +16,8 @@
class Help {
multi method said($e where { $e.what ~~ /^ $nick ':' <.ws> [ '?' | 'help' | 'h'] /}) {
- $e.msg: "Run by Coke, I relay tweets about Perl 6.";
+ $e.msg: "Run by Coke, I relay tweets about Perl 6 from " ~ $human-url ~
+ $search-criteria;
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.