add db delete

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 1d7b327..14096a9 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -90,6 +90,18 @@ sub _db_insert {
        return $rv;
 }
 
+sub _db_delete {
+       my ($me, $db_args) = @_;
+       my $sth = $me->{dbh}->prepare("delete from posts where fb_post_id = ? and nick = ?");
+       my $rv = $sth->execute($db_args->{fb_post_id}, $db_args->{nick});
+
+       my $ret = $rv ? $sth->rows : 0;
+
+       $sth->finish;
+
+       return $ret;
+}
+
 sub _response {
        my ($me, $args, $msg) = @_;
 
@@ -147,13 +159,19 @@ sub _delete_post_id {
 }
 
 sub _delete {
-       my ($me, $id)  =@_;
+       my ($me, $args, $post_id)  =@_;
 
+       $me->{dbh}->begin_work;
+       if ($me->_db_delete(fb_post_id => $post_id, nick => $args->{who})) {
+
+       } else {
+               $me->{dbh}->rollback;
+       }
        return _not_yet();
 }
 
 sub _search {
-       my ($me, $id)  =@_;
+       my ($me, $id)  = @_;
 
        return _not_yet();
 }
@@ -173,7 +191,7 @@ sub said {
                if ($cmd eq 'いまのなし') {
                        $resp_msg = $me->_delete_prev($args);
                } elsif ($cmd =~ /削除 ([0-9]+)$/) {
-                       $resp_msg = $me->_delete($args, $1);
+                       $resp_msg = $me->_delete_post_id($args, $1);
                } elsif ($cmd =~ /\?$/) {
                        $resp_msg = $me->_search($args);
                } elsif ($cmd =~ /つぎ/) {