RssTcl

Please add some good URLs to RssNewsfeeds here: (this helps Bh44L while scripting the eggdrop tcl script)

http://mutante.s23.org/rssfeed023.tcl.txt

-- [14:15:56] Available sources: (not all working, maybe we can get a few more to work)

bugtraq: http://www.securityfocus.com/rss/vulnerabilities.xml bverfg: http://www.bundesverfassungsgericht.de/rss/entscheidungen/ c4-wiki: http://wiki.koeln.ccc.de/index.php?title=Special:Recentchanges&feed=rss chaos: http://www.ccc.de/updates/chaosupdates.rdf cnn: http://www.cnn.com/cnn.rss diewelt: http://www.welt.de/z/newsticker/ticker_welt.xml fischlog: http://sakana.antville.org/rss freshmeat: http://freshmeat.net/backend/fm-releases-software.rdf gaim: http://gaim.sourceforge.net/rss.php/news galaxy-news: http://www.galaxy-news.de/backend.php golem: http://www.golem.de/golem_backend.rdf heise: http://www.heise.de/newsticker/heise.rdf heise-security: http://www.heise.de/security/news/news.rdf heisemobil: http://www.heise.de/mobil/newsticker/heise.rdf i-pobox: http://www.i-pobox.net/b2rdf.php instantnirvana: http://concord.antville.org/rss liberation: http://www.liberation.fr/rss.php linuxfr: http://linuxfr.org/backend.rss linuxtoday: http://linuxtoday.com/backend/biglt.rss lsmods: http://www.loose-screws.com/backend/mods_heavy.xml lwn: http://lwn.net/headlines/rss migriblog: http://blog.migri.de/b2rdf.php narzissmusverdacht: http://blubber.blogger.de/rss neowin: http://neowin.net/backend.php?page=main netzbuch: http://www.das-netzbuch.de/index.xml netzeitung: http://www.netzeitung.de/export/news/rss/titelseite.xml nofrag: http://www.nofrag.com/nofrag.rss orf: http://rss.orf.at/news.xml pcworld.com - latest news: http://rss.pcworld.com/rss/latestnews.rss pro-linux: http://www.pl-forum.de/backend/pro-linux.rdf rus-cert: http://CERT.Uni-Stuttgart.DE/ticker/rus-cert.rdf s23-wiki: http://is-root.de/wiki/index.php?title=Special:Recentchanges&feed=rss science: http://www.scienceticker.info/rss/RSS_File.xml shellcity: http://www.shellcity.net/citynews.xml slashdot: http://slashdot.org/slashdot.rss sofa: http://arrog.antville.org/rss spiegel.de: http://www.spiegel.de/schlagzeilen/rss/0,5291,,00.xml swr3: http://www.swr3.de/rdf-feed/ symlink: http://www.symlink.ch/symlinkch.rss tagesschau: http://www.tagesschau.de/xml/tagesschau-meldungen/ thinknerd: http://www.thinknerd.de/?q=node/feed utopia: http://www.utopiatemple.com/utopia-news.rss webstandards: http://www.webstandards.org/buzz/buzz.xml winfuture: http://media-designs.de/winfuture.rdf xoops: http://www.xoops.org/backend.php zeropage: http://www.zeropage.net/tmh/backend/tmh.rdf zone-h: http://zone-h.org/en/rss/advisories 23 me BlOg: http://23.me.uk/atom/index.xml

--

example:

set rss_url(alias) "url"

set rss_url(s23) "http://wiki.s23.org/wiki.pl?RecenChanges&action=rss" set rss_url(ccc) "http://www.ccc.de/updates/chaosupdates.rdf" set rss_url(c4) "http://wiki.koeln.ccc.de/index.php?title=Special:Recentchanges&feed=rss" set rss_url(/.) "http://slashdot.org/slashdot.rdf" set rss_url(tagesschau) "http://www.tagesschau.de/xml/tagesschau-meldungen/" set rss_url(nirvana) "http://concord.antville.org/rss" set rss_url(fischlog) "http://sakana.antville.org/rss" set rss_url(golem) "http://www.golem.de/golem_backend.rdf" set rss_url(heise) "http://www.heise.de/newsticker/heise.rdf" set rss_url(telepolis) "http://www.heise.de/tp/news.rdf" set rss_url(heise-sec) "http://www.heise.de/security/news/news.rdf" set rss_url(heise-mob) "http://www.heise.de/mobil/newsticker/heise.rdf" set rss_url(i-pobox) "http://www.i-pobox.net/b2rdf.php" set rss_url(migri) "http://blog.migri.de/b2rdf.php" set rss_url(narziss) "http://blubber.blogger.de/rss" set rss_url(neowin) "http://neowin.net/backend.php?page=main" set rss_url(nofrag) "http://www.nofrag.com/nofrag.rss" set rss_url(orf) "http://rss.orf.at/news.xml" set rss_url(rus-cert) "http://CERT.Uni-Stuttgart.DE/ticker/rus-cert.rdf" set rss_url(sofa) "http://arrog.antville.org/rss" set rss_url(boston) "http://boston.craigslist.org/zip/index.rss" set rss_url(berlin) "http://www.undergroundlondon.com/weather/world.rss/016/c00059?type=title"

Hm, here's the Script: package require http
 * 1) RSS Reader#######
 * 2) by BhaaL########
 * 1) by BhaaL########
 * 1) by BhaaL########

set rss_url(s23) "http://wiki.s23.org/wiki.pl?RecenChanges&action=rss" set rss_url(heise) "http://www.heise.de/tp/news.rdf" set rss_url(c4) "http://koeln.ccc.de/cgi-bin/wiki.pl?RecentChanges&action=rss" set rss_url(/.) "http://slashdot.org/slashdot.rdf"
 * 1) CONFIG AREA####
 * 2) Muster:
 * 3) set rss_url(alias) "url"
 * 4) alias kann beim Trigger verwendet werden, zb !rss heise
 * 5) url wird als die zu parsende RSS verwendet
 * 1) CONFIG ENDE####

bind pub - !rss rss:get

proc rss:get {nick host hand chan arg} { global rss_url set url [join [lindex [split $arg] 0]] if {[info exists rss_url($url)]} { set url $rss_url($url) } rss:read "$url" $chan }

proc rss:read {url chan} { set token [http::geturl $url -timeout 10000] if {[http::status $token]=="timeout"} { putmsg $chan "TimeOut beim verbinden!" return 0 } set data [http::data $token] set page "" set title "" set link "" set section "channel" foreach line [split $data ] { if {$section == "channel"} { if {$page == "" && [string match -nocase "* *" $line]} { set page [join [lindex [split [lindex [split $line >] 1] <] 0]] } if {[string match -nocase "* *" $line]} { set section "after channel" } } if {$section == "after channel"} { if {[string match -nocase "*] 1] <] 0]] break } if {$title == "" && [string match -nocase "*] 1] <] 0]] } } } if {$title != "" && $link != ""} { putmsg $chan "\002$page\002 $title: $link" } else { putmsg $chan "Fehler bei $url" } } putlog "RSS-Reader (c) 2004 by BhaaL loaded"
 * 1) section channel start
 * 1) section channel ende
 * 1) section after channel
 * 1) section after channel
 * 1) section item start
 * 1) section item ende

Some Bits could be coded better, but this first Version works ;)