# The MIT License
# 
# Copyright (c) 2008 Jared Kuolt
# 
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
# 
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
# 
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
 
require 'rubygems'
require 'tinder'
require 'xmpp4r-simple'
require 'daemons'
require 'yaml'
 
module Camper
  Commands = { 
    "users" => Proc.new { |c| c.users },
    "leave" => Proc.new { |c| if c.chat.left?; "already left"; else c.chat.leave; "left #{c.chat.name}"; end },
    "join" => Proc.new { |c| unless c.chat.left?; "already joined"; else c.chat.join; "joined #{c.chat.name}"; end },
    "status" => Proc.new { |c| c.chat.left? ? "not in room" : "in room #{c.chat.name}" },
  }
  module CampfireExtension
    def msg(msg, type=:speak)
      attempts = 0
      begin
        attempts += 1
        self.send(type, msg)
      rescue TimeoutError, SocketError => e
        retry if attempts < 3
        raise e
      end
    end
 
    def left?
      return true if @room.nil?
    end
  end
 
  class Room
    def initialize(config)
      @config = config.symbolize_keys!
      chat.extend(CampfireExtension)
    end
 
    def config
      @config
    end
 
    def im
      @im ||= Jabber::Simple.new(config[:jabber][:user], 
                                 config[:jabber][:pass])
    end
 
    def campfire
      unless @campfire
        @campfire = Tinder::Campfire.new(config[:campfire][:domain], :ssl => config[:campfire][:ssl])
        @campfire.login(config[:campfire][:user], config[:campfire][:pass])
      end
      @campfire
    end
 
    def chat
      @chat ||= campfire.find_room_by_name config[:campfire][:room]
    end
 
    def im_deliver(msg)
      to = config[:deliver_to]
      msg.gsub!(/\\"/, '"')
      doc = Hpricot(msg)
      if img = doc.at("img")
        src = img['src']
        img.swap(src)
      end
 
      msg = doc.to_html
      m = Jabber::Message::new(to, CGI.escapeHTML(Hpricot(msg).to_plain_text)).set_type(:chat)
 
      # HTML Delivery thanks to http://devblog.famundo.com/articles/category/xmpp4r-jabber
      h = REXML::Element::new("html")
      h.add_namespace('http://jabber.org/protocol/xhtml-im')
 
      # The body part with the correct namespace
      b = REXML::Element::new("body")
      b.add_namespace('http://www.w3.org/1999/xhtml')
 
      # The html itself
      t = REXML::Text.new(msg, false, nil, true, nil, %r/.^/)
      # Add the html text to the body, and the body to the html element
      b.add(t)
      h.add(b)
 
      # Add the html element to the message
      m.add_element(h)
      im.deliver(config[:deliver_to], m)
    end
 
    def daemon_opts
      opts = [config[:campfire][:room]]
      opts << {:multiple => true, :dir_mode => :normal, :dir => Camper::config_dir, :backtrace => true}
    end
 
    def users
      Hpricot(chat.users.join).search("span").collect {|e| e.inner_text }.join(", ")
    end
 
    def deliver_campfire_messages
      chat.listen.each do |msg|
        next if msg[:person].empty?
        text = "#{msg[:person]}: #{msg[:message]}".gsub(/(\\n)+/, "\n").gsub(/\\u([0-9a-fA-F]{4})/) { [$1.to_i(16)].pack("U") }
        im_deliver(text)
      end
    end
 
    def deliver_jabber_messages
      im.received_messages do |msg|
        next unless msg.type == :chat
 
        command = msg.body.scan(/^!(.*)/).flatten[0]
 
        if Commands.key?(command)
          im_deliver(Commands[command].call(self))
        elsif chat.left?
          im_deliver("You're not in the room.  Send !join to join again")
        else
          type = msg.body.strip =~ /\n/ ? :paste : :speak
          chat.msg(msg.body, type)
        end
      end
    end
 
    def iterate
      begin
        deliver_campfire_messages unless chat.left?
        deliver_jabber_messages
        sleep 2
      rescue => e
        im_deliver("Error in Camper:\n\n#{e.class.name}\n#{e.backtrace.join("\n")}")
      end
    end
 
    def run
      Daemons.run_proc(*daemon_opts) do
        loop { iterate }
      end
    end 
  end
 
  def load_config(file=nil)
    file ||= "#{Camper::config_dir}config.yaml"
    YAML.load_file(file)
  end
 
  def start
    configs = Camper::load_config 
    configs["rooms"].each do |config|
      Room.new(config).run
    end
  end
 
  def config_dir
    "#{ENV['HOME']}/.camper/"
  end
 
  module_function :start, :config_dir, :load_config
end
 
class Hash
 
  def symbolize_keys!
    self.each do |k,v|
      self.delete k
      self[k.to_sym] = (v.is_a?(Hash)? v.symbolize_keys! : v )
    end
    self
  end
 
end
 
Camper::start