wco_models 3.1.0.31

data/app/models/wco/utils.rb

@@ -0,0 +1,45 @@
+
+module Wco::Utils
+
+  def export
+    out = {}
+    %w| created_at updated_at |.map do |f|
+      out[f] = send(f)
+    end
+    export_fields.map do |field|
+      if field[-3..-1] == '_id'
+        out[field] = send(field).to_s
+      else
+        out[field] = send(field)
+      end
+    end
+    out[:_id] = id.to_s
+    out.with_indifferent_access
+  end
+
+  private
+
+  def set_slug
+    return if !slug.blank?
+    if name
+      new_slug = name.downcase.gsub(/[^a-z0-9\s]/i, '').gsub(' ', '-')
+    else
+      new_slug = '1'
+    end
+    if self.class.where( slug: new_slug ).first
+      loop do
+        if new_slug[new_slug.length-1].to_i != 0
+          # inrement last digit
+          last_digit = new_slug[new_slug.length-1].to_i
+          new_slug = "#{new_slug[0...new_slug.length-1]}#{last_digit+1}"
+        else
+          # add '-1' to the end
+          new_slug = "#{new_slug}-1"
+        end
+        break if !self.class.where( slug: new_slug ).first
+      end
+    end
+    self.slug = new_slug
+  end
+
+end

data/app/models/wco_email/campaign.rb

@@ -0,0 +1,55 @@
+
+##
+## Sends a campaign.
+## _vp_ 2023-02-02
+##
+class WcoEmail::Campaign
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'ish_email_campaigns'
+
+  field :slug
+  validates_uniqueness_of :slug, allow_nil: true
+
+  PAGE_PARAM_NAME = 'email_contexts_page'
+
+  field :from_email
+  validates_presence_of :from_email
+
+  belongs_to :email_template
+  def tmpl; email_template; end
+
+  field :subject
+  field :body
+
+  field :sent_at, type: DateTime
+  field :send_at, type: DateTime
+
+  has_many :unsubscribes, class_name: '::Ish::EmailUnsubscribe', inverse_of: :campaign
+
+  def campaign_leads
+    return ::EmailCampaignLead.where( email_campaign_id: self.id.to_s ).includes( :lead )
+  end
+
+  def leads
+    ::Lead.joins( :email_campaign_leads ).where( 'email_campaign_leads.email_campaign_id' => self.id.to_s )
+  end
+
+  ##
+  ## For tracking
+  ##
+  attr_reader :tid
+
+  def do_send
+    leads.each do |lead|
+      ctx = Ctx.create!({
+        email_template: tmpl,
+        from_email:     tmpl.from_email,
+        lead_id:        lead.id,
+        send_at:        Time.now,
+        subject:        tmpl.subject,
+      })
+    end
+  end
+
+end

data/app/models/wco_email/context.rb

