Mercurial > hg > egg-tcls

comparison urllog.tcl @ 561:bdccc83a1c22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 09 Jul 2020 13:25:09 +0300
parents 17183d85ab62
children 537df683836c
comparison
equal deleted inserted replaced
560:17183d85ab62 561:bdccc83a1c22
41 set urllog_message "$urllog_name v$urllog_version (C) 2000-2020 ccr/TNSP" 41 set urllog_message "$urllog_name v$urllog_version (C) 2000-2020 ccr/TNSP"
42 42
43 43
44 set urllog_tld_list [split $urllog_tld_list ","] 44 set urllog_tld_list [split $urllog_tld_list ","]
45 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 45 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
46 set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
46 47
47 48
48 ### Binding initializations 49 ### Binding initializations
49 bind pub - !urlfind urllog_pub_cmd_urlfind 50 bind pub - !urlfind urllog_pub_cmd_urlfind
50 bind msg - !urlfind urllog_msg_cmd_urlfind 51 bind msg - !urlfind urllog_msg_cmd_urlfind
99 return $uencoding 100 return $uencoding
100 } 101 }
101 102
102 103
103 #------------------------------------------------------------------------- 104 #-------------------------------------------------------------------------
104 set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
105
106 proc urllog_get_short {utime} { 105 proc urllog_get_short {utime} {
107 global urllog_shorturl_prefix urllog_shorturl_str 106 global urllog_shorturl_prefix urllog_shorturl_str
108 107
109 set ulen [string length $urllog_shorturl_str] 108 set ulen [string length $urllog_shorturl_str]
110 109
626 } 625 }
627 626
628 627
629 ### SQLite database initialization 628 ### SQLite database initialization
630 if {[catch {sqlite3 urldb $urllog_db_file} uerrmsg]} { 629 if {[catch {sqlite3 urldb $urllog_db_file} uerrmsg]} {
631 putlog "Could not open SQLite3 database '$urllog_db_file': $uerrmsg" 630 putlog "Could not open SQLite3 database '${urllog_db_file}': ${uerrmsg}"
632 exit 2 631 exit 2
633 } 632 }
634 633
635 634
636 # end of script 635 # end of script