Mercurial > hg > egg-tcls

comparison urllog.tcl @ 84:fa1e95c2a0bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Bump version to 2.1.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 11 Sep 2011 19:39:40 +0300
parents f171a9fb7b7b
children 4c2b6482c08c
comparison
equal deleted inserted replaced
83:f171a9fb7b7b 84:fa1e95c2a0bc
1 ########################################################################## 1 ##########################################################################
2 # 2 #
3 # URLLog v2.0.1 by ccr/TNSP <ccr@tnsp.org> 3 # URLLog v2.1 by ccr/TNSP <ccr@tnsp.org>
4 # (C) Copyright 2000-2011 Tecnic Software productions (TNSP) 4 # (C) Copyright 2000-2011 Tecnic Software productions (TNSP)
5 # 5 #
6 ########################################################################## 6 ##########################################################################
7 # 7 #
8 # URL-logger script for EggDrop IRC robot, utilizing SQLite3 database 8 # URL-logger script for EggDrop IRC robot, utilizing SQLite3 database
131 131
132 ########################################################################## 132 ##########################################################################
133 # No need to look below this line 133 # No need to look below this line
134 ########################################################################## 134 ##########################################################################
135 set urllog_name "URLLog" 135 set urllog_name "URLLog"
136 set urllog_version "2.0.1" 136 set urllog_version "2.1"
137 137
138 set urllog_tlds [split $urllog_tlds ","] 138 set urllog_tlds [split $urllog_tlds ","]
139 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"] 139 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
140 140
141 set urllog_html_ent [split "&rlm;||&#8212;|-|&#x202a;||&#x202c;||&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&#xe4;|ä|&#xf6;|ö|&#228;|ä|&#246;|ö|&nbsp;| |&#45;|-|&#8221;|\"|&#8220;|\"|&raquo;|>>|&quot;|\"|&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|ä|ä|ö|ö|Ä|Ä" "|"] 141 set urllog_html_ent [split "&rlm;||&#8212;|-|&#x202a;||&#x202c;||&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&#xe4;|ä|&#xf6;|ö|&#228;|ä|&#246;|ö|&nbsp;| |&#45;|-|&#8221;|\"|&#8220;|\"|&raquo;|>>|&quot;|\"|&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|ä|ä|ö|ö|Ä|Ä" "|"]
347 # contain the head section of a HTML page. 347 # contain the head section of a HTML page.
348 if {$ucurr > 64000} { 348 if {$ucurr > 64000} {
349 set state(status) "ok" 349 set state(status) "ok"
350 } 350 }
351 } 351 }
352
352 353
353 #------------------------------------------------------------------------- 354 #-------------------------------------------------------------------------
354 proc urllog_checkurl {urlStr urlNick urlHost urlChan} { 355 proc urllog_checkurl {urlStr urlNick urlHost urlChan} {
355 global urllog_tlds urllog_check urlmsg_nosuchhost urlmsg_ioerror 356 global urllog_tlds urllog_check urlmsg_nosuchhost urlmsg_ioerror
356 global urlmsg_timeout urlmsg_errorgettingdoc urllog_httprep 357 global urlmsg_timeout urlmsg_errorgettingdoc urllog_httprep