# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1422339756 -7200
# Node ID 1ff281e821a32e66a99e44e9415fb938eca79ec4
# Parent  67e43d6f5c412e4bda18faa1cc9f791c9119d9ef
urllog: Make rasiatube hack configurable.

diff -r 67e43d6f5c41 -r 1ff281e821a3 config.urllog.example
--- a/config.urllog.example	Tue Jan 27 08:21:00 2015 +0200
+++ b/config.urllog.example	Tue Jan 27 08:22:36 2015 +0200
@@ -55,6 +55,10 @@
 # (You probably want this enabled.)
 set urllog_extra_checks 1
 
+### Enable "rasiatube" hack that de-mangles rasiatube links
+set urllog_rasiatube_hack 1
+
+
 
 ###
 ### Search related settings
diff -r 67e43d6f5c41 -r 1ff281e821a3 urllog.tcl
--- 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