Changeset 1053 for trunk/plugins/en/output_VAR.tcl

Timestamp:

11/15/09 19:01:05 (3 years ago)

Author:

james

Message:

support :prev option on VAR
commit message is commit

File:

• trunk/plugins/en/output_VAR.tcl (modified) (3 diffs)

trunk/plugins/en/output_VAR.tcl

@@ -25 +25 @@
         bMotion_putloglev 4 * "bMotion_plugin_output_VAR $channel $line"
         global BMOTION_MIXIN_NONE BMOTION_MIXIN_REVERSE BMOTION_MIXIN_DEFAULT BMOTION_MIXIN_BOTH
-
+        
         set line [string map { "%noun" "%VAR{sillyThings}" } $line]
 
@@ -107 +107 @@
                 foreach option $options_list {
                         switch $option {
+                                "prev" {
+                                        set replacement [bMotion_plugins_settings_get "output:VAR" "last" $channel "$abstract"]
+                                }
                                 "strip" {
                                         set replacement [bMotion_strip_article $replacement]
@@ -146 +149 @@
                         return ""
                 }
+
+                bMotion_plugins_settings_set "output:VAR" "last" $channel $abstract $replacement
                 set line [string replace $line $location [expr $location + [string length $matches] - 1] $replacement]