require 'win32ole'
require 'digest/sha1'
require 'cgi'

out = STDOUT

messenger = WIN32OLE.new('Messenger.UIAutomation.1')
contacts = messenger.MyContacts

out.puts <<END
<?xml version="1.0" encoding="shift_jis"?>
<rdf:RDF
      xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
      xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
      xmlns:foaf="http://xmlns.com/foaf/0.1/">

<foaf:Person>
  <foaf:nick>#{CGI.escapeHTML(messenger.MyFriendlyName)}</foaf:nick>
  <foaf:mbox_sha1sum>#{Digest::SHA1.hexdigest("mailto:" + messenger.MySigninName)}</foaf:mbox_sha1sum>
  <foaf:mbox rdf:resource="#{CGI.escapeHTML("mailto:" + messenger.MySigninName).sub(/@/,'&#64;')}" />
  <foaf:msnChatID>#{CGI.escapeHTML(messenger.MySigninName).sub(/@/,'&#64;')}</foaf:msnChatID>

END

contacts.each{|c|
  out.puts <<END
  <foaf:knows>
    <foaf:Person>
      <foaf:nick>#{CGI.escapeHTML(c.FriendlyName)}</foaf:nick>
      <foaf:mbox_sha1sum>#{Digest::SHA1.hexdigest("mailto:" + c.SigninName)}</foaf:mbox_sha1sum>
      <foaf:mbox rdf:resource="#{CGI.escapeHTML("mailto:" + c.SigninName).sub(/@/,'&#64;')}" />
      <foaf:msnChatID>#{CGI.escapeHTML(c.SigninName).sub(/@/,'&#64;')}</foaf:msnChatID>
    </foaf:Person>
  </foaf:knows>

END
}

out.puts <<END
</foaf:Person>
</rdf:RDF>
END