missed sqlite2 bits

[infobot.git] / src / Factoids / DBCommon.pl

diff --git a/src/Factoids/DBCommon.pl b/src/Factoids/DBCommon.pl
index 3ae369418753a59c10940135f9fcf05fe01f6d12..1d869ab986e9e1b084cf7de7dd0aa88b983f505e 100644 (file)
--- a/src/Factoids/DBCommon.pl
+++ b/src/Factoids/DBCommon.pl
@@ -5,16 +5,39 @@
 #     Created: 19991020
 #
 
-if (&IsParam("useStrict")) { use strict; }
+# use strict;  # TODO
 
 #####
-# Usage: &setFactInfo($faqtoid, $type, $primval, $key, $val);
+# Usage: &setFactInfo($faqtoid, $key, $val);
 sub setFactInfo {
-    &dbSet("factoids", 
+    &sqlSet("factoids",
        { factoid_key => $_[0] },
        { $_[1] => $_[2] }
     );
-}   
+}
+
+#####
+# Usage: &getFactInfo($faqtoid, [$what]);
+sub getFactInfo {
+    return &sqlSelect("factoids", $_[1], { factoid_key => $_[0] } );
+}
+
+#####
+# Usage: &getFactoid($faqtoid);
+sub getFactoid {
+    return &getFactInfo($_[0], "factoid_value");
+}
+
+#####
+# Usage: &delFactoid($faqtoid);
+sub delFactoid {
+    my ($faqtoid) = @_;
+
+    &sqlDelete("factoids", { factoid_key => $faqtoid } );
+    &status("DELETED $faqtoid");
+
+    return 1;
+}
 
 #####
 # Usage: &IsLocked($faqtoid);
@@ -40,7 +63,7 @@ sub AddModified {
     my (@modifiedlist, @modified, %modified);
 
     if (defined $modified_by) {
-       push(@modifiedlist, split(/\,/, $modified_by)); 
+       push(@modifiedlist, split(/\,/, $modified_by));
     }
     push(@modifiedlist,$nuh);
 
@@ -60,8 +83,8 @@ sub AddModified {
     }
     shift(@modifiedlist) while (scalar @modifiedlist > 3);
 
-    &setFactInfo($faqtoid,"modified_by",   join(",",@modifiedlist));
-    &setFactInfo($faqtoid,"modified_time", time());
+    &setFactInfo($faqtoid, "modified_by",   join(",",@modifiedlist));
+    &setFactInfo($faqtoid, "modified_time", time());
 
     return 1;
 }