# -*- tcl-*-
# $Id: podcast.page,v 1.6 2012/09/13 16:05:38 victorg Exp $
::xowiki::Object new -title "XoWiki Podcast" -text {

  my initialize -parameter {
    {-name_filter ""}
    {-days ""}
  }

  proc content {} {
    my get_parameters

    ::xo::cc set_parameter master 0
    ::xo::cc set_parameter content-type text/xml
    #   -siteurl     http://localhost:8053 

    set f [::xowiki::Podcast new -destroy_on_cleanup \
	       -package_id  $package_id \
	       -name_filter $name_filter \
	       -title       [[my info parent] set title] \
	       -description [[my info parent] set description] \
	       -author      [[my info parent] creator] \
	       -subtitle    "A Sample Collection of Podcast Items" \
	       -days        $days]

    return [$f render]
  }
}