source czrss.tcl

package require czrss
package require opt
package require html

proc genhtml {doc } {

    set channel [$doc channel]

   
    ::html::init
    set html [ ::html::head [$channel title] ]
    append html "<link rel='stylesheet' type='text/css' href='format.css'><style type='text/css'>"
    append html [::html::openTag body]

    append html [::html::h1 [$channel title]]

    append html [::html::openTag dl]
    foreach item [ $doc items] {
	append html "<dt><a href='[$item link]'>[$item title]</a></dt>\n"
	append html "<dd>[$item description]</dd>"
    }
    append html [::html::closeTag ]

    append html [ ::html::end ]
    return $html
}

tcl::OptProc main {
    { -file -string "" "zieldatei" }
    {url "RSS-Feed, z.B. http://www.tagesschau.de/newsticker.rdf" }
} {
    set doc [::czrss::doc create %AUTO% $url ]
    if {[ string length $file] > 0 } {
	set fd [ open $file w]
	puts $fd [ genhtml $doc ]
	close $fd
    } else {
	puts stdout [ genhtml $doc ]
    }
   
}

if {[catch { eval main $argv } res]} {
    puts stderr $res
} else {
    puts stdout $res
}