fix binding type

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 000acc3..f5ee769 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -91,11 +91,11 @@ sub _db_insert {
 
        my $sth = $me->{dbh}->prepare("insert into posts (submitter, fb_post_id, uri, prefix, suffix, post_time) values (?, ?, ?, ?, ?, ?)");
        $sth->bind_param(1, $db_args->{submitter}, SQL_VARCHAR);
-       $sth->bind_param(2, $db_args->{fb_post_id}, SQL_INTEGER);
+       $sth->bind_param(2, $db_args->{fb_post_id}, SQL_BIGINT);
        $sth->bind_param(3, $db_args->{uri}, SQL_VARCHAR);
        $sth->bind_param(4, $db_args->{prefix}, SQL_VARCHAR);
        $sth->bind_param(5, $db_args->{suffix}, SQL_VARCHAR);
-       $sth->bind_param(6, time, SQL_INTEGER);
+       $sth->bind_param(6, time, SQL_BIGINT);
        my $rv = $sth->execute();
        $sth->finish;
 
@@ -108,7 +108,7 @@ sub _db_delete {
 
        my $sth = $me->{dbh}->prepare("delete from posts where fb_post_id = ? and submitter = ? and submitter_type = ?");
 
-       $sth->bind_param(1, $db_args->{fb_post_id}, SQL_INTEGER);
+       $sth->bind_param(1, $db_args->{fb_post_id}, SQL_BIGINT);
        $sth->bind_param(2, $db_args->{submitter}, SQL_VARCHAR);
        $sth->bind_param(3, $db_args->{submitter_type}, SQL_INTEGER);
        my $rv = $sth->execute();