wco_models 3.1.0.37 → 3.1.0.39

data/app/models/wco/invoice.rb

@@ -0,0 +1,127 @@
+require 'autoinc'
+require 'prawn'
+require 'prawn/table'
+
+##
+## Invoice - for wasya.co
+## 2017-10-31 _vp_ Start
+## 2023-08-18 _vp_ Continue
+##
+class Wco::Invoice
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  include Mongoid::Autoinc
+  include Mongoid::Paranoia
+  store_in collection: 'ish_invoice'
+
+  field :email, type: String
+
+  field :invoice_id, type: String # stripe
+
+  belongs_to :leadset, class_name: 'Wco::Leadset'
+
+  field :number, type: Integer
+
+  field :month_on, type: Date
+
+  has_one :asset, class_name: 'Wco::Asset' ## the pdf
+
+  def filename
+    "invoice-#{number}.pdf"
+  end
+
+  # field :amount_cents, type: Integer
+
+  field :description, type: String
+  field :items,       type: Array   # used by stripe
+
+
+
+  ## Prawn/pdf unit of measure is 1/72"
+  ## Canvas width: 612, height: 792
+  ##
+  ## tree image: 896 x 1159
+  ## tree image: 791 x 1024
+  ## tree image: 964 x 1248
+  ##
+  def generate_monthly_invoice
+    tree_img_url      = "#{Rails.root.join('public')}/tree-#{number}.jpg"
+    wasya_co_logo_url = "#{Rails.root.join('public')}/259x66-WasyaCo-logo.png"
+
+    ## canvas width: 612, height: 792
+    pdf = Prawn::Document.new
+
+    pdf.canvas do
+      pdf.image tree_img_url, at: [ 0, 792 ], width: 612
+
+      pdf.fill_color 'ffffff'
+      pdf.transparent( 0.75 ) do
+        pdf.fill_rectangle [0, 792], 612, 792
+      end
+      pdf.fill_color '000000'
+
+      pdf.image wasya_co_logo_url, at: [252, 720], width: 108 ## 1.5"
+
+      pdf.bounding_box( [0.75*72, 9.25*72], width: 3.25*72, height: 0.75*72 ) do
+        pdf.text "From:"
+        pdf.text "Wasya Co"
+        pdf.text "victor@wasya.co"
+      end
+
+      pdf.bounding_box( [4.5*72, 9.25*72], width: 3.25*72, height: 0.75*72 ) do
+        pdf.text "Stats:"
+        pdf.text "Date: #{ Time.now.to_date.to_s }"
+        pdf.text "Invoice #: #{ number }"
+      end
+
+      pdf.bounding_box( [0.75*72, 8.25*72], width: 3.25*72, height: 0.75*72 ) do
+        pdf.text "To:"
+        pdf.text leadset.name
+        pdf.text leadset.email
+      end
+
+      pdf.bounding_box( [4.5*72, 8.25*72], width: 3.25*72, height: 0.75*72 ) do
+        pdf.text "Notes:"
+        pdf.text "Support & various tasks, for the month of #{ month_on.strftime('%B') }."
+      end
+
+      lineitems_with_header = [
+        [ 'Description', 'Per Unit', '# of Units', 'Subtotal' ]
+      ]
+      total = 0
+      leadset.subscriptions.each do |i|
+        subtotal = (i.price.amount_cents * i.quantity).to_f/100
+        lineitems_with_header.push([ i.price.product.name, i.price.name_simple, i.quantity, subtotal ])
+        total += subtotal
+      end
+
+
+      pdf.move_down 20
+      pdf.table(lineitems_with_header, {
+        position: :center,
+        width: 7.5*72,
+        cell_style: {
+          inline_format: true,
+          borders: [ :bottom ]
+        },
+      } )
+
+      pdf.table([
+        [ 'Total' ],
+        [ total ],
+      ], {
+        position: 7*72,
+        width: 1*72,
+        cell_style: {
+          inline_format: true,
+          borders: [ :bottom ]
+        },
+      } )
+
+      pdf.text_box "Thank you!", at: [ 3.25*72, 1.25*72 ], width: 2*72, height: 1*72, align: :center
+    end
+
+    return pdf
+  end
+
+end

