Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:25:41 -04:00
Code Issues Releases Wiki Activity

Add explicit search capability

Browse source
This commit is contained in:
Ryan Voots 2017-03-24 15:35:00 -04:00
parent faec5dcd5d
commit dbc01321d9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plugins/twitter.pm
View file

@ -42,7 +42,8 @@ sub {
# TODO make this also support getting more than one tweet.
if ($said->{body} =~ /^\s*(#\S+)/) {
if ($said->{body} =~ /^\s*(#\S+)/ ||
$said->{body} =~ /^\s*search\s+(.*)/) {
# hash tags. omg.
my $search = $client->search($1);