GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-02 17:38:50 +02:00
Code Issues Projects Releases Wiki Activity

Plugins/RemindMe: fix -c option

Browse Source
This commit is contained in:
Pragmatic Software 2021-06-23 20:21:08 -07:00
parent 7dbfd03c10
commit 8ea3fab219
1 changed files with 17 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Plugins/RemindMe.pm
View File

@ -15,7 +15,7 @@ use PBot::Imports;
use DBI;
use Time::Duration qw/concise duration/;
use Time::HiRes qw/time/;
use Getopt::Long qw(GetOptionsFromArray);
use Getopt::Long qw/GetOptionsFromArray/;
sub initialize {
my ($self, %conf) = @_;
@ -194,7 +194,7 @@ sub cmd_remindme {
my $admininfo = $self->{pbot}->{users}->loggedin_admin($channel ? $channel : $context->{from}, $context->{hostmask});
# option -c was provided; ensure user is an admin and bot is in targeted channel
# option -c was provided; ensure user is an admin and bot is in channel
if ($channel) {
if (not defined $admininfo) {
return "Only admins can create channel reminders.";
@ -272,14 +272,9 @@ sub do_reminder {
return;
}
# nick of person being reminded
my $nick;
# ensure person is available to receive reminder
if (not defined $reminder->{target}) {
# ensures we get the current nick of the person
# ensures we get the current nick of the person being reminded
my $hostmask = $self->{pbot}->{messagehistory}->{database}->find_most_recent_hostmask($reminder->{account});
($nick) = $hostmask =~ /^([^!]+)!/;
my ($nick) = $hostmask =~ /^([^!]+)!/;
# try again in 30 seconds if the person isn't around yet
if (not $self->{pbot}->{nicklist}->is_present_any_channel($nick)) {
@ -287,10 +282,9 @@ sub do_reminder {
$event->{repeating} = 1;
return;
}
}
# send reminder text to person
my $target = $reminder->{target} // $nick;
my $target = $reminder->{channel} // $nick;
my $text = $reminder->{text};
# if sending reminder to channel, highlight person being reminded
@ -298,10 +292,10 @@ sub do_reminder {
$text = "$nick: $text";
}
$self->{pbot}->{conn}->privmsg($target, $reminder->{text});
$self->{pbot}->{conn}->privmsg($target, $text);
# log event
$self->{pbot}->{logger}->log("Reminded $target about \"$reminder->{text}\"\n");
$self->{pbot}->{logger}->log("Reminded $target about \"$text\"\n");
# update repeats or delete reminder
if ($reminder->{repeats} > 0) {
@ -371,7 +365,7 @@ sub create_database {
CREATE TABLE IF NOT EXISTS Reminders (
id INTEGER PRIMARY KEY,
account TEXT,
target TEXT,
channel TEXT,
text TEXT,
alarm NUMERIC,
repeats INTEGER,
@ -413,11 +407,11 @@ sub add_reminder {
my ($self, %args) = @_;
my $id = eval {
my $sth = $self->{dbh}->prepare('INSERT INTO Reminders (account, target, text, alarm, interval, repeats, created_on, created_by) VALUES (?, ?, ?, ?, ?, ?, ?, ?)');
my $sth = $self->{dbh}->prepare('INSERT INTO Reminders (account, channel, text, alarm, interval, repeats, created_on, created_by) VALUES (?, ?, ?, ?, ?, ?, ?, ?)');
$sth->execute(
$args{account},
$args{target},
$args{channel},
$args{text},
$args{alarm},
$args{interval},