Mercurial > hg > egg-tcls

comparison urllog.tcl @ 120:4a23635479c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Bump version.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 13 Oct 2011 20:14:48 +0300
parents 939d2338c842
children bec98a9f8695
comparison
equal deleted inserted replaced
119:939d2338c842 120:4a23635479c3
1 ########################################################################## 1 ##########################################################################
2 # 2 #
3 # URLLog v2.2.1 by Matti 'ccr' Hamalainen <ccr@tnsp.org> 3 # URLLog v2.2.2 by Matti 'ccr' Hamalainen <ccr@tnsp.org>
4 # (C) Copyright 2000-2011 Tecnic Software productions (TNSP) 4 # (C) Copyright 2000-2011 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 ##########################################################################
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.1" 140 set urllog_version "2.2.2"
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
554 if {[regexp -nocase -- "SWFObject.\"(\[^\"\]+)\", *\"flashvideo" $udata umatches utmp]} { 554 if {[regexp -nocase -- "SWFObject.\"(\[^\"\]+)\", *\"flashvideo" $udata umatches utmp]} {
555 regsub "http:\/\/www.dailymotion.com\/swf\/" $utmp "http:\/\/www.dailymotion.com\/video\/" urlStr 555 regsub "http:\/\/www.dailymotion.com\/swf\/" $utmp "http:\/\/www.dailymotion.com\/video\/" urlStr
556 set rasia 1 556 set rasia 1
557 } 557 }
558 } 558 }
559
560 if {$rasia != 0} { 559 if {$rasia != 0} {
561 urllog_log "RasiaTube mangler: $urlStr" 560 urllog_log "RasiaTube mangler: $urlStr"
562 urllog_verb_msg $urlNick $urlChan "Korjataan haiseva rasiatube-linkki: $urlStr" 561 urllog_verb_msg $urlNick $urlChan "Korjataan haiseva rasiatube-linkki: $urlStr"
563 } 562 }
564 } 563 }