# This is a modified version of http://blog.durdle.com/nowplayingrss

proc print_rssrow {chan rec view} {
  global tzoffset
  global show_tivor

  set showing [dbobj $rec get Showing]
  set showingfsid [dbobj $rec gettarget Showing]
  set program [dbobj $showing get Program]
  set title [strim [dbobj $program get Title]]

  set station [dbobj $showing get Station]
  set callsign [dbobj $station get CallSign]

  if { $callsign == "TIVOR" && $show_tivor == 0 } {return}

  set manual 0
  if {$::version >= 3} {
    set recbeh [dbobj $rec get RecordingBehavior]
    set presbeh [dbobj $recbeh get PresentationBehavior]
    set progbeh [dbobj $recbeh get ProgramGuideBehavior]
    if { $presbeh == 10 || $presbeh == 9 || $progbeh == 3 || $progbeh == 8 } {
      set manual 1
    }
  } else {
    set seltype [dbobj $rec get SelectionType]
    if { $seltype == 10 || $seltype == 5 } {
      set manual 1
    }
  }
  if { $manual } {
    if { $title == "" } {
      set title "Manual Recording"
    } else {
      set title "Manual: $title"
    }
  }
  set state [dbobj $rec get State]
  set fsid [dbobj $rec fsid]
  set series [dbobj $program get Series]

  #set isepisode [dbobj $program get IsEpisode]
  if {$series != ""} {
    set episodic [defaultval 1 [dbobj $series get Episodic]]
  } else {
    set episodic 1
  }
  if { $episodic == 1 } {
    set eptitle [strim [dbobj $program get EpisodeTitle]]
    if {$eptitle != ""} {
      set eptitle "\"$eptitle\" "
    }
  } else {
    set eptitle ""
  }

  set seconds [expr [dbobj $showing get Date] * 86400 + [dbobj $showing get Time] + $tzoffset]
  set timestr [clock format [expr [dbobj $showing get Date] * 86400 + [dbobj $showing get Time]] -format "%a, %d %b %Y %T GMT"]

  set entrylink "http://$::HTTP_HOST/showing/$showingfsid"
  puts $chan "<item>"

  puts -nonewline $chan "<title><!\[CDATA\[$title\]\]></title>"
  puts $chan "<link>$entrylink</link>"
  puts -nonewline $chan "<description><!\[CDATA\["

  set descrip  [dbobj $program get Description]
  set trimdescrip [strim $descrip]
  if  {$trimdescrip == "" } {
    puts -nonewline $chan "$eptitle No Description"
  } else {
    puts -nonewline $chan "$eptitle[strim [dbobj $program get Description]]"
  }
  if {$view == 1} {  
    puts -nonewline $chan "<BR><A HREF=\"tivo://$::HTTP_HOST/$fsid\">-View-</A>"
  }
  puts -nonewline $chan "\]\]></description>"
  puts $chan "<guid>$entrylink</guid>"
  puts $chan "<pubDate>$timestr</pubDate>"
  puts $chan "</item>"
}

proc rss_feed {chan desc url path prefix view} {
  global db
  puts $chan "<?xml version=\"1.0\" encoding=\"utf-8\"?>"
  puts $chan "<?xml-stylesheet type=\"text/xsl\" href=\"rss-style.xsl\"?>"
  puts $chan "<rss version=\"2.0\">"
  puts $chan "<channel>"
  puts $chan "<title>Tivo $desc</title>"
  puts $chan "<link>http://$::HTTP_HOST/$url</link>"
  puts $chan "<description>TiVo $desc list</description>"
  puts $chan "<language>en-us</language>"
  puts $chan "<lastBuildDate>[clock format [clock seconds] -format "%a, %d %b %Y %T GMT"]</lastBuildDate>"
  puts $chan "<docs>http://www.tivocommunity.com/tivo-vb/showthread.php?t=271578</docs>"
  puts $chan "<generator>NowPlayingRSS (http://blog.durdle.com/nowplayingrss/)</generator>"  

  ForeachMfsFileTrans fsid name type $path $prefix 15 {
    set rec [db $db openid $fsid]
    print_rssrow $chan $rec $view
  }

  puts $chan "</channel>"
  puts $chan "</rss>"
}

proc action_rss {chan path env} {
  global nowshowingdir  

  if {[string index $path 0] == "/"} {
    set path [string range $path 1 end]
    if {$path != ""} {
      if {[string range $path 0 9] == "nowplaying"} {
        rss_feed $chan "Now Playing" "nowshowing" $nowshowingdir "" 1
      } elseif {[string range $path 0 3] == "todo"} {
        rss_feed $chan "ToDo" "ui/todo" "/Recording/Active" "4" 0
      }
    } else {
      puts $chan [html_start ""]
      puts $chan [html_link "nowplaying.rss" "NowPlaying"]
      puts $chan " | [html_link "todo.rss" "ToDo"]"
      puts $chan [html_end]
    }
  }
}

proc serve_rss {chan feed head_req last_modified} {
  global nowshowingdir
  if {$feed == "nowplaying.rss"} {
    print_html_header_200 $chan "text/xml" [clock seconds]
    rss_feed $chan "Now Playing" "nowshowing" $nowshowingdir "" 1
  } elseif {$feed == "todo.rss"} {
    print_html_header_200 $chan "text/xml" [clock seconds]
    rss_feed $chan "ToDo" "ui/todo" "/Recording/Active" "4" 0
  } else {
    print_html_header_404 $chan
  }
}

register_content_handler "rss" "text/xml" "" 0 serve_rss
register_content_handler "xsl" "text/xml" "$source_dir/themes" 0 serve_file

register_module "rss" "RSS" "RSS Feeds"