module Marvin::IRC::Server
  class Channel
    include Marvin::Dispatchable
    
    cattr_accessor :logger
    self.logger = Marvin::Logger
    
    attr_accessor :name, :members, :name, :topic, :operators, :mode
    
    def inspect
      "#<Marvin::IRC::Server::Channel name='#{name}' topic='#{@topic}' members=[#{self.members.map { |m| m.nick.inspect}.join(", ")}]>"
    end
    
    def initialize(name)
      @name      = name
      @members   = []
      @operators = []
      @topic     = ""
      @mode      = ""
      logger.info "Created the channel #{name}"
      dispatch :channel_created, :channel => self
    end
    
    def member?(user)
      @members.include?(user)
    end
    
    def each_member(&blk)
      members.each(&blk)
    end
    
    def add(user)
      logger.info "Adding user #{user.nick} to #{@name}"
      @operators << user if needs_op?
      @members << user
    end
    
    def remove(user)
      @members.delete(user)
    end
    
    # Ind. operations on the room
    
    def join(user)
      return false if member?(user)
      # Otherwise, we add a user
      add user
      @members.each { |m| m.notify :join, @name, :prefix => user.prefix }
      dispatch :outgoing_join, :target => @name, :nick => user.nick
      return true
    end
    
    def part(user, message = nil)
      logger.debug "Getting part from #{user.inspect} w/ #{message}"
      return false if !member?(user)
      @members.each { |m| m.notify :part, @name, user.nick, message, :prefix => user.prefix }
      remove user
      # TODO: Remove channel from ChannelStore if it's empty.
      dispatch :outgoing_part, :target => @name, :user => user, :message => message
      check_emptyness!
      return true
    end
    
    def quit(user, message = nil)
      remove user
      @members.each { |m| m.notify :quit, @name, message, :prefix =>  user.prefix }
      # TODO: Remove channel from the store if it's empty
      dispatch :outgoing_quit, :target => @name, :user => user, :message => message
      check_emptyness!
    end
    
    def message(user, message)
      @members.each { |m| m.notify :privmsg, @name, ":#{message}", :prefix => user.prefix unless user == m }
      dispatch :outgoing_message, :target => self, :user => user, :message => message
    end
    
    def notice(user, message)
      @members.each { |m| m.notify :notice, @name, ":#{message}", :prefix => user.prefix unless user == m }
      dispatch :outgoing_notice, :target => self, :user => user, :message => message
    end
    
    def topic(user = nil, t = nil)
      return @topic if t.blank?
      logger.info "Getting topic for '#{@name}' - #{t.inspect}"
      @topic = t
      @members.each { |m| m.notify :topic, @name, ":#{t}", :prefix => user.prefix }
      dispatch :outgoing_topic, :target => @name, :user => user, :topic => t
      return @topic
    end
    
    def mode(user)
      @operators.include?(user) ? "@" : ""
    end
    
    private
    
    def needs_op?
      @operators.empty? && @members.empty?
    end
    
    def check_emptyness!
      destroy if @members.empty?
    end
    
    def destroy
      Marvin::IRC::Server::ChannelStore.delete(@name)
      dispatch :channel_destroyed, :channel => self
    end
    
  end
end