Code:

## - Namespace - #namespace eval ::rss {# - Packages - ## Httppackage require http# - Settings - ## Antispam Time (In Sekunden)variable antispam "60"# Feedvariable feed http://german-bash.org/latest-quotes.xml# IDURLvariable idurl http://german-bash.org/index.php?id=%id%&action=show# Style (Variablen: :title: :linkvariable style "\[\002gBash Quote\002\] \037No.\037 %id% @ \037%link%\037 (%info%)"# Zum Replacenvariable rep {< <> >}# - Setudef - ## Flag# RSSsetudef flag rss# - Binds - ## Pub# Adminbind pub nm|nm ".gbash" ::rss::admin# Time# Checkbind time -|- "13 *" ::rss::check# - Procs - ## Adminproc admin { nick host hand chan arg } {switch -- [string toupper [lindex $arg 0]] {ON { channel set $chan +rssputserv "notice $nick :\[\002RSS\002\] ist jetzt \037aktiviert\037"}OFF {channel set $chan -rssputserv "notice $nick :\[\002RSS\002\] ist jetzt \037deaktiviert\037"}STATUS {putserv "notice $nick :\[\002RSS\002\] ist immoment \037[string map {1 aktiviert 2 deaktiviert} [channel get $chan rss]]\037"}default {if {[string length $arg] < 1} {putserv "privmsg $chan :\002Commands are\002 $::lastbind ON/OFF/STATUS/ID"return 0}if {[info exists ::rss::as($chan)] && ($::rss::as($chan) >= [unixtime])} {return 0}puthelp "notice $nick :\002Getting Quote...\002 please wait"set ::rss::as($chan) [expr [unixtime] + $::rss::antispam]::rss::getid $chan [lindex [split $arg] 0]return 1}}}# GetIDproc getid { chan id } {variable idurlset curr [string map -nocase "%id% $id" $idurl]if {[catch { set token [http::geturl $curr -timeout 10000]} error] == 1} {putlog "$error"} elseif {[http::status $token] == "ok"} {set output [http::data $token]} elseif {[http::status $token] == "timeout"} {putlog "Timeout occurred"::rss::send $chan "" $curr $id "" "Timeout"} elseif {[http::status $token] == "error"} {putlog [http::error $token]return 0}http::cleanup $tokenif {![info exists output]} { return 0 }if {[string match -nocase "*Ein Zitat mit dieser id existiert leider nicht.*" $output]} {::rss::send $chan "Ein Zitat mit dieser id existiert leider nicht." $curr $id "" "Ein Zitat mit dieser id existiert leider nicht."return 0}regexp -nocase -- {<span class="date">.+?)</span>} $output -> dateregexp -nocase -- {<span class="network">.+?)</span>} $output -> netset info [string trim [regsub -all -nocase -- {<.+?>} "$date - $net" ""]]regexp -nocase -- {<div class="zitat">.+?)</div>} $output -> descriptionregsub -all -nocase -- {<.+?>} $description "" descriptionset description [string trim [string map -nocase $::rss::rep $description]]::rss::send $chan l $curr $id $info $descriptionreturn 1} # Checkproc check { args } {variable feedset curr $feedif {![info exists ::rss::last($curr)]} {set ::rss::last($curr) ""}putlog "\[\002RSS\002\] Checking \037$curr\037"if {[catch { set token [http::geturl $curr -timeout 10000]} error] == 1} {putlog "$error"} elseif {[http::status $token] == "ok"} {set output [http::data $token]} elseif {[http::status $token] == "timeout"} {putlog "Timeout occurred"} elseif {[http::status $token] == "error"} {putlog [http::error $token]return 0}http::cleanup $tokenif {![info exists output]} { return 0 }if {![regexp -nocase -- {<item>.*?<title>.+?)</title>} $output -> title]} {putlog "\[\002RSS\002\] Error! Nothing found at $curr"return 0}regexp -nocase -- {Zitat \#([0-9]*)\s} $title -> idregsub -all -nocase -- {Zitat \#[0-9]*\s-\s} $title "" titleregsub -all -nocase -- "\n" $title "" titleif {[string equal -nocase $::rss::last($curr) $title]} {return 0}set ::rss::last($curr) $titleregexp -nocase -- {<item>.*?<link>.+?)</link>.*?<description>.+?)</description>} $output -> link descriptionset description [string range $description 9 end-3]regexp -nocase -- {<p>.+?)</p>} $description -> inforegsub -all -nocase -- {<p>.+?</p>} $description "" descriptionregsub -all -nocase -- {<br />} $description "\n" descriptionset description [string map -nocase $::rss::rep $description] if {![info exists link]} { set link $curr }foreach chan [channels] {if {[channel get $chan rss]} {utimer 5 [list ::rss::send $chan $title $link $id $info $description]}}return 1}# Sendproc send { chan title link id info text } {variable styleset style [string map -nocase [list %url% $link] $style]set style [string map -nocase [list %link% $link] $style]set style [string map -nocase [list %title% $title] $style]set style [string map -nocase [list %line% $title] $style]set style [string map -nocase [list %info% $info] $style]set style [string map -nocase [list %id% $id] $style]puthelp "privmsg $chan :[join $style]"foreach line [split $text \n] {if {[string trim $line] == ""} { continue }puthelp "privmsg $chan :$line"}}putlog "\[\002RSS\002\] by \037#p0wl\037 Loaded!"}