fakecrm 0.9.9.beta1

data/lib/fakecrm/resource/account.rb

@@ -0,0 +1,33 @@
+# -*- encoding : utf-8 -*-
+#
+module Fakecrm
+  class Account
+    include DataMapper::Resource
+
+    property :id,                 Serial
+    property :name,               String,   :required => true
+
+    property :account_group,      String
+    property :country,            String
+    property :extended_address,   String
+    property :home_page,          String
+    property :locality,           String
+    property :merged_into_id,     String
+    property :org_name_address,   String
+    property :org_unit_address,   String
+    property :phone,              String
+    property :postalcode,         String
+    property :region,             String
+    property :street_address,     String
+    property :want_geo_location,  Boolean
+
+    property :created_at,         DateTime
+    property :changed_at,         DateTime
+    property :updated_at,         DateTime
+    property :deleted_at,         ParanoidDateTime
+
+    property :updated_by,         String, :default => 'root'
+
+  end
+end
+

data/lib/fakecrm/resource/activity.rb

@@ -0,0 +1,57 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/extensions/kinds'
+
+require 'fakecrm/resource/account'
+require 'fakecrm/resource/contact'
+require 'fakecrm/resource/custom_type'
+
+module Fakecrm
+  class Activity
+    include DataMapper::Resource
+
+    include Kinds
+
+    belongs_to :account, :required => false
+    belongs_to :contact, :required => false
+
+    property :id,                     Serial
+    property :title,                  String, :required => true
+    property :appointment_dtend_at,   DateTime
+    property :appointment_dtstart_at, DateTime
+    property :appointment_location,   String
+    property :email_cc,               String
+    property :state,                  String
+    property :priority,               Integer
+    property :tags,                   CommaSeparatedList
+    property :created_at,             DateTime
+    property :changed_at,             DateTime
+    property :updated_at,             DateTime
+    property :deleted_at,             ParanoidDateTime
+
+    property :comments,               Json # FIXME: i'm not sure it will work
+
+    property :updated_by,             String, :default => 'root'
+
+
+    validates_with_method :state, :method => :check_state
+    validates_presence_of :title
+
+    def custom_type
+      CustomType.get!(self.kind) unless self.kind.nil?
+    end
+
+    def check_state
+      custom_type = self.custom_type
+      if !custom_type.nil? && !custom_type.states.nil? && !custom_type.states.empty?
+        if self.state.nil? || !custom_type.states.include?(self.state)
+          # FIXME: localization
+          return [false, 'ist kein gültiger Wert']
+        end
+      end
+
+      return true
+    end
+
+  end
+end
+

data/lib/fakecrm/resource/contact.rb

@@ -0,0 +1,51 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/account'
+
+module Fakecrm
+  class Contact
+    include DataMapper::Resource
+
+    property :id,                 Serial
+    property :first_name,         String
+    property :last_name,          String, :required => true
+
+    property :email,              String
+    property :login,              String, :unique => true
+
+    belongs_to :account,          :required => false
+    property :country,            String
+    property :extended_address,   String
+    property :fax,                String
+    property :gender,             Enum['M', 'F', 'N'], :required => true
+    property :job_title,          String
+    property :language,           String, :required => true
+    property :locality,           String
+    property :merged_into_id,     String
+    property :mobile_phone,       String
+    property :name_prefix,        String
+    property :org_name_address,   String
+    property :org_unit_address,   String
+    property :phone,              String
+    property :postalcode,         String
+    property :region,             String
+    property :street_address,     String
+    property :want_email,         Boolean
+    property :want_geo_location,  Boolean
+    property :want_phonecall,     Boolean
+    property :want_snailmail,     Boolean
+
+    property :role_names,         CommaSeparatedList, :default => ''
+
+    property :created_at,         DateTime
+    property :changed_at,         DateTime # FIXME: doesn't work automatically
+    property :updated_at,         DateTime
+    property :deleted_at,         ParanoidDateTime
+
+    property :updated_by,         String, :default => 'root'
+
+    before :save do
+      self.country = self.country.upcase unless self.country.nil?
+    end
+  end
+end
+

