ish_models 0.0.33.304 → 3.1.0.0

data/lib/office/directmail_envelope.rb

@@ -1,51 +0,0 @@
-require 'prawn'
-
-class Office::DirectmailEnvelope
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-
-  ## 72 points per inch
-  ## 72 ppi
-  def self.list_to_envelopes props
-    from = props[:from]
-
-    pdf = Prawn::Document.new({ page_size: [ 9.5*72, 4.12*72 ], :margin => [0,0,0,0] })
-
-    pdf.canvas do
-
-      props[:tos].each_with_index do |to, idx|
-        print '.'
-
-        pdf.bounding_box( [  0.5*72, 3.5*72 ], width: 3*72, height: 2*72 ) do
-          # pdf.transparent(0.5) { pdf.stroke_bounds }
-
-          pdf.text from[:name]
-          pdf.text from[:address_1]
-          pdf.text from[:address_2]
-          pdf.text from[:address_3]
-        end
-
-        pdf.bounding_box( [ 4*72, 2.5*72 ], width: 4*72, height: 2*72 ) do
-          # pdf.transparent(0.5) { pdf.stroke_bounds }
-
-          pdf.text to[:name]
-          pdf.text to[:address_1]
-          pdf.text to[:address_2]
-          pdf.text to[:address_3]
-        end
-
-        if idx+1 != props[:tos].length
-          pdf.start_new_page
-        end
-
-      end
-
-    end
-
-    return pdf
-  end
-
-end
-ODE = ::Office::DirectmailEnvelope
-

data/lib/office/email_action.rb

@@ -1,34 +0,0 @@
-
-##
-## 2023-03-04 _vp_ When I receive one.
-## 2023-03-04 _vp_ When I send one, forever.
-##
-class Office::EmailAction
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  field :slug, type: :string
-  validates :slug, uniqueness: true, allow_nil: true
-
-  field :descr, type: :string ## optional, can remove
-
-  belongs_to :email_template, class_name: '::Ish::EmailTemplate'
-  def tmpl; email_template; end
-
-  has_many :scheduled_email_actions, class_name: '::Office::ScheduledEmailAction'
-  def schs; scheduled_email_actions; end
-
-  has_many :ties,      class_name: '::Office::EmailActionTie', inverse_of: :email_action
-  has_many :prev_ties, class_name: '::Office::EmailActionTie', inverse_of: :next_email_action
-  accepts_nested_attributes_for :ties
-
-  has_many :email_filters, class_name: 'Office::EmailFilter', inverse_of: :email_action
-
-  field :deleted_at, default: nil, type: :time
-
-  def self.list
-    [[nil,nil]] + Office::EmailAction.where({ :deleted_at => nil }).map { |a| [ a.slug, a.id ] }
-  end
-
-end
-EAct = Office::EmailAction

data/lib/office/email_action_tie.rb

@@ -1,18 +0,0 @@
-
-##
-## act = Act.new ; tie = Actie.new; act.ties.push( tie )
-##
-class Office::EmailActionTie
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  attr_accessor :to_delete
-
-  belongs_to :email_action,      class_name: '::Office::EmailAction', inverse_of: :ties
-  belongs_to :next_email_action, class_name: '::Office::EmailAction', inverse_of: :prev_ties
-
-  field :next_at_exe, type: :string
-  validates :next_at_exe, presence: true
-
-end
-EActie = Office::EmailActionTie

data/lib/office/email_attachment.rb

@@ -1,12 +0,0 @@
-
-class Office::EmailAttachment
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  belongs_to :email_message, class_name: 'Office::EmailMessage', inverse_of: :email_attachments
-
-  field :content
-  field :content_type
-  field :filename
-
-end

data/lib/office/email_conversation.rb

