add search by fb_post_id method

diff --git a/lib/Mubot4FB/DB.pm b/lib/Mubot4FB/DB.pm
index 7be7acd..664f4ea 100644 (file)
--- a/lib/Mubot4FB/DB.pm
+++ b/lib/Mubot4FB/DB.pm
@@ -89,6 +89,18 @@ sub search_by_word {
        return $ret;
 }
 
+sub search_by_fb_post_id {
+       my ($me, $db_args) = @_;
+
+       my $sth = $me->{dbh}->prepare('select * from posts where fb_post_id = ?');
+       $sth->bind_param(1, $db_args->{fb_post_id}, SQL_BIGINT);
+       $sth->execute();
+       my $ret = $sth->fetchall_arrayref({});
+       $sth->finish;
+
+       return $ret;
+}
+
 sub search_lastpost_by_submitter {
        my ($me, $db_args) = @_;
 

diff --git a/lib/Mubot4FB/Queue.pm b/lib/Mubot4FB/Queue/Client.pm
similarity index 100%
rename from lib/Mubot4FB/Queue.pm
rename to lib/Mubot4FB/Queue/Client.pm