@@ -0,0 +1,114 @@
+##
+## Send a single email
+##
+
+class WcoEmail::Context
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'ish_email_contexts'
+
+  field :slug
+  validates_uniqueness_of :slug, allow_nil: true
+
+  field :preview_str, type: :string
+  def preview_str
+    if self[:preview_str].presence
+      return self[:preview_str]
+    else
+      return tmpl.preview_str
+    end
+  end
+
+  field :body
+  def body
+    if self[:body].presence
+      return self[:body]
+    else
+      return tmpl.body
+    end
+  end
+
+  PAGE_PARAM_NAME = 'email_contexts_page'
+
+  field :from_email
+  def from_email
+    if self[:from_email].presence
+      return self[:from_email]
+    else
+      return tmpl.from_email
+    end
+  end
+
+  field :subject
+  def subject
+    self[:subject].presence || tmpl.subject
+  end
+
+  belongs_to :email_template
+  def tmpl; email_template; end
+
+  belongs_to :scheduled_email_action, class_name: '::Office::ScheduledEmailAction', optional: true
+  def sch; scheduled_email_action; end
+
+  belongs_to :email_campaign, class_name: 'Ish::EmailCampaign', optional: true
+
+  field :rendered_str
+
+  field :sent_at,         type: DateTime
+  field :send_at,         type: DateTime
+  field :unsubscribed_at, type: DateTime
+
+
+  def notsent
+    Ish::EmailContext.where( sent_at: nil, unsubscribed_at: nil )
+  end
+  def self.notsent; new.notsent; end
+
+
+  def scheduled
+    # or({ :send_at.lte => Time.now }, { :send_at => nil }) ## This won't work b/c I need draft state!
+    Ish::EmailContext.where({ :send_at.lte => Time.now  })
+  end
+  def self.scheduled; new.scheduled; end
+
+
+  ## like belongs_to to_lead , but Lead is SQL to just the lead_id
+  field :lead_id, type: :integer
+  def lead; Lead.find( lead_id ); end
+  def to_email; lead[:email]; end ## @TODO: remove, just use the lead. _vp_ 2023-03-27
+  # ## no `to` field b/c that's the lead
+  # field :tos, type: :array, default: []
+  field :cc,  type: :string
+  field :ccs, type: :array, default: []
+
+  ##
+  ## For tracking / utm
+  ##
+  attr_reader :tid
+
+  def get_binding
+    @lead = lead()
+    @utm_tracking_str = {
+      'cid'          => lead.id,
+      'utm_campaign' => tmpl.slug,
+      'utm_medium'   => 'email',
+      'utm_source'   => tmpl.slug,
+    }.map { |k, v| "#{k}=#{v}" }.join("&")
+    eval( tmpl.config_exe )
+    binding()
+  end
+
+  def self.summary
+    pipeline = [
+      { '$group' => {
+        '_id' => { '$dateToString' => { 'format' => "%Y-%m-%d", 'date' => "$sent_at", 'timezone' => 'America/Chicago' } }, 'total' => { '$sum' => 1 }
+      } },
+      { '$sort' => { '_id': -1 } },
+    ]
+    outs = Ish::EmailContext.collection.aggregate( pipeline )
+    outs.to_a
+  end
+
+end
+Ctx = WcoEmail::Context
+

data/app/models/wco_email/conversation.rb

@@ -0,0 +1,48 @@
+
+class WcoEmail::Conversation
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  # include Mongoid::Paranoia
+
+  store_in collection: 'office_email_conversations'
+
+  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'
+
+  has_and_belongs_to_many :tags, class_name: 'Wco::Tag'
+
+  # def self.in_tag tag
+  #   case tag.class
+  #   when String
+  #     tag = Wco::Tag.find_by slug: tag
+  #   end
+  #   where( :tag_ids => tag.id )
+  # end
+
+end
+Conv = WcoEmail::Conversation

data/app/models/wco_email/email_filter.rb

@@ -0,0 +1,45 @@
+
+##
+## 2023-03-04 _vp_ When I receive one.
+##
+class WcoEmail::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/app/models/wco_email/message_template.rb

@@ -0,0 +1,6 @@
+
+class WcoEmail::MessageTemplate
+  include Mongoid::Document
+  include Mongoid::Timestamps
+
+end

data/app/models/wco_email/scheduled_email_action.rb

@@ -0,0 +1,64 @@
+
+require 'mongoid-paranoia'
+
+##
+## 2023-03-04 _vp_ An instance of an EmailAction.
+##
+class WcoEmail::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 = WcoEmail::ScheduledEmailAction
+

data/app/models/wco_email/tag.rb-trash

@@ -0,0 +1,15 @@
+
+class WcoEmail::Tag
+  include Mongoid::Document
+  include Mongoid::Timestamps
+
+  field :slug
+  # index
+  # validate presence
+  # validate uniqueness ?
+
+  # parent-child
+
+  has_and_belongs_to_many :email_conversations, class_name: 'Wco::EmailConversation'
+
+end

data/app/models/wco_hosting/appliance.rb