data/app/models/wco/lead.rb

@@ -2,6 +2,48 @@
 class Wco::Lead
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_leads'
 
+  field :email
+  validates :email, presence: true, uniqueness: true
+  index({ email: -1 })
+
+  field :name
+  field :phone
+  field :address
+
+  belongs_to :leadset, class_name: 'Wco::Leadset'
+  has_one :photo,      class_name: 'Wco::Photo'
+
+  has_and_belongs_to_many :conversations,           class_name: '::WcoEmail::Conversation'
+  def convs; conversations; end
+  has_many                :email_contexts,          class_name: '::WcoEmail::Context'
+  def ctxs; email_contexts; end
+  has_many                :email_actions,           class_name: '::WcoEmail::EmailAction'
+  # has_and_belongs_to_many :scheduled_email_actions, class_name: '::WcoEmail::ScheduledEmailAction'
+  def schs; email_actions; end
+  has_and_belongs_to_many :email_campaigns,         class_name: '::WcoEmail::Campaign'
+  has_and_belongs_to_many :tags,                    class_name: '::Wco::Tag'
+
+  # has_many :galleries, class_name: 'Wco::Gallery'
+  # has_many :videos, class_name: 'Wco::Video'
+
+  def self.list
+    all.map { |p| [ p.id, p.email ] }
+  end
+
+  OP_DELETE = 'delete'
+  OP_ADD_TO_CAMPAIGN = 'add_to_campaign'
+  OPS = [ OP_DELETE, OP_ADD_TO_CAMPAIGN ]
+
+  has_many :unsubscribes, class_name: '::WcoEmail::Unsubscribe'
+  field :unsubscribe_token
+  def unsubscribe_token
+    if !self[:unsubscribe_token]
+      update_attributes({ unsubscribe_token: (0...8).map { (65 + rand(26)).chr }.join })
+    end
+    self[:unsubscribe_token]
+  end
+
 end

data/app/models/wco/leadset.rb

@@ -2,19 +2,25 @@
 class Wco::Leadset
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_leadsets'
 
-  field :company_url
+  field     :company_url
   validates :company_url, presence: true, uniqueness: true
   index({ company_url: 1 }, { name: 'company_url' })
 
   field :email
   index({ email: 1 }, { name: 'email' })
-  validates :email, presence: true # , uniqueness: true ## @TODO: should it be unique? _vp_ 2023-12-22
+  validates :email, uniqueness: { allow_nil: true } # presence: true
 
+  has_many :leads,         class_name: 'Wco::Lead'
   has_many :profiles,      class_name: 'Wco::Profile',           inverse_of: :leadset
   has_many :appliances,    class_name: 'WcoHosting::Appliance',  inverse_of: :leadset
   has_many :subscriptions, class_name: 'Wco::Subscription',      inverse_of: :leadset
+  has_and_belongs_to_many :tags, class_name: 'Wco::Tag'
+
+  has_many :invoices,     class_name: 'Wco::Invoice'
+  field :next_invoice_number, type: :integer, default: 100
 
   has_and_belongs_to_many :serverhosts, class_name: 'WcoHosting::Serverhost' # , inverse_of: :leadset
   def next_serverhost

data/app/models/wco/log.rb

@@ -0,0 +1,18 @@
+
+
+class Wco::Log
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  include Mongoid::Paranoia
+  store_in collection: 'wco_logs'
+
+  field :message
+
+  field :class_name
+  field :object_id
+
+  field :raw_json, type: Object, default: '{}'
+
+  has_and_belongs_to_many :tags
+
+end

data/app/models/wco/newsitem.rb

@@ -3,6 +3,7 @@
 class Wco::Newsitem
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_newsitems'
 
   belongs_to :profile, class_name: 'Wco::Profile', optional: true

data/app/models/wco/office_action.rb

@@ -1,32 +1,31 @@
 
-##
-## 2023-09-13 _vp_ I don't know if it's even used.
-##
 class Wco::OfficeAction
   include Mongoid::Document
   include Mongoid::Timestamps
