# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1540535879 -10800
# Node ID cbad3fa706feb9cece66339dc8dac4457f507e3b
# Parent  b29b0db02649dfac68499392105dd847e8ba51ae
urllog: Delete some obsolete code.

diff -r b29b0db02649 -r cbad3fa706fe urllog.tcl
--- a/urllog.tcl	Wed May 09 20:04:44 2018 +0300
+++ b/urllog.tcl	Fri Oct 26 09:37:59 2018 +0300
@@ -344,12 +344,6 @@
     return 0
   }
 
-  ### Is it a http or ftp url?
-  if {$urlProto != "http" && $urlProto != "https" && $urlProto != "ftp"} {
-    urllog_log "Broken URL from $urlNick: ($urlStr) UNSUPPORTED protocol class ($urlProto)."
-    return 0
-  }
-
   ### Check the Top Level Domain (TLD) validity
   if {$urllog_check_tld != 0 && $u_checktld != 0} {
     set u_sane [lindex [split $urlHostName "."] end]
@@ -518,24 +512,6 @@
       set urlTitle [string trim $utmp]
     }
 
-    # Rasiatube hack
-    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
-        set rasia 1
-      } else {
-        if {[regexp -nocase -- "SWFObject.\"(\[^\"\]+)\", *\"flashvideo" $udata umatches utmp]} {
-          regsub "http:\/\/www.dailymotion.com\/swf\/" $utmp "http:\/\/www.dailymotion.com\/video\/" urlStr
-          set rasia 1
-        }
-      }
-      if {$rasia != 0} {
-        urllog_log "RasiaTube mangler: $urlStr"
-        urllog_verb_msg $urlNick $urlChan "Korjataan haiseva rasiatube-linkki: $urlStr"
-      }
-    }
-
     # Check if the URL already exists, just in case we had some redirects
     if {[urllog_exists $urlStr $urlNick $urlHost $urlChan]} {
       urllog_addurl $urlStr $urlNick $urlHost $urlChan $urlTitle