Mercurial > hg > egg-tcls

comparison urllog.tcl @ 176:eda776bcb7ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Bump copyright, and version.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 03 Jun 2014 13:06:13 +0300
parents e3e156911ab4
children ff23ce8b938f
comparison
equal deleted inserted replaced
175:bbab8c79dd95 176:eda776bcb7ed
1 ########################################################################## 1 ##########################################################################
2 # 2 #
3 # URLLog v2.2.5 by Matti 'ccr' Hamalainen <ccr@tnsp.org> 3 # URLLog v2.2.6 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
4 # (C) Copyright 2000-2012 Tecnic Software productions (TNSP) 4 # (C) Copyright 2000-2014 Tecnic Software productions (TNSP)
5 # 5 #
6 # This script is freely distributable under GNU GPL (version 2) license. 6 # This script is freely distributable under GNU GPL (version 2) license.
7 # 7 #
8 ########################################################################## 8 ##########################################################################
9 # 9 #
135 135
136 ########################################################################## 136 ##########################################################################
137 # No need to look below this line 137 # No need to look below this line
138 ########################################################################## 138 ##########################################################################
139 set urllog_name "URLLog" 139 set urllog_name "URLLog"
140 set urllog_version "2.2.5" 140 set urllog_version "2.2.6"
141 141
142 set urllog_tlds [split $urllog_tlds ","] 142 set urllog_tlds [split $urllog_tlds ","]
143 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 143 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
144 144
145 145
165 bind pubm - *.* urllog_checkmsg 165 bind pubm - *.* urllog_checkmsg
166 bind topc - *.* urllog_checkmsg 166 bind topc - *.* urllog_checkmsg
167 167
168 168
169 ### Initialization messages 169 ### Initialization messages
170 set urllog_message "$urllog_name v$urllog_version (C) 2000-2012 ccr/TNSP" 170 set urllog_message "$urllog_name v$urllog_version (C) 2000-2014 ccr/TNSP"
171 putlog "$urllog_message" 171 putlog "$urllog_message"
172 172
173 ### HTTP module initialization 173 ### HTTP module initialization
174 ::http::config -useragent "$urllog_name/$urllog_version" 174 ::http::config -useragent "$urllog_name/$urllog_version"
175 if {$http_proxy != 0} { 175 if {$http_proxy != 0} {