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

MessageHistory: recall's arguments now behave more sanely

Browse Source
This commit is contained in:
Pragmatic Software 2019-05-20 14:05:58 -07:00
parent a892e8e5c1
commit cd22e21a6a
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
PBot/MessageHistory.pm
View File

@ -256,9 +256,9 @@ sub recall_message {
my $channel_arg = 1 if defined $recall_channel; my $channel_arg = 1 if defined $recall_channel;
my $history_arg = 1 if defined $recall_history; my $history_arg = 1 if defined $recall_history;
$recall_nick = shift @$args; $recall_nick = shift @$args if @$args;
$recall_history = shift @$args if not defined $recall_history; $recall_history = shift @$args if @$args and not defined $recall_history;
$recall_channel = shift @$args if not defined $recall_channel; $recall_channel = "@$args" if @$args and not defined $recall_channel;
$recall_count = 1 if (not defined $recall_count) || ($recall_count <= 0); $recall_count = 1 if (not defined $recall_count) || ($recall_count <= 0);
return "You may only select a count of up to 50 messages." if $recall_count > 50; return "You may only select a count of up to 50 messages." if $recall_count > 50;
@ -266,6 +266,17 @@ sub recall_message {
$recall_before = 0 if not defined $recall_before; $recall_before = 0 if not defined $recall_before;
$recall_after = 0 if not defined $recall_after; $recall_after = 0 if not defined $recall_after;
# imply -x if -n > 1 and no history
if ($recall_count > 1 and not defined $recall_history) {
$recall_context = $recall_nick;
}
# make -n behave like -b if -n > 1 and nick is context
if ((defined $recall_context or not defined $recall_history) and $recall_count > 1) {
$recall_before = $recall_count - 1;
$recall_count = 0;
}
if ($recall_before + $recall_after > 200) { if ($recall_before + $recall_after > 200) {
return "You may only select up to 200 lines of surrounding context."; return "You may only select up to 200 lines of surrounding context.";
} }
@ -301,7 +312,7 @@ sub recall_message {
# another sanity check for people using it wrong # another sanity check for people using it wrong
if ($recall_channel !~ m/^#/) { if ($recall_channel !~ m/^#/) {
$recall_history = "$recall_channel $recall_history"; $recall_history = "$recall_history $recall_channel";
$recall_channel = $from; $recall_channel = $from;
} }