# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1611759139 -7200
# Node ID ac72a228089ba94f5ee5598051c6567b0c00e08a
# Parent  b11484cb3623a4810fce04879bfb35be59ee9054
urllog: Rename urllog_shorturl_str to urllog_shorturl_codes.

diff -r b11484cb3623 -r ac72a228089b urllog.tcl
--- 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)]