comparison urllog.tcl @ 127:bfb398057543

urllog: Add some translated entities.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 17 Sep 2012 17:33:24 +0300
parents ac5b1efabace
children 0d21b9d1d2b9
comparison
equal deleted inserted replaced
126:86500b3ac599 127:bfb398057543
145 145
146 set urllog_ent_str "&#45;|-|&#39;|'|—|-|&rlm;||&#8212;|-|&#8211;|--|&#x202a;||&#x202c;||" 146 set urllog_ent_str "&#45;|-|&#39;|'|—|-|&rlm;||&#8212;|-|&#8211;|--|&#x202a;||&#x202c;||"
147 append urllog_ent_str "&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&nbsp;| |" 147 append urllog_ent_str "&lrm;||&aring;|å|&Aring;|Å|&eacute;|é|&#58;|:|&nbsp;| |"
148 append urllog_ent_str "&#8221;|\"|&#8220;|\"|&laquo;|<<|&raquo;|>>|&quot;|\"|" 148 append urllog_ent_str "&#8221;|\"|&#8220;|\"|&laquo;|<<|&raquo;|>>|&quot;|\"|"
149 append urllog_ent_str "&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|" 149 append urllog_ent_str "&auml;|ä|&ouml;|ö|&Auml;|Ä|&Ouml;|Ö|&amp;|&|&lt;|<|&gt;|>|"
150 append urllog_ent_str "&#228;|ä|&#229;|ö|&mdash;|-|&#039;|'|&ndash;|-" 150 append urllog_ent_str "&#228;|ä|&#229;|ö|&mdash;|-|&#039;|'|&ndash;|-|&#034;|\""
151 append urllog_ent_str "&#124;|-|&#8217;|'|&uuml;|ü|&Uuml;|Ü|&bull;|*|&euro;|€"
151 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"] 152 set urllog_html_ent [split [encoding convertfrom "utf-8" $urllog_ent_str] "|"]
152 153
153 ### Require packages 154 ### Require packages
154 package require sqlite3 155 package require sqlite3
155 package require http 156 package require http