@@ -1,86 +0,0 @@
-
-class Office::EmailConversation
-  include Mongoid::Document
-  include Mongoid::Timestamps
-  include Mongoid::Paranoia
-
-  STATE_UNREAD = 'state_unread'
-  STATE_READ   = 'state_read'
-  STATES       = [ STATE_UNREAD, STATE_READ ]
-  field :state
-
-  field :subject
-  index({ subject: -1 })
-
-  field :latest_at
-  index({ latest_at: -1 })
-
-  field :from_emails, type: :array, default: []
-  index({ from_emails: -1 })
-
-  field :preview, default: ''
-
-  has_many :lead_ties, class_name: 'Office::EmailConversationLead'
-  # def lead_ids
-  #   email_conversation_leads.map( &:lead_id )
-  # end
-  # field :lead_ids, type: :array, default: []
-  def leads
-    Lead.find( lead_ties.map( &:lead_id ) )
-  end
-
-  has_many :email_messages,          class_name: 'Office::EmailMessage'
-  has_many :email_conversation_tags, class_name: 'Office::EmailConversationTag'
-
-  def wp_term_ids ## @TODO: remove _vp_ 2023-09-23
-    email_conversation_tags.map( &:wp_term_id )
-  end
-
-  def tags
-    WpTag.find( email_conversation_tags.map( &:wp_term_id ) )
-  end
-
-  ## Tested manually ok, does not pass the spec. @TODO: hire to make pass spec? _vp_ 2023-03-07
-  def add_tag which
-    tag = WpTag.iso_get which
-    # puts!( tag.slug, "Adding tag" ) if DEBUG
-    Office::EmailConversationTag.find_or_create_by!({
-      email_conversation_id: id,
-      wp_term_id:            tag.id,
-    })
-  end
-
-  def remove_tag which
-    tag = WpTag.iso_get which
-    # puts!( tag.slug, "Removing tag" ) if DEBUG
-    Office::EmailConversationTag.where({
-      email_conversation_id: id,
-      wp_term_id:            tag.id,
-    }).first&.delete
-  end
-  ## @deprecated, do not use. _vp_ 2023-10-29
-  def rmtag which; remove_tag which; end
-
-  def in_emailtag? which
-    tag = WpTag.iso_get( which )
-    email_conversation_tags.where({ wp_term_id: tag.id }).present?
-  end
-
-  def self.in_emailtag which
-    tag = WpTag.iso_get( which )
-    email_conversation_tags = Office::EmailConversationTag.where({ wp_term_id: tag.id })
-    where({ :id.in => email_conversation_tags.map(&:email_conversation_id) })
-  end
-
-  def self.not_in_emailtag which
-    tag = WpTag.iso_get( which )
-    email_conversation_tags = Office::EmailConversationTag.where({ wp_term_id: tag.id })
-    where({ :id.nin => email_conversation_tags.map(&:email_conversation_id) })
-  end
-
-
-
-
-
-end
-Conv = Office::EmailConversation

data/lib/office/email_conversation_lead.rb

@@ -1,11 +0,0 @@
-
-class Office::EmailConversationLead
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  belongs_to :email_conversation, class_name: 'Office::EmailConversation'
-
-  field :lead_id, type: :integer
-  validates :lead_id, uniqueness: { scope: :email_conversation_id }, presence: true
-
-end

data/lib/office/email_conversation_tag.rb

@@ -1,14 +0,0 @@
-
-class Office::EmailConversationTag
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  belongs_to :email_conversation, class_name: 'Office::EmailConversation'
-
-  field     :wp_term_id, type: :integer
-  validates :wp_term_id, uniqueness: { scope: :email_conversation_id }, presence: true
-  index({ wp_term_id: -1 })
-  index({ wp_term_id: -1, latest_at: -1 })
-
-
-end

data/lib/office/email_filter.rb

@@ -1,45 +0,0 @@
-
-##
-## 2023-03-04 _vp_ When I receive one.
-##
-class Office::EmailFilter
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  field :from_regex
-  field :from_exact
-  field :subject_regex
-  field :subject_exact
-  field :body_regex
-  field :body_exact
-
-
-  KIND_AUTORESPOND_TMPL = 'autorespond-template'
-  KIND_AUTORESPOND_EACT = 'autorespond-email-action'
-  KIND_REMOVE_TAG       = 'remove-tag'
-  KIND_ADD_TAG          = 'add-tag'
-  KIND_DESTROY_SCHS     = 'destroy-schs'
-
-  KIND_AUTORESPOND = 'autorespond' # @deprecated, DO NOT USE!
-  KIND_DELETE      = 'delete'      # @deprecated, use add-tag
-  KIND_SKIP_INBOX  = 'skip-inbox'  # @deprecated, use remove-tag
-
-  KINDS = [ nil, KIND_AUTORESPOND_TMPL, KIND_AUTORESPOND_EACT, KIND_ADD_TAG, KIND_REMOVE_TAG, KIND_DESTROY_SCHS]
-  field :kind
-
-  STATE_ACTIVE   = 'active'
-  STATE_INACTIVE = 'inactive'
-  STATES = [ STATE_ACTIVE, STATE_INACTIVE ]
-  field :state, type: :string, default: STATE_ACTIVE
-  scope :active, ->{ where( state: STATE_ACTIVE ) }
-
-  belongs_to :email_template, class_name: 'Ish::EmailTemplate', optional: true
-  belongs_to :email_action,   class_name: 'Office::EmailAction', optional: true
-
-  field :wp_term_id, type: :integer
-  def category
-    self.wp_term_id && WpTag.find( self.wp_term_id )
-  end
-
-end
-

