Changeset 1019 for trunk/plugins/en/output_REPEAT.tcl
- Timestamp:
- 08/23/09 19:22:05 (3 years ago)
- File:
-
- 1 edited
-
trunk/plugins/en/output_REPEAT.tcl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/plugins/en/output_REPEAT.tcl
r961 r1019 1 #2 #3 1 # vim: fdm=indent fdn=1 4 2 # … … 6 4 ############################################################################### 7 5 # This is a bMotion plugin 8 # Copyright (C) James Michael Seward 2000-200 86 # Copyright (C) James Michael Seward 2000-2009 9 7 # 10 8 # This program is covered by the GPL, please refer the to LICENCE file in the … … 17 15 18 16 proc bMotion_plugin_output_REPEAT { channel line } { 19 set previous_line "" 20 while {[regexp -nocase "%REPEAT\{(.+?)\}" $line matches BOOM]} { 17 if {[regexp -nocase "%REPEAT\{(.+?)\}" $line matches BOOM]} { 21 18 set replacement [bMotionMakeRepeat $BOOM] 22 19 regsub -nocase "%REPEAT\\{$BOOM\\}" $line $replacement line 23 if {$previous_line == $line} {24 putlog "bMotion: ALERT! looping too much in %REPEAT code with $line (no change since last parse)"25 set line ""26 break27 }28 set previous_line $line29 20 } 30 21 return $line
Note: See TracChangeset
for help on using the changeset viewer.
