#!ruby -w
# Structured Dashes to RSS

require 'sd'

doc = sdparse( ARGV[0] )

# If descriptions contained real xhtml tags, instead of CDATA, these might
# be useful:
# <?xml-stylesheet href="rss2modhtml.xsl" type="text/xsl"?>
# <?xml-stylesheet href="blog.css" type="text/css"?>

puts %Q(<?xml version="1.0" encoding="UTF-8"?>

<rss version="2.0">
  <channel>
);

doc.each do |key, val|
  next if key == 'item'
  puts "    <#{key}>#{val.strip}</#{key}>"
end
puts

doc.all('item').each do |item|
  next unless item['pubDate']
  puts "\n    <item>";
  item.each do |key, val|
    next if key == 'style'
    if key == 'description'
      val = "<![CDATA[#{to_html(val)}]]>"
      val += "\n      ";
    elsif key == 'pubDate'
      # Wed, 02 Oct 2002 13:00:00 GMT
      time = gettime(val)
      val = time ? time.strftime('%a, %d %b %Y %H:%M:%S %Z') : val
    end
    if key == 'id'
      link = doc['link'] + '#' + val.strip
      puts "      <guid isPermaLink=\"false\">#{link}</guid>"
      puts "      <link>"
      puts "        #{link}"
      puts "      </link>"
    else
      puts "      <#{key}>#{val.strip}</#{key}>"
    end
  end
  puts "    </item>"
end

puts %q(
  </channel>
</rss>
);