Mercurial > hg > egg-tcls
changeset 592:ac72a228089b
urllog: Rename urllog_shorturl_str to urllog_shorturl_codes.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Wed, 27 Jan 2021 16:52:19 +0200 |
| parents | b11484cb3623 |
| children | 3bd5a5e072ad |
| files | urllog.tcl |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Wed Jan 27 13:22:46 2021 +0200 +++ b/urllog.tcl Wed Jan 27 16:52:19 2021 +0200 @@ -46,7 +46,7 @@ set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] -set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" +set urllog_shorturl_codes "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" #------------------------------------------------------------------------- @@ -117,15 +117,15 @@ proc urllog_get_ss {uindex} { - global urllog_shorturl_str - return [string index $urllog_shorturl_str $uindex] + global urllog_shorturl_codes + return [string index $urllog_shorturl_codes $uindex] } proc urllog_get_short {utime} { - global urllog_shorturl_prefix urllog_shorturl_str + global urllog_shorturl_prefix urllog_shorturl_codes - set ulen [string length $urllog_shorturl_str] + set ulen [string length $urllog_shorturl_codes] set u1 [expr $utime / ($ulen * $ulen)] set utmp [expr $utime % ($ulen * $ulen)]