mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-23 04:19:27 +01:00
MessageHistory: add a couple of necessary API functions
This commit is contained in:
parent
f557307a8a
commit
cfd6925d0f
@ -323,6 +323,20 @@ sub add_message_account {
|
|||||||
return $id;
|
return $id;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub find_message_account_by_id {
|
||||||
|
my ($self, $id) = @_;
|
||||||
|
|
||||||
|
my $hostmask = eval {
|
||||||
|
my $sth = $self->{dbh}->prepare('SELECT hostmask FROM Hostmasks WHERE id = ? ORDER BY last_seen DESC LIMIT 1');
|
||||||
|
$sth->execute($id);
|
||||||
|
my $row = $sth->fetchrow_hashref();
|
||||||
|
return $row->{hostmask};
|
||||||
|
};
|
||||||
|
|
||||||
|
$self->{pbot}->{logger}->log($@) if $@;
|
||||||
|
return $hostmask;
|
||||||
|
}
|
||||||
|
|
||||||
sub find_message_account_by_nick {
|
sub find_message_account_by_nick {
|
||||||
my ($self, $nick) = @_;
|
my ($self, $nick) = @_;
|
||||||
|
|
||||||
@ -889,6 +903,26 @@ sub get_recent_messages {
|
|||||||
return $messages;
|
return $messages;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub get_recent_messages_from_channel {
|
||||||
|
my ($self, $channel, $limit, $mode, $direction) = @_;
|
||||||
|
$limit = 25 if not defined $limit;
|
||||||
|
$direction = 'ASC' if not defined $direction;
|
||||||
|
|
||||||
|
$channel = lc $channel;
|
||||||
|
|
||||||
|
my $mode_query = '';
|
||||||
|
$mode_query = "AND mode = $mode" if defined $mode;
|
||||||
|
|
||||||
|
my $messages = eval {
|
||||||
|
my $sql = "SELECT id, msg, mode, timestamp FROM Messages WHERE channel = ? $mode_query ORDER BY timestamp $direction LIMIT ?";
|
||||||
|
my $sth = $self->{dbh}->prepare($sql);
|
||||||
|
$sth->execute($channel, $limit);
|
||||||
|
return $sth->fetchall_arrayref({});
|
||||||
|
};
|
||||||
|
$self->{pbot}->{logger}->log($@) if $@;
|
||||||
|
return $messages;
|
||||||
|
}
|
||||||
|
|
||||||
sub get_message_context {
|
sub get_message_context {
|
||||||
my ($self, $message, $before, $after, $count, $text, $context_id) = @_;
|
my ($self, $message, $before, $after, $count, $text, $context_id) = @_;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user