GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-27 06:19:25 +01:00
Code Issues Projects Releases Wiki Activity

Add -nick/-channel/-text options to quotegrabs rq command (also retaining original syntax)

Browse Source
This commit is contained in:
Pragmatic Software 2014-03-15 08:07:05 +00:00
parent f998f974c0
commit 2faeeb2de8
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
PBot/Quotegrabs.pm
View File

@ -407,9 +407,7 @@ sub show_quotegrab {
sub show_random_quotegrab { sub show_random_quotegrab {
my ($self, $from, $nick, $user, $host, $arguments) = @_; my ($self, $from, $nick, $user, $host, $arguments) = @_;
my @quotes = (); my @quotes = ();
my $nick_search = ".*"; my ($nick_search, $channel_search, $text_search);
my $channel_search = $from;
my $text_search = ".*";
if(not defined $from) { if(not defined $from) {
$self->{pbot}->logger->log("Command missing ~from parameter!\n"); $self->{pbot}->logger->log("Command missing ~from parameter!\n");
@ -417,14 +415,26 @@ sub show_random_quotegrab {
} }
if(defined $arguments) { if(defined $arguments) {
($nick_search, $channel_search, $text_search) = split /\s+/, $arguments; $nick_search = $1 if $arguments =~ s/-nick\s+(\S+)//g;
$channel_search = $1 if $arguments =~ s/-channel\s+(\S+)//g;
$text_search = $1 if $arguments =~ s/-text\s+(\S+)//g;
$arguments =~ s/^\s+//;
$arguments =~ s/\s+$//;
my ($possible_nick_search, $possible_channel_search, $possible_text_search) = split /\s+/, $arguments;
$nick_search = $possible_nick_search if not defined $nick_search;
$channel_search = $possible_channel_search if not defined $channel_search;
$text_search = $possible_text_search if not defined $text_search;
if(not defined $channel_search) { if(not defined $channel_search) {
$channel_search = $from; $channel_search = $from;
} }
} }
$nick_search = '.*' if not defined $nick_search; $nick_search = '.*' if not defined $nick_search;
$channel_search = '.*' if not defined $channel_search; $channel_search = '.*' if not defined $channel_search or $channel_search !~ /^#/;
$text_search = '.*' if not defined $text_search; $text_search = '.*' if not defined $text_search;
eval { eval {
@ -457,7 +467,7 @@ sub show_random_quotegrab {
$result .= "matching '$text_search' "; $result .= "matching '$text_search' ";
} }
return $result . "yet (use `rq <nick> <channel>` to specify the correct channel).. Use `grab` to grab a quote.";; return $result . "yet (use `rq <nick> <channel>` to specify the correct channel). Use `grab` to grab a quote.";;
} }
my $quotegrab = $quotes[int rand($#quotes + 1)]; my $quotegrab = $quotes[int rand($#quotes + 1)];
@ -465,9 +475,9 @@ sub show_random_quotegrab {
my ($first_nick) = split /\+/, $quotegrab->{nick}, 2; my ($first_nick) = split /\+/, $quotegrab->{nick}, 2;
if($text =~ s/^\/me\s+//) { if($text =~ s/^\/me\s+//) {
return "$quotegrab->{id}: * $first_nick $text"; return "$quotegrab->{id}: " . ($channel_search eq '.*' ? "[$quotegrab->{channel}] " : "") . "* $first_nick $text";
} else { } else {
return "$quotegrab->{id}: <$first_nick> $text"; return "$quotegrab->{id}: " . ($channel_search eq '.*' ? "[$quotegrab->{channel}] " : "") . "<$first_nick> $text";
} }
} }

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 526, BUILD_REVISION => 527,
BUILD_DATE => "2014-03-14", BUILD_DATE => "2014-03-15",
}; };
1; 1;