fix SQL param

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 6b7d6de..6028ca6 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -93,13 +93,13 @@ sub _db_insert {
 
        my ($scheme, $path) = split(/:\/\//, $db_args->{uri});
        my $sth = $me->{dbh}->prepare("insert into posts (submitter, fb_post_id, uri, prefix, suffix, scheme, path, post_time) values (?, ?, ?, ?, ?, ?)");
-       $sth->bind_param(1, $db_args->{submitter}, SQL_TEXT);
+       $sth->bind_param(1, $db_args->{submitter}, SQL_VCHAR);
        $sth->bind_param(2, $db_args->{fb_post_id}, SQL_BIGINT);
-       $sth->bind_param(3, $db_args->{uri}, SQL_TEXT);
-       $sth->bind_param(4, $db_args->{prefix}, SQL_TEXT);
-       $sth->bind_param(5, $db_args->{suffix}, SQL_TEXT);
-       $sth->bind_param(6, $scheme, SQL_TEXT);
-       $sth->bind_param(7, $path, SQL_TEXT);
+       $sth->bind_param(3, $db_args->{uri}, SQL_VCHAR);
+       $sth->bind_param(4, $db_args->{prefix}, SQL_VCHAR);
+       $sth->bind_param(5, $db_args->{suffix}, SQL_VCHAR);
+       $sth->bind_param(6, $scheme, SQL_VCHAR);
+       $sth->bind_param(7, $path, SQL_VCHAR);
        $sth->bind_param(8, time, SQL_BIGINT);
        my $rv = $sth->execute();
        $sth->finish;