data/lib/office/email_message.rb

@@ -1,229 +0,0 @@
-
-require 'action_view'
-
-##
-## When I receive one.
-##
-class Office::EmailMessage
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  field :raw,         type: :string
-  def the_mail
-    Mail.new( raw )
-  end
-
-  field :message_id,  type: :string # MESSAGE-ID
-  validates_uniqueness_of :message_id
-  index({ message_id: 1 }, { unique: true, name: "id_idx" })
-
-  field :in_reply_to_id, type: :string
-
-  field :object_key,  type: :string ## aka 'filename', use with bucket name + prefix. I need this!
-  # validates_presence_of :object_key
-  field :object_path, type: :string ## A routable s3 url
-
-  field :subject
-  field :part_html
-  field :part_txt
-
-  def lead
-    Lead.find_by email: from
-  end
-
-  field :from,   type: :string
-  field :froms,  type: Array, default: []
-  field :to,     type: :string
-  field :tos,    type: Array, default: []
-  field :cc,     type: :string
-  field :ccs,    type: Array, default: []
-  def all_ccs; (tos||[]) + (ccs||[]) + (froms||[]); end
-  field :bcc,    type: :string
-  field :bccs,   type: Array, default: []
-
-  field :logs, type: Array, default: []
-
-  field :date, type: DateTime
-  def received_at
-    date
-  end
-
-  belongs_to :email_conversation, class_name: 'Office::EmailConversation'
-  def conv
-    email_conversation
-  end
-
-  has_many :email_attachments, class_name: 'Office::EmailAttachment', inverse_of: :email_message
-  has_many :asset3ds,          class_name: 'Gameui::Asset3d',         inverse_of: :email_message
-  has_many :attachments,       class_name: 'Photo'
-
-
-
-  def apply_filter filter
-    case filter.kind
-
-    when ::Office::EmailFilter::KIND_DESTROY_SCHS
-      conv.add_tag    ::WpTag::TRASH
-      conv.remove_tag ::WpTag::INBOX
-      lead.schs.each do |sch|
-        sch.update_attributes({ state: ::Sch::STATE_TRASH })
-      end
-
-    when ::Office::EmailFilter::KIND_ADD_TAG
-      conv.add_tag filter.wp_term_id
-      if ::WpTag::TRASH == ::WpTag.find( filter.wp_term_id ).slug
-        conv.remove_tag ::WpTag::INBOX
-      end
-
-    when ::Office::EmailFilter::KIND_REMOVE_TAG
-      conv.remove_tag filter.wp_term_id
-
-    when ::Office::EmailFilter::KIND_AUTORESPOND_TMPL
-      Ish::EmailContext.create({
-        email_template: filter.email_template,
-        lead_id:        lead.id,
-        send_at:        Time.now + 22.minutes,
-      })
-
-    when ::Office::EmailFilter::KIND_AUTORESPOND_EACT
-      ::Sch.create({
-        email_action: filter.email_action,
-        state:        ::Sch::STATE_ACTIVE,
-        lead_id:      lead.id,
-        perform_at:   Time.now + 22.minutes,
-      })
-
-    else
-      raise "unknown filter kind: #{filter.kind}"
-    end
-  end
-
-  ## From: https://stackoverflow.com/questions/24672834/how-do-i-remove-emoji-from-string/24673322
-  def self.strip_emoji(text)
-    text = '' if text.blank?
-    text = text.force_encoding('utf-8').encode
-    clean = ""
-
-    # symbols & pics
-    regex = /[\u{1f300}-\u{1f5ff}]/
-    clean = text.gsub regex, ""
-
-    # enclosed chars
-    regex = /[\u{2500}-\u{2BEF}]/ # I changed this to exclude chinese char
-    clean = clean.gsub regex, ""
-
-    # emoticons
-    regex = /[\u{1f600}-\u{1f64f}]/
-    clean = clean.gsub regex, ""
-
-    #dingbats
-    regex = /[\u{2702}-\u{27b0}]/
-    clean = clean.gsub regex, ""
-  end
-
-  ## For recursive parts of type `related`.
-  ## Content dispositions:
-  # "inline; creation-date=\"Tue, 11 Apr 2023 19:39:42 GMT\"; filename=image005.png; modification-date=\"Tue, 11 Apr 2023 19:47:53 GMT\"; size=14916",
-  #
-  ## Content Types:
-  # "application/pdf; name=\"Securities Forward Agreement -- HaulHub Inc -- Victor Pudeyev -- 2021-10-26.docx.pdf\""
-  # "image/jpeg; name=TX_DL_2.jpg"
-  # "image/png; name=image005.png"
-  # "multipart/alternative; boundary=_000_BL0PR10MB2913C560ADE059F0AB3A6D11829A9BL0PR10MB2913namp_",
-  # "text/html; charset=utf-8"
-  # "text/plain; charset=UTF-8"
-  # "text/calendar; charset=utf-8; method=REQUEST"
-  def churn_subpart part
-    if part.content_disposition&.include?('attachment')
-      save_attachment( part, filename: "subpart-attachment" )
-    else
-      if part.content_type.include?("multipart")
-        part.parts.each do |subpart|
-          churn_subpart( subpart )
-        end
-      else
-        if part.content_type.include?('text/html')
-          self.part_html = part.decoded
-
-        elsif part.content_type.include?("text/plain")
-          self.part_txt = part.decoded
-
-        elsif part.content_type.include?("text/calendar")
-          save_attachment( part, filename: 'subpart-calendar.ics' )
-
-        elsif part.content_type.include?("application/pdf")
-          save_attachment( part, filename: 'subpart.pdf' )
-
-        elsif part.content_type.include?("image/jpeg")
-          save_attachment( part, filename: 'subpart.jpg' )
-
-        elsif part.content_type.include?("image/png")
-          save_attachment( part, filename: 'subpart.png' )
-
-        else
-          save_attachment( part, filename: 'subpart-unspecified' )
-          self.logs.push "444 No action for a part with content_type #{part.content_type}"
-
-        end
-      end
-    end
-  end
-
-  def save_attachment att, filename: "no-filename-specified"
-    content_type = att.content_type.split(';')[0]
-    if content_type.include? 'image'
-      photo = Photo.new({
-        content_type:      content_type,
-        email_message_id:  self.id,
-        image_data:        att.body.encoded,
-        original_filename: att.content_type_parameters[:name],
-      })
-      photo.decode_base64_image
-      photo.save
-    else
-
-      filename   = CGI.escape( att.filename || filename )
-      attachment = Office::EmailAttachment.new({
-        content:       att.body.decoded,
-        content_type:  att.content_type,
-        email_message: self,
-        filename:      filename,
-      })
-      begin
-        attachment.save
-      rescue Encoding::UndefinedConversionError
-        self.logs.push "Could not save an attachment"
-        self.save
-      end
-
-      sio = StringIO.new att.body.decoded
-      File.open("/tmp/#{filename}", 'w:UTF-8:ASCII-8BIT') do |f|
-        f.puts(sio.read)
-      end
-      asset3d = ::Gameui::Asset3d.new({
-        email_message: self,
-        filename:      filename,
-        object:        File.open("/tmp/#{filename}"),
-      })
-      if !asset3d.save
-        self.logs.push "Could not save an asset3d"
-        self.save
-      end
-
-    end
-  end
-
-  def body_sanitized
-    ActionView::Base.full_sanitizer.sanitize( part_html||'' ).squish
-  end
-  def preview_str
-    body_sanitized[0..200]
-  end
-
-
-end
-::Msg = Office::EmailMessage
-
-
-
-