-  store_in collection: 'office_actions'
+  include Mongoid::Paranoia
+  store_in collection: 'wco_office_actions'
 
   field     :slug, type: :string
   validates :slug, uniqueness: true, allow_nil: true
 
-  field :descr, type: :string ## optional
+  # field :descr, type: :string ## optional
 
+  belongs_to :office_action_template, inverse_of: :office_action
+  def tmpl
+    office_action_template
+  end
 
-  STATE_ACTIVE   = 'active'
-  STATE_INACTIVE = 'inactive'
-  STATES         = [ STATE_ACTIVE, STATE_INACTIVE ]
-  field :state, type: :string
-  scope :active, ->{ where( state: STATE_ACTIVE ) }
-
-
-  has_many :ties,      class_name: '::Office::ActionTie', inverse_of: :office_action
-  has_many :prev_ties, class_name: '::Office::ActionTie', inverse_of: :next_office_action
-  accepts_nested_attributes_for :ties
-
-  field :action_exe, type: :string
+  STATUS_ACTIVE   = 'active'
+  STATUS_INACTIVE = 'inactive'
+  STATUSS         = [ STATUS_ACTIVE, STATUS_INACTIVE ]
+  field :status, type: :string
+  scope :active, ->{ where( status: STATUS_ACTIVE ) }
 
   field :perform_at, type: :time
 
+  def to_s
+    slug
+  end
+
 end
-OAct = Wco::OfficeAction
+

data/app/models/wco/office_action_template.rb

@@ -0,0 +1,41 @@
+
+require 'wco/ai_writer'
+
+##
+## A Publisher is an OAT
+##
+class Wco::OfficeActionTemplate
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  include Mongoid::Paranoia
+  store_in collection: 'wco_office_action_templates'
+
+  field :slug
+  validates :slug, presence: true, uniqueness: true
+
+  belongs_to :from,      polymorphic: true,            optional: true
+  belongs_to :publisher, class_name: 'Wco::Publisher', optional: true
+
+  field :action_exe, type: :string
+  validates :action_exe, presence: true
+  def do_run
+    eval( action_exe )
+  end
+
+  has_many :office_actions, inverse_of: :office_action_template
+  def actions; office_actions; end
+
+  has_many :ties,      class_name: 'OfficeActionTemplateTie', inverse_of: :office_action_template
+  has_many :prev_ties, class_name: 'OfficeActionTemplateTie', inverse_of: :next_office_action_template
+  accepts_nested_attributes_for :ties
+
+  def to_s
+    "#{slug}"
+  end
+
+  def self.list
+    [[nil,nil]] + all.map { |ttt| [ ttt.slug, ttt.id ] }
+  end
+
+end
+OAT = Wco::OfficeActionTemplate

data/app/models/wco/office_action_template_tie.rb

@@ -0,0 +1,20 @@
+
+class Wco::OfficeActionTemplateTie
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  store_in collection: 'wco_office_action_template_ties'
+
+  attr_accessor :to_delete
+
+  belongs_to :office_action_template,      class_name: 'OfficeActionTemplate', inverse_of: :ties
+  def oat; office_action_template; end
+
+  belongs_to :next_office_action_template, class_name: 'OfficeActionTemplate', inverse_of: :prev_ties
+  def next_oat; next_office_action_template; end
+  # def tmpl;     next_office_action_template; end
+
+
+  field :next_at_exe, type: :string
+  validates :next_at_exe, presence: true
+
+end

data/app/models/wco/photo.rb

@@ -6,19 +6,21 @@ class Wco::Photo
   include Mongoid::Document
   include Mongoid::Timestamps
   include Mongoid::Paperclip
+  include Mongoid::Paranoia
   include Wco::Utils
+  store_in collection: 'wco_photos'
 
-  # belongs_to :email_message, :optional => true, :class_name => 'Office::EmailMessage'
-  # belongs_to :report,        :optional => true
-  belongs_to :gallery, class_name: 'Wco::Gallery', :optional => true
+  belongs_to :email_message, class_name: 'WcoEmail::Message', optional: true
+  belongs_to :gallery,       class_name: 'Wco::Gallery',      optional: true
+  belongs_to :lead,          class_name: 'Wco::Lead',         optional: true
   # belongs_to :newsitem,      :optional => true
 
