×
Create a new article
Write your page title here:
We currently have 3,185 articles on s23. Type your article name above or create one of the articles listed here!



    s23
    3,185Articles

    Please add some good URLs to RSS Newsfeeds here: (this helps Bh44L while scripting the Eggdrop TCL script)

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

    -- [14:15:56] <s23> 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:

    ########################
    #######RSS Reader#######
    ########################
    ########by BhaaL########
    ########################
    package require http
    
    ####CONFIG AREA####
    #Muster:
    #set rss_url(alias) "url"
    #alias kann beim Trigger verwendet werden, zb !rss heise
    #url wird als die zu parsende RSS verwendet
    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"
    ####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"} {
    ###section channel start
    if {$page == "" && [string match -nocase "*<title>*" $line]} {
    set page [join [lindex [split [lindex [split $line >] 1] <] 0]]
    }
    if {[string match -nocase "*</channel>*" $line]} {
    set section "after channel"
    }
    ###section channel ende
    }
    ###-----------------------
    if {$section == "after channel"} {
    ###section after channel
    if {[string match -nocase "*<item*" $line]} {
    set section "item"
    }
    ###section after channel
    }
    ###----------------------
    if {$section == "item"} {
    ###section item start
    if {$link == "" && [string match -nocase "*<link*" $line]} {
    set link [join [lindex [split [lindex [split $line >] 1] <] 0]]
    break
    }
    if {$title == "" && [string match -nocase "*<title*" $line]} {
    set title [join [lindex [split [lindex [split $line >] 1] <] 0]]
    }
    ###section item ende
    }
    }
    if {$title != "" && $link != ""} {
    putmsg $chan "\002$page\002 $title: $link"
    } else {
    putmsg $chan "Fehler bei $url"
    }
    }
    putlog "RSS-Reader (c) 2004 by BhaaL loaded"
    

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

    Cookies help us deliver our services. By using our services, you agree to our use of cookies.
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.