data/lib/fakecrm/resource/custom_attribute.rb

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/custom_type'
+
+module Fakecrm
+  class CustomAttribute
+    include DataMapper::Resource
+
+    belongs_to :custom_type
+
+    property :id,             Serial
+    property :name,           String, :required => true
+    property :title,          String
+    property :type,           Enum["string", "text", "enum", "multienum"], :required => true
+    property :mandatory,      Boolean, :default => false
+    property :max_length,     String, :default => 100
+    property :valid_values,   CommaSeparatedList
+
+  end
+end
+

data/lib/fakecrm/resource/custom_type.rb

@@ -0,0 +1,96 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/extensions/type_extender'
+
+# workaround circular reference
+module Fakecrm
+  class CustomType
+    include DataMapper::Resource
+
+    property :id,               String, :unique => true, :key => true # default will not work here
+    property :name,             String, :required => true, :length => 20
+  end
+end
+
+require 'fakecrm/resource/custom_attribute'
+
+# workaround circular reference
+module Fakecrm
+  class CustomType
+
+    property :kind,             Enum["Activity", "Account", "Event", "Contact", "EventContact"], :required => true
+    property :icon_css_class,   String
+
+    # only one entry for 'Contact' possible
+    validates_uniqueness_of     :kind, :if => lambda { |c| c.kind == 'Contact' }
+
+    # only for activity && event_contact
+    property :states,            CommaSeparatedList
+
+    has n, :custom_attributes
+
+    def activity?
+      self.kind == 'Activity'
+    end
+
+    # setting name for the first time also sets id
+    def name=(new_name)
+      if self.id.nil?
+        if self.kind == "EventContact"
+          self.id = SecureRandom.hex
+        else
+          self.id = new_name
+        end
+      end
+
+      super
+    end
+
+    # This is neccessary because updating DM associations is BROKEN
+    def custom_attributes=(custom_attributes)
+      if custom_attributes
+        existing_attributes = self.custom_attributes.all
+        existing_attributes.each do |existing_attribute|
+          if !(custom_attributes.find {|c| (c[:name] || c["name"]) == existing_attribute.name})
+            existing_attribute.destroy
+          end
+        end
+
+        custom_attributes.each do |custom_attribute|
+          name = custom_attribute["name"] || custom_attribute[:name]
+          c = self.custom_attributes.first(:name => name)
+          if c
+            c.attributes = custom_attribute
+          else
+            self.custom_attributes.new(custom_attribute)
+          end
+        end
+        @dm_is_broken = true
+      end
+      attribute_set(:custom_attributes, self.custom_attributes)
+    end
+
+    after :save, :propagate_type_extension
+
+    def propagate_type_extension
+      ::Fakecrm.logger.debug "Installing custom attributes@ kind=#{self.kind} name=#{self.name}"
+      ::Fakecrm::TypeExtender.new(self).extend!
+    end
+
+    def dirty_self?
+      # This forces DM to save after changing custom attributes
+      # We need this for our callback
+      # Did I mention that DM associations ARE BROKEN?
+      @dm_is_broken || super
+    ensure
+      @dm_is_broken = false # NOT REALLY
+    end
+
+    class << self
+      def virtual_properties
+        [:custom_attributes]
+      end
+    end
+  end
+end
+
+

data/lib/fakecrm/resource/event.rb