-  # photo.photo.to_s.split('/').last.split('?').first
-  field :name,   :type => String
+  field :name
   def name
-    return self[:name] if self[:name]
-    update_attribute(:name, self.photo.to_s.split('/').last.split('?').first)
-    name
+    if !self[:name]
+      update_attribute(:name, self.photo.to_s.split('/').last.split('?').first)
+    end
+    self[:name]
   end
 
   field :ordering, type: :integer

data/app/models/wco/price.rb

@@ -2,6 +2,8 @@
 class Wco::Price
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
+  store_in collection: 'wco_prices'
 
   # belongs_to :product,     class_name: 'Wco::Product',      inverse_of: :prices
   ## Wco::Product, WcoHosting::ApplianceTmpl:

data/app/models/wco/product.rb

@@ -2,6 +2,8 @@
 class Wco::Product
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
+  store_in collection: 'wco_products'
 
   field :name
 

data/app/models/wco/profile.rb

@@ -2,6 +2,7 @@
 class Wco::Profile
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'ish_user_profiles'
 
   field :email

data/app/models/wco/publisher.rb

@@ -2,21 +2,86 @@
 class Wco::Publisher
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_publishers'
 
-  field :name
+  field :slug
+  validates :slug, presence: true, uniqueness: true
 
   KIND_ARTICLE = 'article'
   KIND_IMAGE   = 'image'
   field :kind, type: :string
 
-  belongs_to :to_site,      class_name: 'Wco::Site'
-
+  belongs_to :site,      class_name: 'Wco::Site'
 
   field :context_eval
+  field :after_eval
   field :post_body_tmpl
 
+  has_many :oats, class_name: 'Wco::OfficeActionTemplate'
+
+  ## @TODO: move to PublisherDrupal
+  def do_run
+    @report = report
+
+    @ctx = OpenStruct.new
+    eval( context_eval )
+    puts! @ctx, '@ctx'
+
+    tmpl = ERB.new post_body_tmpl
+    body = JSON.parse tmpl.result(binding)
+    puts! body, 'body'
+
+    headers = {}
+    if Wco::Site::KIND_DRUPAL == site.kind
+      headers['Content-Type'] = 'application/hal+json'
+    end
+
+    out = Wco::HTTParty.post( "#{site.origin}#{site.post_path}", {
+      body: body.to_json,
+      headers: headers,
+      basic_auth: { username: site.username, password: site.password },
+    })
+    puts! out.response, 'out'
+
+    eval( after_eval )
+  end
+
+  def publish_report report
+    @report = report
+    @site   = site
+
+    @ctx = OpenStruct.new
+    eval( context_eval )
+    puts! @ctx, '@ctx'
+
+
+    tmpl = ERB.new post_body_tmpl
+    body = JSON.parse tmpl.result(binding)
+    puts! body, 'body'
+
+    headers = {}
+    if Wco::Site::KIND_DRUPAL == site.kind
+      headers['Content-Type'] = 'application/hal+json'
+    end
+
+    out = Wco::HTTParty.post( "#{site.origin}#{site.post_path}", {
+      body: body.to_json,
+      headers: headers,
+      basic_auth: { username: site.username, password: site.password },
+    })
+    puts! out.response, 'out'
+
+    eval( after_eval )
+  end
+
+  def to_s
+    "#{slug}: #{kind} => #{site}"
+  end
 
+  def self.list
+    [[nil,nil]] + all.map { |p| [p, p.id] }
+  end
 
 end
 

data/app/models/wco/report.rb

