[script] Eggdrop RSS Syndication

[djkenny]

donc voila le code exact

tclcopier

proc ::rss-synd::feed_callback {feedlist args} {
	set token [lindex $args end]
	array set feed $feedlist
	upvar 0 $token state
 
	if {$state(status) != "ok"} {
		putlog "\002RSS HTTP Error\002: $state(url) (State: $state(status))"
		return 1
	}
 
	array set meta $state(meta)
 
	if {([::http::ncode $token] == 302) || ([::http::ncode $token] == 301)} {
		set feed(depth) [expr {$feed(depth) + 1 }]
 
		if {$feed(depth) < $feed(max-depth)} {
			catch {::http::geturl "$meta(Location)" -command "[namespace current]::feed_callback {$feedlist}" -timeout $feed(timeout) -headers $feed(headers)}
		} else {
			putlog "\002RSS HTTP Error\002: $state(url) (State: timeout, max refer limit reached)"
		}
 
		return 1
	} elseif {[::http::ncode $token] != 200} {
		putlog "\002RSS HTTP Error\002: $state(url) ($state(http))"
		return 1
	}
 
	set data [::http::data $token]
	encoding system iso8859-1
	set data [encoding convertfrom utf-8 $data]
 
......

il faudra aussi supprimer les fichiers .db présent dans ./databases