data/lib/office/email_message_stub.rb

@@ -1,22 +0,0 @@
-
-##
-## Only object_key, object_path, no validations.
-##
-class Office::EmailMessageStub
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  STATE_PENDING   = 'state_pending'
-  STATE_PROCESSED = 'state_processed'
-  STATES          = [ STATE_PENDING, STATE_PROCESSED ]
-  field :state, type: :string, default: STATE_PENDING
-
-  field :object_key,  type: :string     ## aka 'filename', use with bucket name + prefix
-  validates :object_key, presence: true, uniqueness: true
-
-  # field :object_path, type: :string ## A routable s3 url ## @TODO: remove this field. _vp_ 2023-03-07
-
-  # field :wp_term_ids, type: :array, default: []
-
-end
-MsgStub = EMS = Office::EmailMessageStub

data/lib/office/lead_action.rb

@@ -1,24 +0,0 @@
-
-##
-## The obfuscated action
-##
-class Office::LeadAction
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  belongs_to :lead_action_template, class_name: '::Office::LeadActionTemplate', inverse_of: :lead_actions, foreign_key: :tmpl_id
-  def tmpl
-    lead_action_template
-  end
-
-  field     :lead_id, type: :integer
-  validates :lead_id, presence: true
-  def lead
-    Lead.find( lead_id )
-  end
-
-  field :params, type: Object, default: '{}'
-
-
-end
-