@@ -0,0 +1,48 @@
+
+##
+##
+##
+# @report.body.split("\n\n").map { |ttt| "<p>#{ttt}</p>" }.join
+#
+class Wco::Report
+  include Mongoid::Document
+  include Mongoid::Timestamps
+  include Mongoid::Paranoia
+  include Wco::Utils
+  store_in collection: 'wco_reports'
+
+  field :title
+  validates :title, presence: true, uniqueness: true
+  index({ title: 1 }, { unique: true })
+
+  field :subtitle
+
+  field :slug
+  validates :slug, presence: true, uniqueness: true
+  index({ :slug => 1 }, { :unique => true })
+  before_validation :set_slug, :on => :create
+
+  field :body
+
+  # field :raw_json, type: :object, default: '{}'
+
+  # field :is_trash, :type => Boolean, :default => false
+  # index({ :is_trash => 1, :is_public => 1 })
+
+  # field :is_public, :type => Boolean, :default => true
+  # index({ :is_public => 1 })
+  # scope :public, ->{ where({ is_public: true }) }
+
+  field :x, :type => Float
+  field :y, :type => Float
+  field :z, :type => Float
+
+  # has_one :photo
+
+  def export_fields
+    %w| name descr |
+  end
+
+  has_and_belongs_to_many :tags
+
+end

data/app/models/wco/site.rb

@@ -2,6 +2,7 @@
 class Wco::Site
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_sites'
 
   KIND_DRUPAL = 'drupal'
@@ -13,13 +14,23 @@ class Wco::Site
     [nil] + KINDS
   end
 
-  has_many :publishers, class_name: 'Wco::Publisher'
+  has_many :publishers # , class_name: 'Wco::Publisher'
+  has_many :headlines # , class_name: 'Wco::Newstitle'
+
+  field :slug
+  validates :slug, presence: true, uniqueness: true
 
   field :origin # http://pi.local
+  validates :origin, presence: true, uniqueness: true
+
   field :post_path # /node?_format=hal_json
   field :username
   field :password
 
+  def to_s
+    origin
+  end
+
   def self.list
     [[nil,nil]] + all.map { |s| [ s.origin, s.id ] }
   end

data/app/models/wco/subscription.rb

@@ -2,6 +2,7 @@
 class Wco::Subscription
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_subscriptions'
 
   belongs_to :product, polymorphic: true # includes: Wco::Product , WcoHosting::ApplianceTmpl

data/app/models/wco/tag.rb

@@ -2,15 +2,28 @@
 class Wco::Tag
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'wco_tags'
 
   field :slug
-  # index
-  # validate presence
-  # validate uniqueness ?
+  validates :slug, presence: true, uniqueness: true
+  index({ slug: -1 })
 
   # parent-child
 
-  has_and_belongs_to_many :email_conversations, class_name: 'WcoEmail::Conversation'
+  has_and_belongs_to_many :conversations, class_name: 'WcoEmail::Conversation'
+  has_and_belongs_to_many :message_stubs, class_name: 'WcoEmail::MessageStub'
+  has_and_belongs_to_many :headlines # ,     class_name: 'Headline'
+  has_and_belongs_to_many :leads # ,         class_name: 'Lead'
+  has_and_belongs_to_many :leadsets # ,      class_name: 'Leadset'
+  has_and_belongs_to_many :reports
+  has_and_belongs_to_many :logs
+
+  INBOX = 'inbox'
+  TRASH = 'trash'
+
+  def self.list
+    [[nil,nil]] + all.map { |p| [ p.slug, p.id ] }
+  end
 
 end

data/app/models/wco_email/campaign.rb

@@ -6,6 +6,7 @@
 class WcoEmail::Campaign
   include Mongoid::Document
   include Mongoid::Timestamps
+  include Mongoid::Paranoia
   store_in collection: 'ish_email_campaigns'
 
   field :slug
@@ -25,19 +26,10 @@ class WcoEmail::Campaign
   field :sent_at, type: DateTime
   field :send_at, type: DateTime
 
-  has_many :unsubscribes, class_name: '::Ish::EmailUnsubscribe', inverse_of: :campaign
+  has_many :unsubscribes, class_name: 'WcoEmail::Unsubscribe', inverse_of: :campaign
+  has_and_belongs_to_many :leads, class_name: 'Wco::Lead'
 
-  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
@@ -52,4 +44,8 @@ class WcoEmail::Campaign
     end
   end
 
+  def self.list
+    [[nil,nil]] + all.map { |p| [ p.slug, p.id ] }
+  end
+
 end