add db_search last post

diff --git a/mubot4fb.pl b/mubot4fb.pl
index a2f2ce7..ebc0d00 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -139,6 +139,19 @@ sub _db_search {
        return $ret;
 }
 
+sub _db_search_lastpost {
+       my ($me, $who) = @_;
+
+       my $sth = $me->{dbh}->prepare('select * from posts where submitter = ? order by post_time desc limit 1');
+       $sth->bind_param(1, $who, SQL_VARCHAR);
+       $sth->execute();
+
+       my $ret = $sth->fetch_arrayref();
+       $sth->finish;
+
+       return $ret;
+}
+
 sub _fb_post_uri {
        my ($me, $post_id) = @_;
 
@@ -152,7 +165,6 @@ sub _fb_delete {
        $req->header('Content-Length', 0);
        my $resp;
        eval{$resp = LWP::UserAgent->new->request($req)};
-       warn $resp;
        return !$@;
 }