package require http
package require uri
 
bind pubm - "* *http*" check_url
 
proc check_url {nick uhost handle chan text} {
   if {[regexp -- {(https?://[a-z0-9\-]+\.[a-z0-9\-\.]+(?:/|(?:/[a-zA-Z0-9!#\$%&'\*\+,\-\.:;=\?@\[\]_~]+)*))} $text match url]} {
	set url [string map -nocase { "&" "&" } $url]
		set token [geturl $url]
		set html_data [::http::data $token]
		::http::cleanup $token
		regexp -all -nocase -- "<title>(.*)</title>" $html_data match title
		putserv "PRIVMSG $chan :Titre de l'url de $nick : $title"
	}
	return 0
}
 
proc geturl {url args} {
    array set URI [::uri::split $url];
    while {1} {
        set token [eval [list http::geturl $url] $args]
        if {![string match {30[1237]} [::http::ncode $token]]} {return $token}
        array set meta [set ${token}(meta)]
        if {![info exist meta(Location)]} {
            return $token
        }
        array set uri [::uri::split $meta(Location)]
        unset meta
        if {$uri(host) == ""} { set uri(host) $URI(host) }
        set url [eval ::uri::join [array get uri]]
    }
}