Mercurial > hg > egg-tcls

diff urllog.tcl @ 299:1ff281e821a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Make rasiatube hack configurable.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 27 Jan 2015 08:22:36 +0200
parents 67e43d6f5c41
children 2a9ee3f68225
line wrap: on
line diff
--- a/urllog.tcl	Tue Jan 27 08:21:00 2015 +0200
+++ b/urllog.tcl	Tue Jan 27 08:22:36 2015 +0200
@@ -370,7 +370,8 @@
 
 #-------------------------------------------------------------------------
 proc urllog_check_url {urlStr urlNick urlHost urlChan} {
-  global urllog_encoding http_tls_support urlmsg_errorgettingdoc urllog_extra_checks
+  global urllog_encoding http_tls_support urlmsg_errorgettingdoc
+  global urllog_extra_checks urllog_rasiatube_hack
 
   ### Does the URL already exist?
   if {![urllog_exists $urlStr $urlNick $urlHost $urlChan]} {
@@ -483,7 +484,7 @@
     }
 
     # Rasiatube hack
-    if {[string match "*/rasiatube/view*" $urlStr]} {
+    if {$urllog_rasiatube_hack != 0 && [string match "*/rasiatube/view*" $urlStr]} {
       set rasia 0
       if {[regexp -nocase -- "<link rel=\"video_src\"\.\*\?file=(http://\[^&\]+)&" $udata umatches utmp]} {
         regsub -all "\/v\/" $utmp "\/watch\?v=" urlStr