Mercurial > hg > egg-tcls
changeset 152:cbee8ca52eb8
urllog: Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 01 Jun 2014 12:02:55 +0300 |
parents | 8bf27e277672 |
children | 8b888a9f07df |
files | urllog.tcl |
diffstat | 1 files changed, 1 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Sun Jun 01 12:02:39 2014 +0300 +++ b/urllog.tcl Sun Jun 01 12:02:55 2014 +0300 @@ -215,22 +215,18 @@ } -proc urllog_ctime { utime } { - +proc urllog_ctime {utime} { if {$utime == "" || $utime == "*"} { set utime 0 } - return [clock format $utime -format "%d.%m.%Y %H:%M"] } proc urllog_isnumber {uarg} { - foreach i [split $uarg {}] { if {![string match \[0-9\] $i]} { return 0 } } - return 1 }