OSDN Git Service
(root)
/
mubot4fb
/
mubot4fb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
725bc17
)
add db delete
author
ISHIKAWA Mutsumi
<ishikawa@hanzubon.jp>
Fri, 13 Jan 2012 09:17:29 +0000
(18:17 +0900)
committer
ISHIKAWA Mutsumi
<ishikawa@hanzubon.jp>
Fri, 13 Jan 2012 09:17:29 +0000
(18:17 +0900)
mubot4fb.pl
patch
|
blob
|
history
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;
}
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) = @_;
sub _response {
my ($me, $args, $msg) = @_;
@@
-147,13
+159,19
@@
sub _delete_post_id {
}
sub _delete {
}
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 {
return _not_yet();
}
sub _search {
- my ($me, $id) =@_;
+ my ($me, $id) =
@_;
return _not_yet();
}
return _not_yet();
}
@@
-173,7
+191,7
@@
sub said {
if ($cmd eq 'いまのなし') {
$resp_msg = $me->_delete_prev($args);
} elsif ($cmd =~ /削除 ([0-9]+)$/) {
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 =~ /つぎ/) {
} elsif ($cmd =~ /\?$/) {
$resp_msg = $me->_search($args);
} elsif ($cmd =~ /つぎ/) {