- strictify

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

diff --git a/src/Factoids/DBCommon.pl b/src/Factoids/DBCommon.pl
index fd98ece69c96b3d233101c26e411ab3e1b68cdd8..709fd41b24181bc852234bb3696811da09f1fff9 100644 (file)
--- a/src/Factoids/DBCommon.pl
+++ b/src/Factoids/DBCommon.pl
@@ -5,14 +5,40 @@
 #     Created: 19991020
 #
 
-if (&IsParam("useStrict")) { use strict; }
+# use strict;  # TODO
 
 #####
-# Usage: &setFactInfo($faqtoid, $type, $what, ?, ?);
+# Usage: &setFactInfo($faqtoid, $key, $val);
 sub setFactInfo {
-    &dbSet("factoids", "factoid_key", $_[0], $_[1], $_[2]);
+    &dbSet("factoids", 
+       { factoid_key => $_[0] },
+       { $_[1] => $_[2] }      # dbquote done in dbset!
+    );
 }   
 
+#####
+# Usage: &getFactInfo($faqtoid, [$what]);
+sub getFactInfo {
+    return &dbGet("factoids", $_[1], "factoid_key=".&dbQuote($_[0]) );
+}
+
+#####
+# Usage: &getFactoid($faqtoid);
+sub getFactoid {
+    return &getFactInfo($_[0], "factoid_value");
+}
+
+##### 
+# Usage: &delFactoid($faqtoid);
+sub delFactoid {
+    my ($faqtoid) = @_;
+
+    &dbDel("factoids", "factoid_key",$faqtoid);
+    &status("DELETED $faqtoid");
+ 
+    return 1;
+}
+
 #####
 # Usage: &IsLocked($faqtoid);
 sub IsLocked {