don't backup #DEL# factoids. asuffield.

[infobot.git] / src / db_mysql.pl

diff --git a/src/db_mysql.pl b/src/db_mysql.pl
index e8055569fba60964b27aa603b4530dec3a30e9d1..4a9d2687dbda31fcbca4812e0acf4f8c0966edc0 100644 (file)
--- a/src/db_mysql.pl
+++ b/src/db_mysql.pl
@@ -25,10 +25,7 @@ sub openDB {
 }
 
 sub closeDB {
-    if (!$dbh) {
-       &WARN("closeDB: connection already closed?");
-       return 0;
-    }
+    return 0 unless ($dbh);
 
     &status("Closed MySQL connection to $param{'SQLHost'}.");
     $dbh->disconnect();
@@ -58,7 +55,8 @@ sub dbGet {
     if (!$sth->execute) {
        &ERROR("Get => '$query'");
        &ERROR("Get => $DBI::errstr");
-       return;
+       $sth->finish;
+       return 0;
     }
 
     my @retval = $sth->fetchrow_array;
@@ -86,6 +84,7 @@ sub dbGetCol {
     if (!$sth->execute) {
        &ERROR("GetCol => '$query'");
        &ERROR("GetCol => $DBI::errstr");
+       $sth->finish;
        return;
     }
 
@@ -118,6 +117,8 @@ sub dbGetRowInfo {
     if (!$sth->execute) {
        &ERROR("GRI => '$query'");
        &ERROR("GRI => $DBI::errstr");
+       $sth->finish;
+       return;
     }
 
     my @cols;
@@ -223,6 +224,7 @@ sub dbRaw {
     if (!$sth->execute) {
        &ERROR("Raw($prefix): => '$query'");
        &ERROR("Raw($prefix): $DBI::errstr");
+       $sth->finish;
        return 0;
     }
 
@@ -357,7 +359,7 @@ sub delFactoid {
     my ($faqtoid) = @_;
 
     &dbDel("factoids", "factoid_key",$faqtoid);
-    &status("DELETED $faqtoid");
+    &status("DELETED '$faqtoid'");
 
     return 1;
 }