times right
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 10 Jun 2002 03:13:26 +0000 (03:13 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 10 Jun 2002 03:13:26 +0000 (03:13 +0000)
ledmodule.tcl

index 33e1483..3c2dec2 100644 (file)
@@ -1,5 +1,5 @@
 # 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
 
@@ -286,7 +286,7 @@ proc reloaduser {username} {
                    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) {}