From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 5 Sep 2003 19:33:46 +0000 (+0000)
Subject: seen config
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8027e70bc9234d02c2a774463bbd3766ac3c6ade;p=infobot.git

seen config


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@831 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/files/sample/sample.chan b/blootbot/files/sample/sample.chan
index 920f4d2..b4a2fbb 100644
--- a/blootbot/files/sample/sample.chan
+++ b/blootbot/files/sample/sample.chan
@@ -50,6 +50,7 @@ _default
     +seen
     seenFlushInterval 60
     seenMaxDays 90
+    +seenStoreAll
     +seenStats
     +slashdot
     +spell
diff --git a/blootbot/files/sample/sample.config b/blootbot/files/sample/sample.config
index 7733b7c..8bd2953 100644
--- a/blootbot/files/sample/sample.config
+++ b/blootbot/files/sample/sample.config
@@ -257,21 +257,6 @@ set rootWarnMode	passive
 # [0/1] Factoid search.
 set search		false
 
-# [0/1] persistant "seen".
-set seen		true
-# [0/1] seen statistics for online users like idle time, total message
-#	count.
-set seenStats		true
-# [int] if someone's been away for more than xx days, delete their info.
-#	info.
-set seenMaxDays		30
-# [int] interval to flush cached seen info. in minutes.
-set seenFlushInterval	60
-# [bool] store all information, irrevelent of addressing.
-#	may chew more CPU.
-#	Will encourage severe leakaged (2-3x), caused by mysql-perl?
-set seenStoreAll	1
-
 # [0/1] keeps stats on individual commands
 set stats		true
 
diff --git a/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 5b26d5b..b1640ae 100644
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/src/CommandStubs.pl
@@ -541,7 +541,7 @@ sub seen {
 	    $reply .= " (".&Time2String(time() - $userstats{lc $seen[0]}{'Join'}).")";
 	}
 
-	if (&IsParam("seenStats")) {
+	if (&IsChanConf("seenStats") > 0) {
 	    my $i;
 	    $i = $userstats{lc $seen[0]}{'Count'};
 	    $reply .= ".  Has said a total of \002$i\002 messages" if (defined $i);
diff --git a/blootbot/src/IRC/IrcHelpers.pl b/blootbot/src/IRC/IrcHelpers.pl
index 1ee2835..2518772 100644
--- a/blootbot/src/IRC/IrcHelpers.pl
+++ b/blootbot/src/IRC/IrcHelpers.pl
@@ -221,8 +221,8 @@ sub hookMsg {
     }
     push(@ignore, keys %{ $ignore{"*"} }) if (exists $ignore{"*"});
 
-    if ((!$skipmessage or &IsChanConf("seenStoreAll")) and
-	&IsChanConf("seen") and
+    if ((!$skipmessage or &IsChanConf("seenStoreAll") > 0) and
+	&IsChanConf("seen") > 0 and
 	$msgType =~ /public/
     ) {
 	$seencache{$who}{'time'} = time();
diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index 45fee8b..8c36f59 100644
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/src/IRC/IrcHooks.pl
@@ -474,7 +474,7 @@ sub on_join {
     }
 
     $chanstats{$chan}{'Join'}++;
-    $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats"));
+    $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats") > 0);
     $cache{maxpeeps}{$chan}	= $i if ($i > $j);
 
     &joinfloodCheck($who, $chan, $event->userhost);
@@ -817,7 +817,7 @@ sub on_part {
 	&clearChanVars($chan);
     }
 
-    if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats")) {
+    if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats") > 0) {
 	delete $userstats{lc $nick};
     }
 
@@ -868,7 +868,7 @@ sub on_public {
     $msgtime		= time();
     $lastWho{$chan}	= $nick;
     ### TODO: use $nick or lc $nick?
-    if (&IsChanConf("seenStats")) {
+    if (&IsChanConf("seenStats") > 0) {
 	$userstats{lc $nick}{'Count'}++;
 	$userstats{lc $nick}{'Time'} = time();
     }
@@ -977,7 +977,7 @@ sub on_quit {
 	# well.. it's good but weird that this has happened - lets just
 	# be quiet about it.
     }
-    delete $userstats{lc $nick} if (&IsChanConf("seenStats"));
+    delete $userstats{lc $nick} if (&IsChanConf("seenStats") > 0);
     delete $chanstats{lc $nick};
     ###