@@ -0,0 +1,52 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/extensions/kinds'
+
+require 'fakecrm/resource/custom_type'
+
+module Fakecrm
+  class Event
+    include DataMapper::Resource
+
+    include Kinds
+
+    property :id,               Serial
+    property :title,            String,   :required => true, :message => 'muss ausgefüllt werden'
+
+    property :dtstart_at,       DateTime, :required => true
+    property :dtend_at,         DateTime, :required => true
+
+    property :event_set,        String
+    property :location,         String
+
+    property :created_at,       DateTime
+    property :changed_at,       DateTime
+    property :updated_at,       DateTime
+    property :deleted_at,       ParanoidDateTime
+
+    property :updated_by,       String, :default => 'root'
+
+    class << self
+      def virtual_properties
+        [:custom_attributes]
+      end
+    end
+
+    def custom_type
+      CustomType.first_or_create(:kind => 'EventContact', :name => self.kind)
+    end
+
+    def custom_attributes
+      custom_type ? custom_type.custom_attributes : []
+    end
+
+    def custom_attributes=(new_attributes)
+      custom_type.update({"custom_attributes"=>new_attributes})
+    end
+
+    def attributes=(attributes)
+      custom_attributes = attributes.delete("custom_attributes") || attributes.delete(:custom_attributes) || []
+      super(attributes) && (custom_attributes.empty? || (self.custom_attributes = custom_attributes))
+    end
+  end
+end
+

data/lib/fakecrm/resource/event_contact.rb

@@ -0,0 +1,21 @@
+# -*- encoding : utf-8 -*-
+module Fakecrm
+  class EventContact
+    include DataMapper::Resource
+
+    property :id,                 Serial
+    property :state,              Enum['unregistered', 'registered', 'attended', 'refused', 'noshow'], :required => true
+
+    property :created_at,         DateTime
+    property :changed_at,         DateTime
+    property :updated_at,         DateTime
+    property :deleted_at,         ParanoidDateTime
+
+    property :updated_by,         String, :default => 'root'
+
+    belongs_to :event, :required => true
+    belongs_to :contact, :required => true
+
+  end
+end
+

data/lib/fakecrm/resource/extensions/kinds.rb

@@ -0,0 +1,26 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/custom_type'
+
+module Fakecrm
+  module Kinds
+    def one_of_a_kind?
+      true
+    end
+    def self.included(base)
+      base.class_eval do
+        property :kind,                   ::DataMapper::Property::String, :required => true
+
+        validates_with_method :kind, :method => :check_kind
+
+        def check_kind
+          if CustomType.first(:name => self.kind, :kind => self.class.name.split('::').last)
+            return true
+          else
+            return [false, "Custom type #{self.kind} not found"]
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/fakecrm/resource/extensions/type_extender.rb

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/account'
+require 'fakecrm/resource/activity'
+require 'fakecrm/resource/contact'
+require 'fakecrm/resource/event'
+require 'fakecrm/resource/event_contact'
+
+require 'fakecrm/resource/extensions/type_extension'
+
+require 'dm-types'
+
+module Fakecrm
+  class TypeExtender
+    def initialize(custom_type)
+      self.custom_type = custom_type
+    end
+
+    def extend!
+      custom_attributes = self.custom_type.custom_attributes
+      case self.custom_type.id
+      when 'contact'
+        TypeExtension.new(Contact).replace!(custom_attributes)
+      when 'account'
+        TypeExtension.new(Account).replace!(custom_attributes)
+      else
+        case self.custom_type.kind
+        when 'Event'
+          TypeExtension.new(Event).add!(custom_attributes)
+        when 'Activity'
+          TypeExtension.new(Activity).add!(custom_attributes)
+        when 'EventContact'
+          TypeExtension.new(EventContact).add!(custom_attributes)
+        else
+          true
+        end
+      end
+    end
+
+    attr_accessor :custom_type
+  end
+end
+

data/lib/fakecrm/resource/extensions/type_extension.rb

