+ # would this slow things down?
+ if ($_ = &getChanConf("ircTextCounters")) {
+ my $time = time();
+
+ foreach (split /[\s]+/) {
+ my $x = $_;
+
+ # either full word or ends with a space, etc...
+ next unless ($msg =~ /^\Q$x\E[\$\s!.]/i);
+
+ &VERB("textcounters: $x matched for $who",2);
+ my $c = $chan || "PRIVATE";
+
+ my ($v,$t) = &dbGet("stats", "counter,time",
+ "nick=". &dbQuote($who)
+ ." AND type=".&dbQuote($x)
+ ." AND channel=".&dbQuote($c)
+ );
+ $v++;
+
+ # don't allow ppl to cheat the stats :-)
+ next unless ($time - $t > 10);
+
+ my %hash = (
+ nick => $who,
+ type => $x,
+ channel => $c,
+
+ time => $time,
+ counter => $v,
+ );
+
+
+ &dbReplace("stats", "nick", %hash);
+ # does not work, atleast with old mysql!!! :(
+# &dbReplace("stats", (nick => $who, type => $x, -counter => "counter+1") );
+ }
+ }