#!/usr/bin/ruby
#
#HACK Warning
# add <![CDATA[.....]]> around the ...... in certain situations
# 1. <wp:comment_content>......
# 2. <wp:comment_author>.....
#
# Read from stdin, write to stdout
# Can't depend on the close tag to be on the same line for comment_content
# Shouldn't assume that for comment_author but I do
$stdin.each do |ln|
    ln.gsub!(/<wp:comment_author>(.*)<\/wp:comment_author>/,
      '<wp:comment_author><![CDATA[\1]]></wp:comment_author>')
    if ln[/wp:comment_content>(.*)<\/<wp:comment_content>/]
      # all on one line
      #ln = "<wp:comment_content><![CDATA[$1]]><wp:comment_content>"
    else
      ln.gsub!(/^(.*)<\/wp:comment_content>$/) do |m|
         $1+"]]></wp:comment_content>" 
      end
      ln.gsub!(/<wp:comment_content>(.*)$/) do |n|
        "<wp:comment_content><![CDATA["+$1
      end
    end
    $stdout.puts(ln)
end