Changeset 1004 for trunk/plugins/admin_general.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/plugins/admin_general.tcl (modified) (4 diffs)

trunk/plugins/admin_general.tcl

@@ -1 +1 @@
 # bMotion admin plugins
 #
-#
-# $Id$
-#
 
 ###############################################################################
 # This is a bMotion plugin
-# Copyright (C) James Michael Seward 2000-2002
+# Copyright (C) James Michael Seward 2000-2009
 #
 # This program is covered by the GPL, please refer the to LICENCE file in the
@@ -24 +21 @@
 bMotion_plugin_add_management "interbot" "^interbot" n bMotion_plugin_management_interbot "any" bMotion_plugin_management_interbot_help
 bMotion_plugin_add_management "flux" "^flux capacitors?" n bMotion_plugin_management_flux "any"
+bMotion_plugin_add_management "away" "^away" n bMotion_plugin_management_away "any" bMotion_plugin_management_away_help
 
 #################################################################################################################################
@@ -67 +65 @@
         bMotion_putadmin "Random stuff happens at least every [bMotion_setting_get minRandomDelay]min, at most every [bMotion_setting_get maxRandomDelay]min, and not if channel quiet for more than [bMotion_setting_get maxIdleGap]min. Active channels have a line in the last [bMotion_setting_get active_idle_sec]sec."
         if [bMotion_setting_get silence] {
-                bMotion_putadmin "Running silent"
+                bMotion_putadmin "I am silent."
+        }
+        if [bMotion_setting_get "away"] {
+                bMotion_putadmin "I am away."
         }
 
@@ -313 +314 @@
                 }
 }
+
+proc bMotion_plugin_management_away { handle { text "" } } {
+        global bMotionInfo
+
+        if {$text == ""} {
+                if {$bMotionInfo(away)} {
+                        bMotion_putadmin "I am currently away."
+                } else {
+                        bMotion_putadmin "I am not away."
+                        }
+                return
+        }
+
+        if {$text == "off"} {
+                bMotion_putadmin "Coming back from being away."
+                set bMotionInfo(away) 0
+                set bMotionInfo(silent) 0
+                return
+        }
+
+        bMotion_putadmin "Use: .bmotion away [off]"
+}
+
+proc bMotion_plugin_management_away_help { } {
+        bMotion_putadmin "Check and adjust the bot's away status"
+        bMotion_putadmin "  .bmotion away"
+        bMotion_putadmin "    Show if the bot is away or not"
+        bMotion_putadmin "  .bmotion away off"
+        bMotion_putadmin "    Make the bot be not-away"
+}
+