class Bulletin
  include Mongoid::Document
  include Mongoid::Timestamps

  include OrbitModel::Status
  include OrbitModel::Impression
  # encoding: utf-8
  include OrbitTag::Taggable
  include OrbitCategory::Categorizable
  include Slug
  require 'bulletin_model/cache'
  include BulletinModel::Cache
  attr_accessor :org_tag_ids,:org_category_id
  def tags=(ids)
    self.org_tag_ids = self.tag_ids
    super(ids)
  end
  def category=(cat)
    self.org_category_id = self.category_id
    super(cat)
  end
  def tag_ids=(ids)
    self.org_tag_ids = self.tag_ids
    super(ids)
  end
  def category_id=(cat_id)
    self.org_category_id = self.category_id
    super(cat_id)
  end
  def []=(index,value)
    if index.to_s=='tags' || index.to_s=='tag_ids'
      self.org_tag_ids = self.tag_ids
    elsif index.to_s=='category' || index.to_s=='category_id'
      self.org_category_id = self.category_id
    end
    super(index,value)
  end
  SubPart.class_eval { include BulletinModel::Cache }
  Page.class_eval { include BulletinModel::Cache }
  before_destroy do
    if self.event_id.present? && !defined?(Calendar).nil?
      Event.where(:id=>self.event_id).destroy
    end
    AnnsCache.all.destroy
  end
  field :is_edit, type: Boolean, default: false #use to check whether the preview record changed
  field :copy_id
  field :custom_carousel_image_type, :type => Integer, :default => 0 # 0: default, 1: carousel, 2: album
  field :custom_carousel_image_width, type: String, default: ""
  field :image_display_class, type: String, default: "full-size-img" #3 choices: full-size-img , pull-left , pull-right
  field :add_to_calendar,type: Boolean,default: false
  field :calendar_start_date, :type => DateTime
  field :calendar_end_date, :type => DateTime
  field :calendar_all_day,type: Boolean,default: false
  field :calendar_type_id
  field :event_id
  field :page_id
  field :title, as: :slug_title, type: String, localize: true
  field :subtitle, localize: true
  field :text, localize: true
  field :create_user_id
  field :update_user_id
  field :public, :type => Boolean, :default => true
  field :postdate , :type => DateTime, :default => Time.now
  field :deadline , :type => DateTime
  field :rss2_sn
  field :approved, :type => Boolean, :default => false
  field :is_preview, :type => Boolean, :default => false
  field :expirable_created_at, type: DateTime
  field :rejected, :type => Boolean, :default => false
  field :reapproval, :type => Boolean, :default => false
  field :rejection_reason
  field :is_external_link, :type => Boolean, :default => false
  field :external_link
  field :display_subtitle, :type => Boolean, :default => false
  field :display_img, :type => Boolean, :default => false

  field :email_id
  field :email_sent, :type => Boolean, :default => false
  field :email_sentdate , :type => DateTime
  field :email_member_ids
  field :other_mailaddress
  field :image_description, localize: true
  field :top_end_date, :type => DateTime
  field :open_comment, :type => Boolean, :default => false
  field :comment_end_time, :type => DateTime
  field :comment_role, :type => Array, :default => []
  field :enable_sub_annc, :type => Boolean, :default => false
  field :sub_annc_list, :type => Array, :default => []
  field :custom_sub_annc_title_trans, :type => String, :default => "", :localize => true
  field :display_sub_annc_date, :type => Boolean, :default => false
  mount_uploader :image, ImageUploader

  has_many :bulletin_links, :autosave => true, :dependent => :destroy
  has_many :bulletin_files, :autosave => true, :dependent => :destroy
  has_many :bulletin_comments, :autosave => true, :dependent => :destroy
  has_many :bulletin_carousel_images, :autosave => true, :dependent => :destroy
  accepts_nested_attributes_for :bulletin_files, :allow_destroy => true
  accepts_nested_attributes_for :bulletin_links, :allow_destroy => true
  accepts_nested_attributes_for :bulletin_carousel_images, :allow_destroy => true

  before_destroy :destroy_email

  scope :open_in_future, ->{where(:is_hidden.ne=>true,:is_preview.ne => true,:postdate.gt=>Time.now).order(postdate: :asc)}
  scope :can_display_and_sorted, ->{where(:approved => true,:is_hidden.ne=>true,:is_preview.ne => true).valid_time_range}
  scope :valid_time_range, ->{and_any_of([{"postdate"=>{"$lte"=> Time.now}, "deadline"=>{"$gte"=> Time.now}}, {"postdate"=>{"$lte"=> Time.now}, "deadline"=>nil}]).order((@manually_sort ? {is_top: :desc,sort_number: :asc,postdate: :desc,id: :desc} : {is_top: :desc,postdate: :desc,id: :desc}))}
  scope :is_approved, ->{where(:approved => true)}
  scope :is_approved_and_show, ->{where(:approved => true,:is_hidden.ne=>true,:is_preview.ne => true)}
  scope :filter_cats_and_tags, ->(cats,tags) {filter_by_widget_categories(cats,false).filter_by_tags(tags)}
  before_create :set_expire
  before_save :check_limit
  before_save do
    if @is_hidden_changed.nil? || @is_hidden_changed != true
      @is_hidden_changed = self.is_hidden_changed?
    end
    if self.is_top_changed? && !self.is_top
      self.sort_number = nil
    end
  end
  index({postdate: 1}, { unique: false, background: true })
  index({is_top: -1,postdate: -1, _id: -1}, { unique: false, background: true })
  index({approved: -1,is_hidden: 1,is_preview: 1, is_top: -1,postdate: -1,_id: -1,deadline: -1}, { unique: false, background: true })
  if AnnouncementSetting.pluck(:enable_manually_sort).first == true
    index({approved: -1,is_hidden: 1,is_preview: 1, is_top: -1,sort_number: 1,postdate: -1,_id: -1,deadline: -1}, { unique: false, background: true })
  end
  field :sort_number, type: Integer
  field :annc_dept, type: Integer
  def get_org_model
    if self.is_preview
      org_model = nil
      if self.copy_id
        org_model = self.class.find(self.copy_id) rescue nil
      end
      org_model.nil? ? self : org_model
    else
      self
    end
  end
  def to_calendar_param
    self.to_param
  end
  def calendar_type
    CalendarType.where(:category_id.in => self.calendar_type_id)
  end
  def event
    if !self.event_id.nil?
      Event.where(:id => self.event_id).first
    else
      nil
    end
  end
  def check_limit
    check_status_limit(update_user).length>0 ? false : true
  end
  def check_status_limit(user,check_only=false)
    role_ids = user.member_profile.roles.map(&:id) rescue []
    status_settings = (role_ids.collect do |role_id|
      AnnouncementSetting.first.anns_status_settings.select{|v| v.role_id.to_s == role_id.to_s}
    end.flatten rescue [])
    reach_limit = []
    if status_settings.count != 0
      reach_limit = status_settings.collect do |status_setting|
        status = status_setting.status
        if status_setting.top_limit.to_i <= self.class.where(:is_preview.ne=>true,:update_user_id.in => Role.find(status_setting.role_id).member_profiles.collect(&:user).flatten.uniq.map{|v| v.id},status => true).count
          if !check_only
            if self[status] && !self.class.where(id:self.id).first[status]
              self[status] = false
              nil
            end
          else
            status
          end
        else
          nil
        end
      end.compact
      reach_limit = reach_limit.group_by{|v| v}.collect do |k,v|
                      if v.count >= user.member_profile.roles.count
                        k
                      else
                        nil
                      end
                    end.compact
    end
    reach_limit
  end
  def set_expire
    self.expirable_created_at = Time.now if self.is_preview
    return true
  end

  def update_user
    User.find(update_user_id) rescue nil
  end

  def update_user=(user)
    self.update_user_id = user.id
  end

  def email_members
    MemberProfile.find(self.email_member_ids) rescue []
  end

  def email_addresses
    addresses = self.email_members.collect{|member| member.email} rescue []
    addresses = addresses +self.other_mailaddress.split(",") if !self.other_mailaddress.blank?
    addresses = addresses.flatten.select{|e| e.present?}.map{|e| e.strip}
    addresses
  end

  def email
    mail = Email.find(self.email_id) rescue nil
  end

  def expired?
    (self.deadline < Time.now) rescue false
  end

  def destroy_email
    mail = Email.find(self.email_id) rescue nil
    mail.destroy if !mail.nil?
  end

  def self.remove_expired_status
    self.where(:is_top => true, :top_end_date.ne => nil, :top_end_date.lt => Time.now).to_a.each do |b|
      b.is_top = false
      b.top_end_date = nil
      b.save
    end
  end

  def display_subtitle?
    self.display_subtitle rescue false
  end

  def display_img?
    self.display_img rescue false
  end
  def comments
    self.bulletin_comments.select{|v| !v.is_hidden}
  end
  def open_comment_for_user(user)
    role_ids = user.member_profile.roles.collect{|v| v.id.to_s} rescue ['visitor']
    self.open_comment && (self.comment_end_time.blank? || self.comment_end_time > Time.now) && (self.comment_role.any?{|v| role_ids.include?(v)} || self.comment_role.include?('visitor') || (self.comment_role.include?('all_member') && role_ids[0] != 'visitor'))
  end
  def statuses
        statuses = []
        statuses << top_text if is_top?
        statuses << hot_text if is_hot?
        statuses << hidden_text if is_hidden?
        statuses
      end
  def statuses_with_classname
    statuses = []
    statuses << {"name" => top_text, "classname" => "top"} if is_top?
    statuses << {"name" => hot_text, "classname" => "hot"} if is_hot?
    statuses << {"name" => hidden_text, "classname" => "hidden"} if is_hidden?
    statuses
  end
  def status_for_table
    status = ""
    status << "<span class='label label-success'>#{top_text}</span> " if self.is_top
    status << "<span class='label label-important'>#{hot_text}</span> " if self.is_hot
    status << "<span class='label'>#{hidden_text}</span>"if self.is_hidden
    status.html_safe
  end
  def top_text
    I18n.t("announcement.status.top")
  end
  def hot_text
    I18n.t("announcement.status.hot")
  end
  def hidden_text
    I18n.t("announcement.status.hidden")
  end
  def carousel_image_type
    (self.custom_carousel_image_type == 0 ? AnnouncementSetting.last.carousel_image_type : self.custom_carousel_image_type - 1) rescue 0
  end
  def carousel_image_width
    (self.custom_carousel_image_width.blank? ? AnnouncementSetting.last.carousel_image_width : self.custom_carousel_image_width) rescue "75%"
  end
  def self.agenda_events(agenda_start, agenda_end,read_more_url)
    events = self.monthly_event(agenda_start, agenda_end).convert_front(read_more_url)
  end
  def self.monthly_event(start_date,end_date)
    self.any_of({:postdate.lte => start_date,:deadline.gte => start_date},{:postdate.gte => start_date,:deadline.lte => end_date},{:postdate.lte => end_date,:deadline.gte => end_date}).asc(:postdate)
  end
  def self.convert_front(read_more_url)
    self.all.collect do |re|
      {:id => re.id.to_s,
       :title=>re.title,
       :note=>re.subtitle || "",
       :allDay => false,
       :color => nil,
       :url_linked => (re.is_external_link ? re.external_link : "#{read_more_url}/#{re.to_param}" rescue ""),
       :start => re.postdate,
       :end => re.deadline}
    end
  end
  def get_sub_annc_title_trans(locale=I18n.locale)
    I18n.with_locale(locale) do
      self.custom_sub_annc_title_trans.blank? ? (AnnouncementSetting.first.get_sub_annc_title_trans(locale) rescue I18n.t("announcement.table.title")) : self.custom_sub_annc_title_trans
    end
  end
  def get_sub_annc_list
    sub_anncs = self.class.where(:id.in=>self.sub_annc_list).to_a
    sub_anncs = sub_anncs.sort_by{|a| sub_annc_list.index(a.id.to_s)}
  end
  def display_postdate
    self.postdate.present? ? self.postdate.strftime("%Y/%m/%d") : ""
  end
  def enable_annc_dept
    if defined?(OrbitHelper::SharedHash) && OrbitHelper::SharedHash
      OrbitHelper::SharedHash['announcement'][:enable_annc_dept] rescue AnnouncementSetting.first.enable_annc_dept
    else
      AnnouncementSetting.first.enable_annc_dept rescue false
    end
  end
  def annc_depts_translations
    if defined?(OrbitHelper::SharedHash) && OrbitHelper::SharedHash
      OrbitHelper::SharedHash['announcement'][:annc_depts_translations] rescue AnnouncementSetting.first.annc_depts_translations
    else
      AnnouncementSetting.first.annc_depts_translations rescue {}
    end
  end
  def self.smart_convertor(text,url)
    doc = Nokogiri.HTML(text)
    doc.search('a[href]').each do |link|
      if link['href'].nil?
        link.delete 'href'
      elsif link['href'].start_with?('/')
        link['href'] = url + link['href']
      elsif link['href'].start_with?('../')
        link['href'] = url + link['href'][3..-1]
      end
    end
    doc.search('img[src]').each do |link|
      if link['src'].nil?
        link.delete 'src'
      elsif link['src'].start_with?('/')
        link['src'] = url + link['src']
      elsif link['src'].start_with?('../')
        link['src'] = url + link['src'][3..-1]
      end
    end

    return doc.css('body').inner_html
  end
  def get_data(annc_depts=nil, tmp_enable_annc_dept=nil, more_url=nil, base_url=nil, cat_ids=nil, tag_ids=nil, locale=nil)
    locale = I18n.locale if locale.nil?
    if tmp_enable_annc_dept.nil? || annc_depts.nil?
      annc_depts = []
      tmp_enable_annc_dept = (enable_annc_dept rescue false)
      if tmp_enable_annc_dept
        annc_depts = annc_depts_translations[locale.to_s] rescue []
      end
    end
    base_url = Site.first.root_url if base_url.nil?
    author = ""
    if tmp_enable_annc_dept
      author = annc_depts[self.annc_dept] rescue ""
    else
      user = User.find(self.update_user_id) rescue nil
      if !user.nil?
        author = user.member_name || user.user_name
      else
        author = ""
      end
    end
    a = {}
    if more_url.nil?
      if cat_ids.nil?
        cat_ids = [self.category_id]
      end
      if tag_ids.nil?
        tag_ids = self.tag_ids
      end
      basic_query = {:module => 'announcement',:enabled_for=>locale}
      if !cat_ids.blank?
        query = basic_query.merge({:categories.all => cat_ids})
      else
        query = basic_query.clone
      end
      if !tag_ids.blank?
        query = query.merge({:tags.all => tag_ids})
      end
      page = Page.where(query).first || Page.where(basic_query).first
      more_url = page ? page.get_url : nil
    end
    if more_url
      a['show_url'] = "#{more_url}/#{self.to_param}"
    end
    a["org_is_top"] = (self.is_top ? 1 : 0)
    a["id"] = self.uid
    a["title_translations"] = self.title_translations
    a["subtitle_translations"] = {}
    self.subtitle_translations.each do |l, subtitle|
      a["subtitle_translations"][l] = self.class.smart_convertor(subtitle,base_url)
    end
    a["text_translations"] = {}
    text_translations = self.text_translations
    self.text_translations.each do |l, text|
      a["text_translations"][l] = self.class.smart_convertor(text,base_url)
    end
    a["postdate"] = self.postdate
    a["image_description_translations"] = self.image_description_translations
    a["image"] = {}
    a["display_img"] = self.display_img
    if self.image.present?
      a["image"]["original"] = ("#{base_url}" + self.image.url rescue "")
      a["image"]["thumb"] = ("#{base_url}" + self.image.thumb.url rescue "")
      a["image"]["mobile"] = ("#{base_url}" + self.image.mobile.url rescue "")
      image = MiniMagick::Image.open(self.image.path) rescue nil
      if image
        a["image"]["width"] = image[:width]
        a["image"]["height"] = image[:height]
      end
    end
    a["tags"] = []
    a["category"] = {}
    a["author"] = author
    a["params"] = self.to_param
    a["subtitle_ann"] = self.subtitle if self.display_subtitle?
    a["bulletin_links"] = []
    a["bulletin_files"] = []
    a["bulletin_carousel_images"] = self.bulletin_carousel_images.map{|image| {"src"=>"#{base_url}" + image.file.url,"description"=>image.description.to_s,"description_text"=>image.description_text }}
    a["external_link"] = self["is_external_link"] ? self.external_link : nil
    self.tags.each do |tag|
      a["tags"] << {"name_translations" => tag.name_translations}
    end
    cat = self.category
    a["category"] = {"title_translations" => (cat.title_translations rescue {})}
    self.bulletin_links.each do |bl|
      b = {}
      b["url"] = bl.url
      b["title_translations"] = bl.title_translations
      a["bulletin_links"] << b
    end
    self.bulletin_files.each do |bf|
      b = {}
      b["description_translations"] = bf.description_translations
      b["title_translations"] = bf.title_translations
      b["url"] = ("#{base_url}" + bf.file.url rescue "")
      a["bulletin_files"] << b
    end
    return a
  end
  def get_related_feeds
    @category_id ||= self.category_id
    @tag_ids ||= self.tag_ids
    related_feeds = BulletinFeed.any_of({:category_ids=>@category_id.to_s}, {:tag_ids.in=>@tag_ids.map(&:to_s)}).to_a
  end
  def notify_feed(type="create")
    if @is_hidden_changed
      if self.is_hidden
        if type == 'create'
          return []
        else
          type = 'destroy'
        end
      else
        type = 'create'
      end
    elsif self.is_hidden
      return []
    end
    related_feeds = self.get_related_feeds.select{|feed| feed.remote_urls.count != 0}
    if related_feeds.count != 0
      bulletin_data = self.get_data
      if type == "destroy"
        tmp_data = {'type'=>'destroy', 'data'=>[self.uid]}
      else
        tmp_data = {'type'=>type, 'data'=>[bulletin_data.to_json]}
      end
      request = Net::HTTP::Post.new('/xhr/feeds/notify_change', 'Content-Type' => 'application/json')
      related_feeds.each do |feed|
        tmp_data['uid'] = feed.uid
        request.body = tmp_data.to_json
        feed.remote_urls.each do |remote_url|
          uri = URI(remote_url)
          http_req = Net::HTTP.new(uri.host, uri.port)
          if remote_url.include?('https')
            http_req.use_ssl = true
          end
          response = self.class.http_request( http_req , request )
        end
      end
    end
  end
  def self.notify_all_feed(force_update=false)
    related_feeds = BulletinFeed.where(:remote_urls.nin=>[nil, []]).to_a
    related_feeds.each do |feed|
      uid = feed.uid
      startdt = nil
      enddt = nil
      dt = nil
      feed_cache = BulletinFeedCache.where(uid: uid, start: startdt, end: enddt, date: dt)
      if force_update
        feed_cache = nil
      else 
        feed_cache_old = feed_cache.all_of([{:invalid_date.ne=>nil},{:invalid_date.lte => Time.now}]).last
        feed_cache.all_of([{:invalid_date.ne=>nil},{:invalid_date.lte => Time.now}]).destroy
        count = feed_cache.count
        if count > 1
          feed_cache.limit(count-1).destroy
        end
        feed_cache = feed_cache.first
        anns = ''
      end
      if feed_cache.nil?
        anns = feed.generate_one_cache_timeout(startdt: startdt,enddt: enddt,dt: dt,timeout: 20)
        anns = (feed_cache_old.content rescue "") if anns.nil?
      else
        anns = feed_cache.content
      end
      request = Net::HTTP::Post.new('/xhr/feeds/notify_change', 'Content-Type' => 'application/json')
      tmp_data = {'type'=>'update_all', 'uid'=> uid, 'data'=>anns}
      request.body = tmp_data.to_json
      feed.remote_urls.each do |remote_url|
        uri = URI(remote_url)
        http_req = Net::HTTP.new(uri.host, uri.port)
        if remote_url.include?('https')
          http_req.use_ssl = true
        end
        response = self.http_request( http_req , request )
      end
    end
  end
  def self.notify_feed_delete(ids)
    all_feeds = BulletinFeed.all.select{|feed| feed.remote_urls.count != 0}
    if all_feeds.count != 0
      tmp_data = {'type'=>'destroy'}
      request = Net::HTTP::Post.new('/xhr/feeds/notify_change', 'Content-Type' => 'application/json')
      all_feeds.each do |feed|
        feed_uid = feed.uid
        feed_cache = BulletinFeedCache.where(:uid=>feed_uid).first
        if feed_cache
          tmp_data['uid'] = feed_uid
          tmp_data['data'] = ids & JSON.parse(feed_cache.content)["announcements"].map{|a| a["id"]}
          request.body = tmp_data.to_json
          if tmp_data['data'].count != 0
            feed.remote_urls.each do |remote_url|
              uri = URI(remote_url)
              http_req = Net::HTTP.new(uri.host, uri.port)
              if remote_url.include?('https')
                http_req.use_ssl = true
              end
              response = self.http_request( http_req , request )
            end
          end
        end
      end
    end
  end
  def self.http_request(http, request)
    response = http.request(request)
    if response.code.to_i == 301 || response.code.to_i == 302
      location = response["location"]
      new_uri = URI(location)
      http = Net::HTTP.new(new_uri.host, new_uri.port)
      if location.include?('https')
        http.use_ssl = true
        http.verify_mode = OpenSSL::SSL::VERIFY_PEER
      end
      request.instance_variable_set(:@path, new_uri.path)
      response = self.http_request(http, request)
    end
    response
  end
end