biovision 0.0.200518.1

data/app/models/concerns/has_language.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+# Model references to language
+module HasLanguage
+  extend ActiveSupport::Concern
+
+  included do
+    belongs_to :language, optional: true, counter_cache: :object_count
+  end
+end

data/app/models/concerns/has_owner.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+# Adds ownership to model
+module HasOwner
+  extend ActiveSupport::Concern
+
+  included do
+    scope :owned_by, ->(v) { where(user: v) }
+    scope :with_user_id, ->(v) { where(user_id: v) unless v.blank? }
+  end
+
+  # @param [User] user
+  # @return [Boolean]
+  def owned_by?(user)
+    !user.nil? && (self.user == user)
+  end
+
+  # @return [String]
+  def owner_name
+    user&.profile_name || I18n.t(:anonymous)
+  end
+end

data/app/models/concerns/has_simple_image.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+# Model references to simple image
+module HasSimpleImage
+  extend ActiveSupport::Concern
+
+  included do
+    belongs_to :simple_image, optional: true, counter_cache: :object_count
+  end
+
+  def image
+    simple_image&.image
+  end
+
+  def image_alt_text
+    simple_image&.image_alt_text
+  end
+end

data/app/models/concerns/has_track.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+module HasTrack
+  extend ActiveSupport::Concern
+
+  included do
+    belongs_to :agent, optional: true, counter_cache: :object_count
+    belongs_to :ip_address, optional: true, counter_cache: :object_count
+  end
+end

data/app/models/concerns/has_uuid.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+# Adds UUID field and constraints to model
+module HasUuid
+  extend ActiveSupport::Concern
+
+  included do
+    after_initialize { self.uuid = SecureRandom.uuid if uuid.nil? }
+    validates_presence_of :uuid
+    validates_uniqueness_of :uuid
+  end
+end

data/app/models/concerns/meta_texts.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+# Model has meta description, keywords and title
+module MetaTexts
+  extend ActiveSupport::Concern
+
+  included do
+    validates_length_of :meta_description, maximum: 500
+    validates_length_of :meta_keywords, maximum: 250
+    validates_length_of :meta_title, maximum: 250
+
+    def self.meta_text_fields
+      %i[meta_description meta_keywords meta_title]
+    end
+  end
+end

data/app/models/concerns/nested_priority.rb

@@ -0,0 +1,58 @@
+# frozen_string_literal: true
+
+# Model has nested priority field
+#
+# Adds sorting items by priority with siblings
+# @author Maxim Khan-Magomedov <maxim.km@gmail.com>
+module NestedPriority
+  extend ActiveSupport::Concern
+
+  included do
+    after_initialize :set_next_priority
+    before_validation :normalize_priority
+
+    scope :ordered_by_priority, -> { order('priority asc, id asc') }
+
+    def self.priority_range
+      (1..32_767)
+    end
+
+    # Change this method in models to get siblings
+    #
+    # @param [ApplicationRecord] _entity
+    def self.siblings(_entity)
+      all
+    end
+  end
+
+  # @param [Integer] delta
+  def change_priority(delta)
+    swap_priority_with_adjacent(priority + delta)
+
+    siblings = self.class.siblings(self)
+    siblings.ordered_by_priority.map { |e| [e.id, e.priority] }.to_h
+  end
+
+  protected
+
+  # @param [Integer] new_priority
+  def swap_priority_with_adjacent(new_priority)
+    adjacent = self.class.siblings(self).find_by(priority: new_priority)
+    if adjacent.is_a?(self.class) && (adjacent.id != id)
+      adjacent.update!(priority: priority)
+    end
+    update(priority: new_priority)
+  end
+
+  def set_next_priority
+    return unless id.nil? && priority == 1
+
+    self.priority = self.class.siblings(self).maximum(:priority).to_i + 1
+  end
+
+  def normalize_priority
+    range = self.class.priority_range
+    self.priority = range.first if priority < range.first
+    self.priority = range.last if priority > range.last
+  end
+end

