- irctextcounters: add percentage to top3

[infobot.git] / src / Process.pl

diff --git a/src/Process.pl b/src/Process.pl
index f23143b4d006b4ba978258342ee7f2fc5680dc05..8133d7ac9380c3bafd2e11872c2deab1c4c41c71 100644 (file)
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -294,7 +294,8 @@ sub process {
            return;
        }
 
-       my $karma = &dbGet("stats", "counter", "nick='$term' and type='karma'") || 0;
+       my $karma = &dbGet("stats", "counter", "nick=".&dbQuote($term).
+                       " AND type='karma'") || 0;
        if ($inc eq '++') {
            $karma++;
        } else {
@@ -429,15 +430,20 @@ sub FactoidStuff {
                if (!defined $check or $check =~ /^\s*$/) {
                    if ($faqtoid !~ / #DEL#$/) {
                        my $new = $faqtoid." #DEL#";
-                       &DEBUG("Process: backing up $faqtoid to '$new'.");
 
+                       my $backup = &getFactoid($faqtoid);
                        # this looks weird but does it work?
-                       &setFactInfo($faqtoid, "factoid_key", $new);
-                       &setFactInfo($new, "modified_by", $who);
-                       &setFactInfo($new, "modified_time", time());
+                       if ($backup) {
+                           &DEBUG("forget: not overwriting backup: $faqtoid");
+                       } else {
+                           &status("forget: backing up '$faqtoid'");
+                           &setFactInfo($faqtoid, "factoid_key", $new);
+                           &setFactInfo($new, "modified_by", $who);
+                           &setFactInfo($new, "modified_time", time());
+                       }
 
                    } else {
-                       &status("not backing up $faqtoid.");
+                       &status("forget: not backing up $faqtoid.");
                    }
 
                } else {
@@ -687,7 +693,7 @@ sub FactoidStuff {
 #      &performReply( &getRandom(keys %{ $lang{'moron'} }) );
        $count{'Moron'}++;
 
-       &performReply("You are moron #".$count{'Moron'}."!");
+       &performReply("You are moron \002#". $count{'Moron'} ."\002");
        return;
     }