# see ledbot.html
-# $Id: ledmodule.tcl,v 1.13 2002-06-10 02:35:07 ijackson Exp $
+# $Id: ledmodule.tcl,v 1.14 2002-06-10 03:13:26 ijackson Exp $
set helpfile ledhelp
string match $gl {}
lappend cc($kind) $gl
}
- } elseif {[regexp {^times\s+(\d+)\s+(\d+)$} $l dummy r rnow]} {
+ } elseif {[regexp {^times\s+(\d+)\s+(\d+)$} $l dummy rnow r]} {
foreach cv {{} now} { set cc(time-recent$cv) [set r$cv] }
} elseif {[regexp {^monitor\s+(\S+)\s+(\S.*)$} $l dummy m cl]} {
set cc(chans) {}