@@ -0,0 +1,55 @@
+# -*- encoding : utf-8 -*-
+module Fakecrm
+  class TypeExtension
+    def initialize(resource)
+      self.resource = resource
+    end
+
+    def replace!(custom_attributes)
+      remove_custom_properties!
+      add!(custom_attributes)
+    end
+
+    def add!(custom_attributes)
+      custom_attributes.each do |custom_attribute|
+        ::Fakecrm.logger.debug "adding custom attribute: #{custom_attribute.name} to #{self.resource.name}"
+        add_property!(custom_attribute) 
+      end
+
+      # write state
+      return self.resource.auto_upgrade! unless custom_attributes.empty?
+    end
+
+    def remove_custom_properties!
+      self.resource.properties.each do |property|
+        self.resource.properties.delete(property) if property.name =~ /^custom_/
+      end
+    end
+
+    def add_property!(custom_attribute)
+      property_name =  "custom_#{custom_attribute.name}".to_sym
+
+      # do not overwrite existing properties!
+      if self.resource.properties[property_name]
+        ::Fakecrm.logger.debug "adding custom attribute: #{custom_attribute.name} to #{self.resource.name}"
+      end
+
+      case custom_attribute.type
+      when "string"
+        self.resource.send(:property, property_name, ::DataMapper::Property::String, :length => custom_attribute.max_length.to_i)
+      when "text"
+        self.resource.send(:property, property_name, ::DataMapper::Property::Text)
+      when "enum"
+        self.resource.send(:property, property_name, ::DataMapper::Property::Enum, :flags => custom_attribute.valid_values)
+      when "multienum"
+        # FIXME: multienum should validate valid_values
+        self.resource.send(:property, property_name, ::DataMapper::Property::CommaSeparatedList)
+      end
+
+      # FIXME: validate mandatory fields
+    end
+
+    attr_accessor :resource
+  end
+end
+

data/lib/fakecrm/resource/mailing.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+
+module Fakecrm
+  class Mailing
+    include DataMapper::Resource
+
+    property :id,                 Serial
+    property :title,              String,   :required => true
+    property :mailing_type,       String,   :required => true
+
+    property :body,               Text
+    property :dtstart_at,         DateTime
+    property :email_from,         String
+    property :email_reply_to,     String
+    property :email_subject,      String
+    property :html_body,          Text
+
+    property :released_at,        DateTime
+    property :created_at,         DateTime
+    property :changed_at,         DateTime
+    property :updated_at,         DateTime
+    property :deleted_at,         ParanoidDateTime
+
+    property :updated_by,         String, :default => 'root'
+    property :released_by,        String, :default => 'root'
+
+    belongs_to :event, :required => false
+  end
+end
+

data/lib/fakecrm/resource/password.rb

@@ -0,0 +1,17 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/contact'
+
+module Fakecrm
+  class Password
+    include DataMapper::Resource
+
+    property :id,       Serial
+    property :token,    String, :default => 'dead' * 10
+    property :password, String
+
+    validates_length_of :password, :min => 1, :unless => lambda { |p| p.password.nil? }
+
+    belongs_to :contact
+  end
+end
+

data/lib/fakecrm/resource/role.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+module Fakecrm
+  class Role
+    include DataMapper::Resource
+
+    property :id,               String, :key => true # default will not work here
+    property :name,             String, :required => true
+    property :description,      String
+
+    property :permissions,      CommaSeparatedList
+    
+    def name=(new_name)
+      self.id = new_name if self.id.nil?
+      super
+    end
+  end
+end
+

data/lib/fakecrm/resource/template.rb

