- strictify

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

diff --git a/src/Factoids/DBCommon.pl b/src/Factoids/DBCommon.pl
index 48b2eee90d9e66a8d2f3807c8c844f7c793541eb..709fd41b24181bc852234bb3696811da09f1fff9 100644 (file)
--- a/src/Factoids/DBCommon.pl
+++ b/src/Factoids/DBCommon.pl
@@ -5,10 +5,10 @@
 #     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", 
        { factoid_key => $_[0] },
@@ -16,6 +16,29 @@ sub setFactInfo {
     );
 }   
 
+#####
+# 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 {