Mercurial > hg > egg-tcls
changeset 469:cbad3fa706fe
urllog: Delete some obsolete code.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 26 Oct 2018 09:37:59 +0300 |
parents | b29b0db02649 |
children | 2faf2eb18f26 |
files | urllog.tcl |
diffstat | 1 files changed, 0 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- 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