Changeset 1004 for trunk/modules/system.tcl

Timestamp:

04/28/09 19:23:31 (3 years ago)

Author:

james

Message:

Add new away admin plugin
Add some debug to randomstuff/away code
Include away status in .bmotion status
Fix .bmotion help being broken

File:

• trunk/modules/system.tcl (modified) (12 diffs)

trunk/modules/system.tcl

@@ -166 +166 @@
         global bMotionChannels bMotionInfo
 
+        bMotion_putloglev 4 * "bMotion_random_away"
+
         set timeNow [clock seconds]
 
@@ -171 +173 @@
         if {[bMotion_setting_get "bitlbee"]} {
                 #never go away in bitlbee
+                bMotion_putloglev "going away is disabled in bitlbee mode"
                 return 0
         }
@@ -176 +179 @@
         #override if we should never go away
         if {[bMotion_setting_get "useAway"] != 1} {
+                bMotion_putloglev "going away is disabled"
                 return 0
         }
@@ -196 +200 @@
 
         if {($timeNow - $mostRecent) < $gapTime} {
+                bMotion_putloglev 1 * "most recent is busy enough, not going away"
                 return 0
         }
@@ -201 +206 @@
         if {$bMotionInfo(away) == 1} {
                 #away, don't do anything (and don't do randomstuff)
+                bMotion_putloglev d * "I'm already away, not going away again"
                 return 0
         }
@@ -208 +214 @@
                 bMotionSetRandomAway
                 return 1
+        } else {
+                bMotion_putloglev d * "All channels are idle, not going away though"
         }
 
@@ -220 +228 @@
         global BMOTION_SLEEP
 
+        bMotion_putloglev 4 * "doRandomStuff"
+
         set saidChannels [list]
         set silentChannels [list]
@@ -233 +243 @@
         set temp [expr [rand $upperLimit] + $bMotionInfo(minRandomDelay)]
         timer $temp doRandomStuff
-        bMotion_putloglev d * "bMotion: randomStuff next ($temp minutes)"
+        bMotion_putloglev d * "bMotion: randomStuff next in $temp minutes"
 
         # don't bother if we're asleep
@@ -244 +254 @@
 
         if [bMotion_random_away] {
-        # we went away, so stop here
+                # we went away, so stop here
+                bMotion_putloglev d * "we went away, returning from doRandomStuff"
                 return
         }
 
         if {$bMotionInfo(away) == 1} {
-        #away and busy again, return
+                #away and busy again, return
+                bMotion_putloglev d * "was away, setting myself back"
                 bMotionSetRandomBack
         }
 
         if {[bMotion_setting_get "bitlbee"] == "1"} {
+                bMotion_putloglev d * "aborting randomstuff, don't do it in bitlbee mode"
                 return 0
         }
@@ -329 +342 @@
 proc bMotionSetRandomAway {} {
         global randomAways bMotionInfo bMotionSettings bMotionChannels
+        bMotion_putloglev 4 * "bMotionSetRandomAway"
 
         set awayReason [bMotion_abstract_get "randomAways"]
@@ -348 +362 @@
         #set myself back
         global bMotionInfo bMotionSettings bMotionChannels
+        bMotion_putloglev 4 * "bMotionSetRandomBack"
 
         bMotion_update_chanlist
@@ -353 +368 @@
         set bMotionInfo(away) 0
         set bMotionInfo(silence) 0
+        bMotion_putloglev d * "No longer silent or away"
         foreach channel $bMotionChannels {
                 if {[lsearch $bMotionSettings(noAwayFor) $channel] == -1} {