data/app/models/concerns/required_unique_name.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+# Mixin for adding required unique name constrain
+module RequiredUniqueName
+  extend ActiveSupport::Concern
+
+  included do
+    before_validation { self.name = name.strip unless name.nil? }
+    validates_presence_of :name
+    validates_uniqueness_of :name
+
+    scope :ordered_by_name, -> { order('name asc') }
+    scope :with_name_like, ->(v) { where('name ilike ?', "%#{v}%") unless v.blank? }
+    scope :with_name, ->(v) { where('lower(name) = lower(?)', v) unless v.blank? }
+  end
+end

data/app/models/concerns/required_unique_slug.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+# Mixin for adding required unique slug constrain
+module RequiredUniqueSlug
+  extend ActiveSupport::Concern
+
+  included do
+    before_validation { self.slug = slug.strip unless slug.nil? }
+    validates :slug, uniqueness: { case_sensitive: false }, presence: true
+
+    scope :ordered_by_slug, -> { order('slug asc') }
+    scope :with_slug_like, ->(v) { where('slug ilike ?', "%#{v}%") unless v.blank? }
+    scope :with_slug, ->(v) { where('lower(slug) = lower(?)', v) unless v.blank? }
+  end
+end

data/app/models/concerns/toggleable.rb

@@ -0,0 +1,33 @@
+# frozen_string_literal: true
+
+# Adds list of toggleable attributes to model
+#
+# @author Maxim Khan-Magomedov <maxim.km@gmail.com>
+module Toggleable
+  extend ActiveSupport::Concern
+
+  included do
+    class_attribute :toggleable_attributes, instance_predicate: false, instance_accessor: false
+
+    # @param [String, Symbol] attribute
+    # @return [Hash]
+    def toggle_parameter(attribute)
+      return unless toggleable_attributes.include? attribute.to_sym
+
+      toggle! attribute
+      { attribute => self[attribute] }
+    end
+  end
+
+  # Additional class methods
+  module ClassMethods
+
+    private
+
+    # @param [Array<Symbol>] attributes
+    def toggleable(*attributes)
+      cattr_accessor :toggleable_attributes
+      self.toggleable_attributes = attributes.flatten
+    end
+  end
+end

data/app/models/foreign_site.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+# Foreign site for external authentication
+# 
+# Attributes:
+#   slug [string]
+#   name [string]
+#   foreign_users_count [integer]
+class ForeignSite < ApplicationRecord
+  include RequiredUniqueName
+  include RequiredUniqueSlug
+
+  NAME_LIMIT = 50
+  SLUG_LIMIT = 50
+
+  has_many :foreign_users, dependent: :delete_all
+
+  validates_length_of :name, maximum: NAME_LIMIT
+  validates_length_of :slug, maximum: SLUG_LIMIT
+
+  scope :list_for_administration, -> { ordered_by_name }
+
+  # @param [String] slug
+  def self.[](slug)
+    find_by(slug: slug)
+  end
+
+  # @param [Hash] data
+  # @param [Hash] tracking
+  def authenticate(data, tracking)
+    user = foreign_users.find_by(slug: data[:uid])&.user
+    user || create_user(data, tracking)
+  end
+end

data/app/models/foreign_user.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+# Foreign user
+# 
+# Attributes:
+#   agent_id [Agent], optional
+#   created_at [DateTime]
+#   data [jsonb]
+#   foreign_site_id [ForeignSite]
+#   ip_address_id [IpAddress], optional
+#   updated_at [DateTime]
+#   user_id [User]
+#   slug [string]
+class ForeignUser < ApplicationRecord
+  include HasOwner
+
+  belongs_to :foreign_site
+  belongs_to :user
+  belongs_to :agent
+  belongs_to :ip_address
+end

data/app/models/ip_address.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+# IP address
+#
+# Attributes:
+#   banned [boolean]
+#   created_at [DateTime]
+#   ip [inet]
+#   object_count [integer]
+#   updated_at [DateTime]
+class IpAddress < ApplicationRecord
+  include Toggleable
+
+  toggleable :banned
+
+  validates_uniqueness_of :ip
+
+  scope :list_for_administration, -> { order('ip asc') }
+
+  # @param [Integer] page
+  def self.page_for_administration(page = 1)
+    list_for_administration.page(page)
+  end
+
+  # @param [String] ip
+  def self.[](ip)
+    return if ip.blank?
+
+    find_or_create_by(ip: ip)
+  end
+end