data/lib/office/lead_action_template.rb

@@ -1,47 +0,0 @@
-
-##
-##
-class Office::LeadActionTemplate
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  has_many :lead_actions, class_name: '::Office::LeadAction', inverse_of: :lead_action_templates
-
-  field     :slug
-  validates :slug, presence: true
-
-  field     :action_exe, type: :string
-  # validates :action_exe, presence: true
-
-  field     :config_json, type: Object, default: '{}'
-
-  field     :kind, type: :string
-  KIND_UNSUBSCRIBE_TEMPLATE = 'kind-unsubscribe-template'
-  KIND_UNSUBSCRIBE_CAMPAIGN = 'kind-unsubscribe-campaign'
-  KINDS                     = [ KIND_UNSUBSCRIBE_TEMPLATE, KIND_UNSUBSCRIBE_CAMPAIGN ]
-
-  def to_s
-    "OLAT:#{slug}"
-  end
-
-  def unsubscribe_from_campaign
-  end
-
-  def unsubscribe_from_template
-    template = EmailTemplate.find( ctx[:template_id] )
-    subject  = "Lead #{lead.full_name} unsubscribed from template #{template.slug}"
-    out      = Mailer.notify( 'poxlovi@gmail.com', subject )
-    Rails.env.production? ? out.deliver_later : out.deliver_now
-    Office::Unsubscribe.create({
-      lead_id: lead_id,
-      template_id: config_json['template_id'],
-    })
-  end
-
-  def self.list
-    [ [nil,nil] ] + all.map { |i| [ i.slug, i.id.to_s ] }
-  end
-
-
-end
-OLAT = Office::LeadActionTemplate

data/lib/office/obfuscated_redirect.rb

@@ -1,12 +0,0 @@
-
-class Office::ObfuscatedRedirect
-  include Mongoid::Document
-  include Mongoid::Timestamps
-
-  field :to,     type: :string
-  validates :to, presence: true
-
-  field :visited_at, type: DateTime
-  field :visits, type: :array, default: []
-
-end

data/lib/office/scheduled_email_action.rb

@@ -1,62 +0,0 @@
-
-##
-## 2023-03-04 _vp_ An instance of an EmailAction.
-##
-class Office::ScheduledEmailAction
-  include Mongoid::Document
-  include Mongoid::Timestamps
-  include Mongoid::Paranoia
-  store_in collection: 'office_scheduled_email_actions'
-
-  field :lead_id, type: :integer
-  def lead
-    Lead.find( lead_id )
-  end
-
-  STATE_ACTIVE       = 'active'
-  STATE_INACTIVE     = 'inactive'
-  STATE_TRASH        = 'trash'
-  STATE_UNSUBSCRIBED = 'unsubscribed'
-  STATES             = [ STATE_ACTIVE, STATE_INACTIVE, STATE_UNSUBSCRIBED, STATE_TRASH ]
-  field :state, type: :string
-  scope :active, ->{ where( state: STATE_ACTIVE ) }
-
-  belongs_to :email_action, class_name: '::Office::EmailAction'
-  validates  :email_action, uniqueness: { scope: :lead_id }
-  def act;    email_action;    end
-  def act= a; email_action= a; end
-
-  has_many :email_contexts, class_name: '::Ish::EmailContext'
-  def ctxs; email_contexts; end
-
-  field :perform_at, type: :time
-
-  def send_and_roll
-    sch = self
-    sch.update({ state: Sch::STATE_INACTIVE })
-
-    # send now
-    ctx = Ctx.create!({
-      email_template_id:         sch.act.tmpl.id,
-      from_email:                sch.act.tmpl.from_email,
-      lead_id:                   sch.lead.id,
-      scheduled_email_action_id: sch.act.id,
-      send_at:                   Time.now,
-      subject:                   sch.act.tmpl.subject,
-    })
-
-    # schedule next actions & update the action
-    sch.act.ties.each do |tie|
-      next_sch = Sch.find_or_initialize_by({
-        lead_id:         sch.lead_id,
-        email_action_id: tie.next_email_action.id,
-      })
-      next_sch.perform_at = eval(tie.next_at_exe)
-      next_sch.state      = Sch::STATE_ACTIVE
-      next_sch.save!
-    end
-  end
-
-end
-::Sch = Office::ScheduledEmailAction
-