@@ -0,0 +1,41 @@
+# -*- encoding : utf-8 -*-
+module Fakecrm
+  class Template
+    include DataMapper::Resource
+
+    property :id,                 Serial
+    property :body,               Json, :default => {}
+
+    def templates
+      system_default.merge(body)
+    end
+
+    private
+
+    def system_default
+      {
+        "notification_email_to"=>"",
+        "notification_email_from"=>"",
+        "notification_email_reply_to"=>"",
+        "notification_email_bcc"=>"",
+        "notification_email_subject"=>"",
+        "notification_email_body"=>"",
+        "digest_email_from"=>"",
+        "digest_email_reply_to"=>"",
+        "digest_email_bcc"=>"",
+        "digest_email_subject"=>"",
+        "digest_email_body"=>"",
+        "password_request_email_from"=>"",
+        "password_request_email_reply_to"=>"",
+        "password_request_email_bcc"=>"",
+        "password_request_email_subject"=>"New Password Requested",
+        "password_request_email_body"=>
+        "To reset your password click the URL below:\r\n\r\n    {{password_request_url}}\r\n\r\nIf you did not request your password to be reset please ignore this email and your password will stay as it is.",
+          "contact_salutation"=>
+        "{% assign anr = '' %} \r\n{% if contact.name_prefix contains 'Dr.' %} \r\n{% assign anr = 'Dr. ' %} \r\n{% endif %} \r\n{% if contact.name_prefix contains 'Prof.' %} \r\n{% assign anr = 'Prof. ' %} \r\n{% endif %} \r\n\r\n{% case contact.gender %} \r\n{% when \"M\" %} \r\nSehr geehrter Herr {{anr}}{{contact.last_name}}, \r\n{% when \"F\" %} \r\nSehr geehrte Frau {{anr}}{{contact.last_name}}, \r\n{% else %} \r\nSehr geehrte Damen und Herren, \r\n{% endcase %}"
+      }
+    end
+
+  end
+end
+

data/lib/fakecrm/resource/views/resource_view.rb

@@ -0,0 +1,90 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/custom_type'
+
+module Fakecrm
+  class ResourceView 
+    class << self
+      def decorate(source, options={})
+        if source.class.include?(::Enumerable)
+          source.map {|item| self.new(item, options)}
+        else
+          self.new(source, options)
+        end
+      end
+    end
+
+    def initialize(resource, options={})
+      self.resource = resource
+
+      self.custom_attributes = get_custom_attributes(self.resource)
+      self.properties = get_resource_properties(self.resource)
+
+      self.include = options.fetch(:include, :all)
+      self.exclude = options.fetch(:exclude, [])
+      self.additional = options.fetch(:methods, get_additional_methods(self.resource))
+    end
+
+
+    def to_json(*args)
+      return as_json.to_json
+    end
+
+    def as_json(*args)
+      result = {}
+
+      self.properties.each do |property|
+        if available?(property) && include?(property)
+          result[property] = resource.send(property)
+        end
+      end
+
+      self.additional.each do |method|
+        result[method] = resource.send(method)
+      end
+
+      return result
+    end
+
+    def available?(property)
+      if property =~ /^custom/
+        self.custom_attributes.include?(property)
+      else
+        true
+      end
+    end
+
+    def include?(property)
+      !self.exclude.include?(property) && (self.include == :all || self.include.include?(property))
+    end
+
+    def exclude?(property)
+      !include?(property)
+    end
+
+    def get_additional_methods(resource)
+      if resource.class.respond_to? :virtual_properties
+        resource.class.virtual_properties || []
+      else
+        []
+      end
+    end
+
+    def get_resource_properties(resource)
+      resource.class.properties.map(&:name)
+    end
+
+    def get_custom_attributes(resource)
+      if resource.respond_to?(:one_of_a_kind?) && resource.one_of_a_kind?
+        CustomType.get!(resource.kind).custom_attributes.map(&:name).map(&:to_sym)
+      else
+        get_resource_properties(resource).select {|property| property =~ /^custom/ }
+      end
+    end
+
+    protected
+    attr_accessor :properties, :resource, :custom_attributes
+    attr_accessor :include, :exclude, :additional
+
+  end
+end
+

data/lib/fakecrm/resources.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+require 'fakecrm/resource/account'
+require 'fakecrm/resource/activity'
+require 'fakecrm/resource/contact'
+require 'fakecrm/resource/custom_type'
+require 'fakecrm/resource/event'
+require 'fakecrm/resource/mailing'
+require 'fakecrm/resource/password'
+require 'fakecrm/resource/role'
+require 'fakecrm/resource/template'
+