data/app/models/language.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+# Language
+#
+# Attributes:
+#   active [Boolean]
+#   code [String]
+#   created_at [DateTime]
+#   object_count [Integer]
+#   priority [Integer]
+#   slug [String]
+#   updated_at [DateTime]
+class Language < ApplicationRecord
+  include FlatPriority
+  include RequiredUniqueSlug
+
+  CODE_PATTERN = /\A[a-z]{2,3}(-[A-z][a-z]{3})?(-[A-Z]{2})?\z/.freeze
+  SLUG_PATTERN = /\A[a-z][-a-z0-9]{,18}[a-z0-9]\z/.freeze
+
+  validates_presence_of :code
+  validates_uniqueness_of :code
+  validates_format_of :code, with: CODE_PATTERN
+  validates_format_of :slug, with: SLUG_PATTERN
+
+  scope :active, -> { where(active: true) }
+
+  # @param [String|Symbol] code
+  def self.[](code)
+    find_by(code: code)
+  end
+end

data/app/models/login_attempt.rb

@@ -0,0 +1,35 @@
+# frozen_string_literal: true
+
+# Failed login attempt
+# 
+# Attributes:
+#   agent_id [Agent], optional
+#   created_at [DateTime]
+#   ip_address_id [IpAddress], optional
+#   updated_at [DateTime]
+#   user_id [User]
+#   password [string]
+class LoginAttempt < ApplicationRecord
+  include HasOwner
+  include HasTrack
+
+  belongs_to :user
+
+  before_validation { self.password = password.to_s[0..254] }
+
+  scope :recent, -> { order('id desc') }
+  scope :since, ->(time) { where('created_at > ?', time) }
+  scope :list_for_administration, -> { recent }
+  scope :list_for_owner, ->(u) { owned_by(u).recent }
+
+  # @param [Integer] page
+  def self.page_for_administration(page = 1)
+    list_for_administration.page(page)
+  end
+
+  # @param [User] user
+  # @param [Integer] page
+  def self.page_for_owner(user, page = 1)
+    list_for_owner(user).page(page)
+  end
+end

data/app/models/metric.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: true
+
+# Metric for component
+# 
+# Attributes:
+#   biovision_component_id [BiovisionComponent]
+#   created_at [DateTime]
+#   default_period [integer]
+#   incremental [boolean]
+#   previous_value [integer]
+#   show_on_dashboard [boolean]
+#   start_with_zero [boolean]
+#   name [string]
+#   updated_at [DateTime]
+#   value [integer]
+class Metric < ApplicationRecord
+  include RequiredUniqueName
+  include Toggleable
+
+  NAME_LIMIT = 255
+  PERIOD_RANGE = (1..366).freeze
+
+  belongs_to :biovision_component
+  has_many :metric_values, dependent: :delete_all
+
+  validates_length_of :name, maximum: NAME_LIMIT
+
+
+  def quantity
+    metric_values.sum(:quantity)
+  end
+
+  # @param [Integer] input
+  def <<(input)
+    metric_values.create(time: Time.now, quantity: input)
+
+    update(value: incremental? ? quantity : input, previous_value: value)
+  end
+
+  # @param [Integer] period
+  def values(period = 7)
+    current_value = 0
+    metric_values.since(period.days.ago).ordered_by_time.map do |v|
+      current_value = incremental? ? current_value + v.quantity : v.quantity
+      [v.time.strftime('%d.%m.%Y %H:%M'), current_value]
+    end.to_h
+  end
+end

data/app/models/metric_value.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+# Metric value
+#
+# Attributes:
+#   metric_id [Metric]
+#   quantity [Integer]
+#   value [Integer]
+class MetricValue < ApplicationRecord
+  belongs_to :metric
+end