totext.rb

#!/usr/bin/env ruby

# ./totext.rb FILENAME

require "rexml/document"

puts "Converting #{ARGV[0]}"

fin = File.new(ARGV[0])
doc = REXML::Document.new(fin)

fout = File.new(File.basename(ARGV[0], ".colloquyTranscript") + ".txt", "w")


def all_text(elem)
    elem.to_a.map {|ch|
        (ch.is_a? REXML::Text)? REXML::Text.unnormalize(ch.to_s) : all_text(ch)
    }.join
end

doc.elements.each("log/envelope") {|element|
    sender = element.elements["sender"].text
    element.elements.each("message") {|msg|
        if(msg.attributes["action"] == "yes")
            fout.puts "* #{sender} #{all_text(msg)}"
        else
            fout.puts "<#{sender}> #{all_text(msg)}"
        end
    }
}