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

Delete reminders that have expired (remindee not around for 31 days)

Browse Source
This commit is contained in:
Pragmatic Software 2017-08-12 04:43:07 -07:00
parent d104005ee9
commit 4cb7c30dd3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
PBot/Plugins/RemindMe.pm
View File

@ -167,7 +167,7 @@ sub remindme {
return "Internal error."; return "Internal error.";
} }
my $usage = "Usage: remindme [-c channel] message -t time | remindme -l [nick] | remindme -d <id>"; my $usage = "Usage: remindme [-c channel] message -t time | remindme -l [nick] | remindme -d id";
return $usage if not length $arguments; return $usage if not length $arguments;
@ -298,7 +298,7 @@ sub remindme {
if (not defined $admininfo) { if (not defined $admininfo) {
my $reminders = $self->get_reminders($account); my $reminders = $self->get_reminders($account);
if (@$reminders >= 3) { if (@$reminders >= 3) {
return "You may only set 3 reminders at a time. Use `remindme -d <id>` to remove a reminder."; return "You may only set 3 reminders at a time. Use `remindme -d id` to remove a reminder.";
} }
} }
@ -330,6 +330,13 @@ sub check_reminders {
my $hostmask = $self->{pbot}->{messagehistory}->{database}->find_most_recent_hostmask($reminder->{account}); my $hostmask = $self->{pbot}->{messagehistory}->{database}->find_most_recent_hostmask($reminder->{account});
my ($nick) = $hostmask =~ /^([^!]+)!/; my ($nick) = $hostmask =~ /^([^!]+)!/;
# delete this reminder if it's expired by 31 days
if (gettimeofday - $reminder->{alarm} >= 86400 * 31) {
$self->{pbot}->{logger}->log("Deleting expired reminder: $reminder->{id}) $reminder->{text} set by $reminder->{created_by}\n");
$self->delete_reminder($reminder->{id});
next;
}
# don't execute this reminder if the person isn't around yet # don't execute this reminder if the person isn't around yet
next if not $self->{pbot}->{nicklist}->is_present_any_channel($nick); next if not $self->{pbot}->{nicklist}->is_present_any_channel($nick);