diff --git a/lib/commands/fav.pm b/lib/commands/fav.pm index 8a8d134e03e754d4f028fa94445f72a1e3cc67b2..e272864e00e9c863725d55cf278aa538be112662 100644 --- a/lib/commands/fav.pm +++ b/lib/commands/fav.pm @@ -7,7 +7,7 @@ our $irc; sub exec { my ($nick, $id) = @_; - my $sth = $dbh->prepare_cached('SELECT user FROM playbot_codes WHERE nick = ?'); + my $sth = $dbh->prepare('SELECT user FROM playbot_codes WHERE nick = ?'); $sth->execute($nick) or $log->error("Couldn't finish transaction: " . $dbh->errstr); @@ -15,7 +15,7 @@ sub exec { $irc->yield(privmsg => $nick => "Ce nick n'est associé à aucun login arise. Va sur http://nightiies.iiens.net/links/fav pour obtenir ton code personel."); } else { - my $sth2 = $dbh->prepare_cached('INSERT INTO playbot_fav (id, user) VALUES (?, ?)'); + my $sth2 = $dbh->prepare('INSERT INTO playbot_fav (id, user) VALUES (?, ?)'); $sth2->execute($id, $sth->fetch->[0]) or $log->error("Couldn't finish transaction: " . $dbh->errstr); } diff --git a/lib/commands/get.pm b/lib/commands/get.pm index b7ec425e8bd978f3bfa2ba929268c12d2474d991..8b7945ac16cb8d17ab665c9b0d33d20672499aa3 100644 --- a/lib/commands/get.pm +++ b/lib/commands/get.pm @@ -89,7 +89,7 @@ sub exec { $irc->yield(privmsg => $chan => $irc_msg); # we save the get like a post - $sth = $dbh->prepare_cached(' + $sth = $dbh->prepare(' INSERT INTO playbot_chan (content, chan, sender_irc) VALUES (?,?,?)'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); diff --git a/lib/commands/later.pm b/lib/commands/later.pm index cc8cd2ccbf670d61b0d40b60134d75cd1dcd4600..e9675bab069ca3a66f6eab1458ab250c27e30f0b 100644 --- a/lib/commands/later.pm +++ b/lib/commands/later.pm @@ -9,7 +9,7 @@ sub exec { $time = 6 if (!$time); $time *= ($unit eq 's') ? 1 : ($unit eq 'm') ? 60 : 3600; - my $sth = $dbh->prepare_cached('INSERT INTO playbot_later (content, nick, date) VALUES (?, ?, ?)'); + my $sth = $dbh->prepare('INSERT INTO playbot_later (content, nick, date) VALUES (?, ?, ?)'); unless (defined $sth) { $log->error("Couldn't prepare querie; aborting"); return; diff --git a/lib/commands/tag.pm b/lib/commands/tag.pm index 9660d6658e5be595119c2ce76d5b7aa95774b572..c345defeb40cfbbb9a4a62b767d219e270056a22 100644 --- a/lib/commands/tag.pm +++ b/lib/commands/tag.pm @@ -17,7 +17,7 @@ sub addTag my $sth; - $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag) VALUES (?, ?)'); + $sth = $dbh->prepare('INSERT INTO playbot_tags (id, tag) VALUES (?, ?)'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); eval { diff --git a/lib/sessions/irc.pm b/lib/sessions/irc.pm index b203c8d987c795b06a02365db0a248d676d4d8bf..13815d0e7e0436a12dd2487a3b21cc1f1553f6a7 100644 --- a/lib/sessions/irc.pm +++ b/lib/sessions/irc.pm @@ -80,7 +80,7 @@ sub flux my $date = strftime ("%Y-%m-%d", localtime(time - 3600*24)); foreach (@channels) { - my $sth = $dbh->prepare_cached(' + my $sth = $dbh->prepare(' SELECT COUNT(*) FROM playbot p JOIN playbot_chan pc ON p.id = pc.content @@ -103,7 +103,7 @@ sub later { my ($nick, $id) = @_[ARG0,ARG1]; - my $sth = $dbh->prepare_cached('SELECT url, sender, title FROM playbot WHERE id = ?'); + my $sth = $dbh->prepare('SELECT url, sender, title FROM playbot WHERE id = ?'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); $sth->execute($id) @@ -116,7 +116,7 @@ sub later $irc->yield(privmsg => $nick => $donnees[0]); # save the content in the history - my $sth2 = $dbh->prepare_cached(' + my $sth2 = $dbh->prepare(' INSERT INTO playbot_chan (content, chan, sender_irc) VALUES (?,?,?)'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth2); @@ -243,12 +243,12 @@ sub on_notice $irc->yield(privmsg => $nickToVerify => "Il faut que ton pseudo soit enregistré auprès de NickServ"); } else { - my $sth = $dbh->prepare_cached('SELECT user FROM playbot_codes WHERE code = ?'); + my $sth = $dbh->prepare('SELECT user FROM playbot_codes WHERE code = ?'); $log->error("Counldn't prepare querie; aborting") unless (defined $sth); $sth->execute($code); if ($sth->rows) { - my $sth = $dbh->prepare_cached('UPDATE playbot_codes SET nick = ? WHERE code = ?'); + my $sth = $dbh->prepare('UPDATE playbot_codes SET nick = ? WHERE code = ?'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); $sth->execute($nickToVerify, $code) diff --git a/lib/sites/parser.pm b/lib/sites/parser.pm index 639d86073dca55d45176843fd593f9bbc4039c52..12d744f7e47e71faea447e73ea698df5d1619b29 100644 --- a/lib/sites/parser.pm +++ b/lib/sites/parser.pm @@ -66,7 +66,7 @@ sub parse { else { # insertion de la vidéo dans la bdd eval { - my $sth = $dbh->prepare_cached(' + my $sth = $dbh->prepare(' INSERT INTO playbot (type, url, sender, title, duration) VALUES (?,?,?,?,?)'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); @@ -89,7 +89,7 @@ sub parse { # on peut commiter. $dbh->commit; - my $sth = $dbh->prepare_cached('SELECT id FROM playbot WHERE url = ?'); + my $sth = $dbh->prepare('SELECT id FROM playbot WHERE url = ?'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth); $sth->execute($content{'url'}) @@ -99,7 +99,7 @@ sub parse { } # insertion du chan - my $sth = $dbh->prepare_cached(' + my $sth = $dbh->prepare(' INSERT INTO playbot_chan (content, chan, sender_irc) VALUES (?,?,?)'); $log->error("Couldn't prepare querie; aborting") unless (defined $sth);