@@ -0,0 +1,44 @@
+
+class WcoHosting::Appliance
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'wco_appliances'
+
+  belongs_to :leadset, class_name: 'Wco::Leadset', inverse_of: :appliances
+
+  field :service_name
+  before_validation :set_service_name, on: :create, unless: ->{ service_name }
+  def set_service_name
+    self[:service_name] = host.gsub(".", "_")
+  end
+
+  field :environment
+
+  field :subdomain
+  field :domain
+  def host
+    "#{subdomain}.#{domain}"
+  end
+
+  field :n_retries, type: :integer, default: 3
+
+  belongs_to :appliance_tmpl, class_name: 'WcoHosting::ApplianceTmpl'
+  def tmpl
+    appliance_tmpl
+  end
+  def kind
+    tmpl.kind
+  end
+
+  belongs_to :serverhost,  class_name: 'WcoHosting::Serverhost'
+
+  field :port
+
+  STATE_PENDING = 'state-pending'
+  STATE_LIVE    = 'state-live'
+  STATE_TERM    = 'state-term'
+  field :state, default: STATE_PENDING
+
+end
+
+

data/app/models/wco_hosting/appliance_tmpl.rb

@@ -0,0 +1,57 @@
+
+class WcoHosting::ApplianceTmpl
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'wco_appliance_tmpls'
+
+  field :kind
+  validates :kind, uniqueness: { scope: :version }, presence: true
+
+  field :version, type: :string, default: '0.0.0'
+  validates :version, uniqueness: { scope: :kind }, presence: true
+  index({ kind: -1, version: -1 }, { name: :kind_version })
+
+  field :descr, type: :string
+
+  field :image
+  validates :image, presence: true
+
+  field :volume_zip
+  validates :volume_zip, presence: true
+
+  ## Only underscores! These become variable names.
+  # KIND_CRM        = 'kind_crm'
+  # KIND_DRUPAL     = 'kind_drupal'
+  # KIND_HELLOWORLD = 'kind_helloworld'
+  # KIND_IROWOR     = 'kind_irowor'
+  # KIND_JENKINS    = 'kind_jenkins'
+  # KIND_MATOMO     = 'kind_matomo'
+  # KIND_MOODLE     = 'kind_moodle'
+  # KIND_PRESTASHOP = 'kind_prestashop'
+  # KIND_SMT        = 'kind_smt'
+  # KIND_WORDPRESS  = 'kind_wordpress'
+
+  ## 2023-12-08 :: These names are impossible to change already.
+  KIND_CRM        = 'crm'
+  KIND_DRUPAL     = 'drupal'
+  KIND_HELLOWORLD = 'helloworld'
+  KIND_IROWOR     = 'irowor'
+  KIND_JENKINS    = 'jenkins'
+  KIND_MATOMO     = 'matomo'
+  KIND_MOODLE     = 'moodle'
+  KIND_PRESTASHOP = 'prestashop'
+  KIND_SMT        = 'smt'
+  KIND_WORDPRESS  = 'wordpress'
+
+  KINDS = [ KIND_CRM, KIND_DRUPAL, KIND_HELLOWORLD, KIND_IROWOR,
+    KIND_JENKINS, KIND_MATOMO, KIND_MOODLE, KIND_PRESTASHOP, KIND_SMT,
+    KIND_WORDPRESS ]
+
+  has_many :appliances, class_name: 'WcoHosting::Appliance'
+
+  def self.latest_of kind
+    where({ kind: kind }).order_by({ version: :desc }).first
+  end
+
+end
+AppTmpl = WcoHosting::ApplianceTmpl

data/app/models/wco_hosting/domain.rb

@@ -0,0 +1,24 @@
+
+class WcoHosting::Domain
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'wco_dns_domains'
+
+  field :name
+  validates :name, presence: true, uniqueness: true
+
+  ## orbital.city         : Z0145070C3DD1OJWHTXJ
+  ## oquaney-splicing.com : Z060228025Y0JHUA35GN5
+  # field :route53_zone
+  # validates :route53_zone, presence: true
+
+  STATE_ACTIVE   = 'active'
+  STATE_INACTIVE = 'inactive'
+  STATES         = [ 'active', 'inactive' ]
+  field :state, default: STATE_ACTIVE
+
+  def self.list
+    [[nil,nil]] + all.where({ state: STATE_ACTIVE }).map { |i| [i.name, i.name ] }
+  end
+
+end