- irctextcounters: add percentile/ranking.

[infobot.git] / src / Process.pl

diff --git a/src/Process.pl b/src/Process.pl
index a685181327a36520db746b304e275ebcad5cc5db..255730f270f79bc23712d796f6d78f5321d54667 100644 (file)
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -72,6 +72,7 @@ sub process {
        &joinchan($chankey);
        &status("JOIN $chankey <$who>");
        &msg($who, "joining $chankey");
+       &joinNextChan();        # hack.
 
        return;
     }
@@ -121,7 +122,7 @@ sub process {
     # 'pass'
     if ($msgType =~ /private/ and $message =~ s/^pass//i) {
        $message =~ s/^\s+|\s+$//g;
-       my @array = split / /, $message;
+       my @array = split ' ', $message;
 
        if ($who =~ /^_default$/i) {
            &pSReply("you are too eleet.");
@@ -134,14 +135,21 @@ sub process {
        }
 
        # todo: use &getUser()?
-       my $first       = (scalar keys %users) ? 1 : 0;
+       my $first       = 1;
+       foreach (keys %users) {
+           if ($users{$_}{FLAGS} =~ /n/) {
+               $first = 0;
+               last;
+           }
+       }
+
        if (!exists $users{$who} and !$first) {
            &pSReply("nick $who is not in user list.");
            return;
        }
 
        if ($first) {
-           &pSReply("first time user... adding you as master.");
+           &pSReply("First time user... adding you as Master.");
            $users{$who}{FLAGS} = "mrsteon";
        }
 
@@ -158,7 +166,7 @@ sub process {
 
        if (!scalar keys %{ $users{$who}{HOSTS} }) {
            my $mask = "*!$user@".&makeHostMask($host);
-           &pSReply("added mask $mask to $who.");
+           &pSReply("Added hostmask '\002$mask\002' to $who");
            $users{$who}{HOSTS}{$mask}  = 1;
        }
 
@@ -271,11 +279,6 @@ sub process {
     ### bot commands...
     ###
 
-    if ($message =~ s/^literal\s+//i) {
-       &status("literal ask of '$message'.");
-       $literal = 1;
-    }
-
     # karma. set...
     if ($message =~ /^(\S+)(--|\+\+)\s*$/ and $addressed) {
        return '' unless (&hasParam("karma"));
@@ -292,15 +295,18 @@ 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 {
            $karma--;
        }
 
-       &dbSet("stats", "nick",$term, "type","karma");
-#      &dbSet("stats", "nick",$term, "type","karma");
+       &dbSet("stats", 
+               { nick => $term, type => "karma" },
+               { counter => $karma }
+       );
 
        return;
     }
@@ -396,6 +402,9 @@ sub FactoidStuff {
            my $limit   = &getChanConfDefault("factoidPreventForgetLimit", 
                                0, $chan);
 
+           &DEBUG("forget: limit = $limit");
+           &DEBUG("forget: count = $count");
+
            if (IsFlag("r") ne "r") {
                &msg($who, "you don't have access to remove factoids");
                return;
@@ -422,15 +431,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 {
@@ -680,7 +694,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;
     }