Mercurial > hg > egg-tcls

comparison urllog.tcl @ 592:ac72a228089b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 a488be0f45e0
comparison
equal deleted inserted replaced
591:b11484cb3623 592:ac72a228089b
44 set urllog_version "2.7.0" 44 set urllog_version "2.7.0"
45 set urllog_message "$urllog_name v$urllog_version (C) 2000-2021 ccr/TNSP" 45 set urllog_message "$urllog_name v$urllog_version (C) 2000-2021 ccr/TNSP"
46 46
47 47
48 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 48 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
49 set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" 49 set urllog_shorturl_codes "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
50 50
51 51
52 #------------------------------------------------------------------------- 52 #-------------------------------------------------------------------------
53 ### Utility functions 53 ### Utility functions
54 proc urllog_log {umsg} { 54 proc urllog_log {umsg} {
115 return $uencoding 115 return $uencoding
116 } 116 }
117 117
118 118
119 proc urllog_get_ss {uindex} { 119 proc urllog_get_ss {uindex} {
120 global urllog_shorturl_str 120 global urllog_shorturl_codes
121 return [string index $urllog_shorturl_str $uindex] 121 return [string index $urllog_shorturl_codes $uindex]
122 } 122 }
123 123
124 124
125 proc urllog_get_short {utime} { 125 proc urllog_get_short {utime} {
126 global urllog_shorturl_prefix urllog_shorturl_str 126 global urllog_shorturl_prefix urllog_shorturl_codes
127 127
128 set ulen [string length $urllog_shorturl_str] 128 set ulen [string length $urllog_shorturl_codes]
129 129
130 set u1 [expr $utime / ($ulen * $ulen)] 130 set u1 [expr $utime / ($ulen * $ulen)]
131 set utmp [expr $utime % ($ulen * $ulen)] 131 set utmp [expr $utime % ($ulen * $ulen)]
132 set u2 [expr $utmp / $ulen] 132 set u2 [expr $utmp / $ulen]
133 set u3 [expr $utmp % $ulen] 133 set u3 [expr $utmp % $ulen]