rapid 0.0.1

data/lib/rad/paperclip/integration.rb

@@ -0,0 +1,165 @@
+Paperclip.class_eval do
+  def self.registered_classes
+    @registered_classes ||= Hash.new{|h, k| h[k] = []}
+  end 
+end
+
+Paperclip::ClassMethods.class_eval do  
+  def has_attached_file name, options = {}
+    name = name.to_s
+    
+    Paperclip.registered_classes[self] << name
+    
+    define_paperclip_keys_for name
+    
+    include Paperclip::InstanceMethods
+
+    write_inheritable_attribute(:attachment_definitions, {}) if attachment_definitions.nil?
+    attachment_definitions[name] = {:validations => []}.merge(options)
+
+    after_save :save_attached_files
+    before_destroy :destroy_attached_files
+
+    define_callbacks :before_post_process, :after_post_process
+    define_callbacks :"before_#{name}_post_process", :"after_#{name}_post_process"
+   
+    define_method name do |*args|
+      a = attachment_for(name)
+      (args.length > 0) ? a.to_s(args.first) : a
+    end
+
+    define_method "#{name}=" do |file|
+      attachment_for(name).assign(file)
+    end
+
+    define_method "#{name}?" do
+      attachment_for(name).file?
+    end
+
+    validates_each name, :logic => lambda {
+      attachment = attachment_for(name)
+      attachment.send(:flush_errors) unless attachment.valid?
+    }
+  end
+  
+  def disable_file_audit &block
+    begin
+      Thread.current['disable_file_audit'] = true
+      block.call
+    ensure
+      Thread.current['disable_file_audit'] = nil
+    end
+  end
+  
+  def enable_file_audit &block
+    begin
+      Thread.current['disable_file_audit'] = false
+      block.call
+    ensure
+      Thread.current['disable_file_audit'] = nil
+    end
+  end
+  
+  protected
+    def define_paperclip_keys_for attachment
+      key "#{attachment}_file_name", String
+      key "#{attachment}_content_type", String
+      key "#{attachment}_file_size", Integer
+      key "#{attachment}_updated_at", Time    
+      
+      key "#{attachment}_old_file_size"
+    end    
+end
+
+Paperclip::InstanceMethods.class_eval do
+  protected
+    def disable_file_audit?
+      disable = Thread.current['disable_file_audit']
+      if disable != nil
+        disable
+      else
+         crystal.config.test?
+      end
+    end
+    
+    def file_size_for attachment
+      send("#{attachment}_file_size") || 0
+    end
+  
+    def old_file_size_for attachment
+      send("#{attachment}_old_file_size") || 0
+    end  
+    
+    def set_old_file_size_for attachment, size
+      send("#{attachment}_old_file_size=", size)
+    end
+end
+
+Paperclip::Interpolations.class_eval do
+  # fix filename to works with files without extension
+  def filename attachment, style      
+    unless (ext = extension(attachment, style)).blank?
+      "#{basename(attachment, style)}.#{ext}"
+    else
+      basename(attachment, style)
+    end
+  end
+end
+
+Paperclip::Attachment.class_eval do
+  # allow spaces in filename
+  def assign uploaded_file
+    ensure_required_accessors!
+  
+    if uploaded_file.is_a?(Paperclip::Attachment)
+      uploaded_file = uploaded_file.to_file(:original)
+      close_uploaded_file = uploaded_file.respond_to?(:close)
+    end
+  
+    return nil unless valid_assignment?(uploaded_file)
+  
+    uploaded_file.binmode if uploaded_file.respond_to? :binmode
+    self.clear
+  
+    return nil if uploaded_file.nil?
+  
+    @queued_for_write[:original]   = uploaded_file.to_tempfile
+    instance_write(:file_name,       uploaded_file.original_filename.strip.gsub(/[^A-Za-z\d\.\-_ ]+/, '_'))
+    instance_write(:content_type,    uploaded_file.content_type.to_s.strip)
+    instance_write(:file_size,       uploaded_file.size.to_i)
+    instance_write(:updated_at,      Time.now)
+  
+    @dirty = true
+  
+    post_process if valid?
+  
+    # Reset the file size if the original file was reprocessed.
+    instance_write(:file_size, @queued_for_write[:original].size.to_i)
+  ensure
+    uploaded_file.close if close_uploaded_file
+    validate
+  end
+  
+  alias_method :file_name, :original_filename
+  
+  def blank?; file_name.blank? end  
+  
+  # returns nil if file_name is blank
+  def url_with_default *args
+    unless file_name.nil?
+      url_without_default *args
+    else
+      nil
+    end
+  end
+  alias_method_chain :url, :default  
+
+  # Hack to use styles with no processors
+  def post_process_styles_with_blank
+    @styles.each do |name, args|
+      return if args[:processors].blank?
+    end
+    post_process_styles_without_blank
+  end
+  alias_method_chain :post_process_styles, :blank
+end

data/lib/rad/paperclip/mime.rb

@@ -0,0 +1,5 @@
+# MIME::Types.class_eval do
+#   def self.image? file_name
+#     !file_name.blank? and type_for(file_name).any?{|t| t.content_type =~ /image/}
+#   end
+# end

data/lib/rad/paperclip/validations.rb

@@ -0,0 +1,64 @@
+Paperclip::ClassMethods.class_eval do
+  
+  def validates_file attachment
+    validates_maximum_file_size attachment
+    validates_maximum_user_files_size attachment
+    validates_maximum_account_files_size attachment
+  end
+  
+  def validates_maximum_file_size attachment
+    # defer do
+    method_name = "validates_maximum_#{attachment}_size"
+    define_method method_name do
+      max_size = Account.current? ? Account.current.max_file_size : config.max_file_size(1.megabyte)
+      size = file_size_for(attachment)            
+      errors.add attachment, t(:invalid_file_size, :max_size => (max_size / 1000)) if size > max_size
+    end    
+    protected method_name
+    validate method_name
+    # end
+  end
+  
+  def validates_maximum_user_files_size attachment
+    method_name = "validates_maximum_user_files_size_for_#{attachment}"
+    define_method method_name do
+      return if disable_file_audit?
+      max_files_size = Space.current.max_user_files_size        
+      return if max_files_size == 0
+      
+      files_size = User.current.files_size      
+      size = file_size_for(attachment)
+      old_size = old_file_size_for(attachment)
+      if size + files_size > max_files_size - old_size
+        errors.add(attachment, t(
+          :maximum_user_files_size_exceeded, 
+          :max_files_size => (max_files_size / 1000), 
+          :files_size => (files_size / 1000)
+        )) 
+      end
+    end    
+    protected method_name
+    validate method_name
+  end
+  
+  def validates_maximum_account_files_size attachment
+    method_name = "validates_maximum_account_files_size_for_#{attachment}"
+    define_method method_name do
+      return if disable_file_audit?
+      
+      files_size = Account.current.files_size
+      max_files_size = Account.current.max_account_files_size        
+      size = file_size_for(attachment)
+      old_size = old_file_size_for(attachment)
+      if size + files_size > max_files_size - old_size
+        errors.add(attachment, t(
+          :maximum_account_files_size_exceeded, 
+          :max_files_size => (max_files_size / 1000), 
+          :files_size => (files_size / 1000)
+        )) 
+      end
+    end    
+    protected method_name
+    validate method_name
+  end
+end

data/lib/rad/paperclip.rb

@@ -0,0 +1,11 @@
+# require 'mime/types' TODO1 use Mime from Rack
+gem 'paperclip', '=2.3.1.1'
+require 'paperclip'
+
+%w(
+  callbacks
+  integration
+  extensions
+  validations
+).each{|f| require "rad/paperclip/#{f}"}
+# 'mime

data/lib/rad/spec/controller.rb

@@ -0,0 +1,51 @@
+require 'crystal/spec/controller'
+
+# 
+# User
+# 
+Spec::Example::ExampleGroup.class_eval do
+  def self.with_user_controller
+    return if @with_user_controller
+    @with_user_controller = true
+    
+    Crystal::HttpController::Authenticated::InstanceMethods.class_eval do
+      def prepare_current_user_for_slave_domain_with_test
+        prepare_current_user_for_slave_domain_without_test if $do_not_skip_authentication
+      end
+      alias_method_chain :prepare_current_user_for_slave_domain, :test  
+    end
+    
+    Crystal::HttpController::AuthenticatedMasterDomain::InstanceMethods.class_eval do
+      def prepare_current_user_for_master_domain_with_test
+        prepare_current_user_for_master_domain_without_test if $do_not_skip_authentication
+      end
+      alias_method_chain :prepare_current_user_for_master_domain, :test
+    end
+  end
+end
+
+
+# 
+# Miltitenancy
+#
+Spec::Example::ExampleGroup.class_eval do
+  def self.with_multitenancy
+    return if @with_multitenancy
+    @with_multitenancy = true
+    
+    # db_name = "#{SETTING.db_prefix!}_default_#{Rails.env}"
+    # global_db_name = "#{SETTING.db_prefix!}_global_#{Rails.env}"
+    # MongoMapper.database = db_name
+    Crystal::HttpController::Multitenant::InstanceMethods.class_eval do
+      protected
+
+        def select_account_and_space
+          yield
+        end
+
+        def select_multitenant_database
+          yield
+        end
+    end
+  end    
+end

data/lib/rad/spec/model/factories.rb

@@ -0,0 +1,65 @@
+require 'factory_girl'
+
+# 
+# User
+# 
+Factory.define :blank_user, :class => User do |u|
+  u.sequence(:name){|i| "user#{i}"}
+end
+
+Factory.define :new_user, :class => User do |u|
+  u.sequence(:name){|i| "user#{i}"}
+  u.sequence(:email){|i| "user#{i}@email.com"}
+  u.sequence(:password){|i| "user#{i}"}
+  u.password_confirmation{|_self| _self.password}
+end
+
+Factory.define :user, :parent => :new_user do |u|
+  u.state 'active'
+end
+
+Factory.define :open_id_user, :class => User do |u|
+  u.sequence(:name){|i| "user#{i}"}
+  u.sequence(:open_ids){|i| ["open_id_#{i}"]}
+  u.state 'active'
+end 
+
+Factory.define :anonymous, :class => User, :parent => :new_user do |u|
+  u.name 'anonymous'
+  u.email "anonymous@mail.com"
+  u.password "anonymous_password"
+  u.password_confirmation{|_self| _self.password}
+end
+
+Factory.define :admin, :class => User, :parent => :new_user do |u|
+  u.admin_of_accounts{[Account.current.id]}
+  # u.roles_containers{[RolesContainer.new(:space_id => Space.current.id, :roles => %w{member manager})]}
+  u.space_roles{%w{member manager}}
+end
+
+Factory.define :member, :class => User, :parent => :new_user do |u|
+  # u.roles_containers{[RolesContainer.new(:space_id => Space.current.id, :roles => %w{member})]}
+  u.space_roles{%w{member}}
+end
+
+Factory.define :manager, :class => User, :parent => :member do |u|
+  # u.roles_containers{[RolesContainer.new(:space_id => Space.current.id, :roles => %w{member manager})]}
+  u.space_roles{%w{member manager}}
+end
+
+Factory.define :global_admin, :parent => :user, :parent => :new_user do |u|
+  u.global_admin true
+end
+
+
+# 
+# Account and Space
+# 
+Factory.define :account do |a|
+  a.name "test-account"
+end
+
+Factory.define :space do |s|
+  s.name "default"
+  s.account{|a| a.association(:account)}
+end

data/lib/rad/spec/model.rb

@@ -0,0 +1,85 @@
+require 'mongo_mapper_ext/spec/helper'
+require 'crystal/environment'
+
+# 
+# User
+# 
+Spec::Example::ExampleGroup.class_eval do
+  def with_user
+    return if @with_user
+    @with_user = true
+  
+    User.class_eval do
+      def self.anonymous
+        @anonymous ||= Factory.build :anonymous
+      end
+    end
+  end
+  
+  def login_as user
+    User.current = user
+    # controller.stub!(:current_user).and_return(user)
+  end
+end
+
+
+# 
+# Miltitenancy
+# 
+Spec::Example::ExampleGroup.class_eval do
+  def set_default_space
+    account = Factory.create :account
+  
+    Account.current = account
+    Space.current = account.spaces.first  
+  end
+
+  def set_space space
+    if space
+      Space.current = space
+      Account.current = space.account
+    else
+      Space.current = nil
+      Account.current = nil
+    end
+  end
+end
+
+
+# 
+# Database
+# 
+Spec::Example::ExampleGroup.class_eval do
+  def self.with_test_database
+    before :all do
+      MongoMapper.db_config = {
+        'global' => {'name' => 'global_test'},
+        'accounts' => {'name' => "accounts_test"}
+      }
+      
+      MongoMapper.database = 'global_test'      
+      # MongoMapper.call_deferred
+    end
+  end
+end
+
+
+# 
+# Rad
+# 
+Spec::Example::ExampleGroup.class_eval do
+  def self.with_rad_model
+    # with_mail
+    with_mongo_mapper
+    with_test_database    
+    # with_user
+    
+    before :all do      
+      crystal[:logger] = Logger.new nil
+      
+      require 'rad/models'
+      require 'rad/spec/model/factories'
+      with_user      
+    end
+  end  
+end

data/lib/rad/spec/rem_helper.rb

@@ -0,0 +1,145 @@
+# require 'mongo_mapper_ext/spec/helper'
+# 
+# 
+# # 
+# # Mail
+# # 
+# Spec::Example::ExampleGroup.class_eval do
+#   def self.with_mail
+#     raise 'not implemented'
+#   end
+#   
+#   def clear_mail      
+#     # ActionMailer::Base.delivery_method = :test
+#     # ActionMailer::Base.perform_deliveries = true
+#     # ActionMailer::Base.deliveries = []
+#   end
+# 
+#   def sent_letters
+#     # ActionMailer::Base.deliveries
+#   end
+# end
+# 
+# 
+# # 
+# # Routes
+# # 
+# def default_path
+#   crystal.config.default_path!
+# end
+# 
+# 
+# # 
+# # User
+# # 
+# Spec::Example::ExampleGroup.class_eval do
+#   def self.with_user
+#     return if @with_user
+#     @with_user = true
+#   
+#     User.class_eval do
+#       def self.anonymous
+#         @anonymous ||= Factory.build :anonymous
+#       end
+#     end
+#   end
+#   
+#   def self.with_user_controller
+#     return if @with_user_controller
+#     @with_user_controller = true
+#     
+#     Crystal::Remote::Authenticated::InstanceMethods.class_eval do
+#       def prepare_current_user_for_slave_domain_with_test
+#         prepare_current_user_for_slave_domain_without_test if $do_not_skip_authentication
+#       end
+#       alias_method_chain :prepare_current_user_for_slave_domain, :test  
+#     end
+#     
+#     Crystal::Remote::AuthenticatedMasterDomain::InstanceMethods.class_eval do
+#       def prepare_current_user_for_master_domain_with_test
+#         prepare_current_user_for_master_domain_without_test if $do_not_skip_authentication
+#       end
+#       alias_method_chain :prepare_current_user_for_master_domain, :test
+#     end
+#   end
+#   
+#   def login_as user
+#     User.current = user
+#     # controller.stub!(:current_user).and_return(user)
+#   end
+# end
+# 
+# 
+# # 
+# # Miltitenancy
+# # 
+# Spec::Example::ExampleGroup.class_eval do
+#   def self.with_multitenancy
+#     return if @with_multitenancy
+#     @with_multitenancy = true
+#     
+#     # db_name = "#{SETTING.db_prefix!}_default_#{Rails.env}"
+#     # global_db_name = "#{SETTING.db_prefix!}_global_#{Rails.env}"
+#     # MongoMapper.database = db_name
+#     Crystal::Remote::Multitenant::InstanceMethods.class_eval do
+#       protected
+# 
+#         def select_account_and_space
+#           yield
+#         end
+# 
+#         def select_multitenant_database
+#           yield
+#         end
+#     end
+#   end    
+#   
+#   def set_default_space
+#     account = Factory.create :account
+#   
+#     Account.current = account
+#     Space.current = account.spaces.first  
+#   end
+# 
+#   def set_space space
+#     if space
+#       Space.current = space
+#       Account.current = space.account
+#     else
+#       Space.current = nil
+#       Account.current = nil
+#     end
+#   end
+# end
+# 
+# 
+# # 
+# # Database
+# # 
+# Spec::Example::ExampleGroup.class_eval do
+#   def self.with_test_database
+#     before :all do
+#       MongoMapper.db_config = {
+#         'global' => {'name' => 'global_test'},
+#         'accounts' => {'name' => "accounts_test"}
+#       }
+#       
+#       MongoMapper.database = 'global_test'
+#       
+#       MongoMapper.call_deferred
+#     end
+#   end
+# end
+# 
+# 
+# # 
+# # Rad
+# # 
+# Spec::Example::ExampleGroup.class_eval do
+#   def self.with_rad_model
+#     # with_mail
+#     with_mongo_mapper
+#     with_test_database
+#     with_user
+#   end
+# end

data/lib/rad/spec.rb

@@ -0,0 +1,4 @@
+%w(
+  model
+  controller
+).each{|n| require "rad/spec/#{n}"}

data/lib/rad/tasks/backup.rake

@@ -0,0 +1,64 @@
+require 'net/ssh'
+
+folders = {
+  '/apps/spaces/shared/system' => '/spaces/shared',
+  '/apps/service_mix/shared/system' => '/service_mix/shared'
+}
+
+databases = [
+  "accounts_production",
+  "global_production"
+]
+
+backup_directory = '/Users/alex/Documents/saas4b_backup'
+user = 'web'
+host = 'saas4b.com'
+
+task :backup do
+  raise "Backup directory doesn't exist! (#{backup_directory})" unless File.exist? backup_directory
+    
+  # Create Databases Dump
+  Net::SSH.start(host, user) do |ssh|
+    databases.each do |dbname|
+      command = "/opt/mongodb/bin/mongodump --db #{dbname} --out /tmp/#{dbname}.mongo.dump"
+      puts "Executing Remotelly: #{command}"      
+      result = ssh.exec!(command)
+      puts result      
+    end
+  end
+  
+  # Copying Database
+  databases.each do |dbname|    
+    dump_file = "/tmp/#{dbname}.mongo.dump"
+    backup_tmp_file = "#{backup_directory}/#{dbname}.tmp"
+    command = "rsync -e 'ssh' -al --delete --stats --progress #{user}@#{host}:#{dump_file}/ #{backup_tmp_file}"
+    puts "Executing: #{command}"
+    system command
+    
+    raise "Can't find downloaded dump file for #{dbname} Database (#{backup_tmp_file})!" unless File.exist? backup_tmp_file
+    backup_file = "#{backup_directory}/#{dbname}.mongo.dump"
+    FileUtils.rm_r backup_file if File.exist? backup_file
+    File.rename backup_tmp_file, backup_file
+  end
+  
+  # Remove tmp dump files
+  Net::SSH.start(host, user) do |ssh|
+    databases.each do |dbname|
+      command = "rm -r /tmp/#{dbname}.mongo.dump"
+      puts "Executing Remotelly: #{command}"      
+      result = ssh.exec!(command)
+      puts result      
+    end
+  end
+  
+  # Copying Data Files
+  folders.each do |from, to|
+    to_full_path = "#{backup_directory}#{to}"
+    FileUtils.mkdir_p to_full_path unless File.exist? to_full_path
+    command = "rsync -e 'ssh' -al --delete --stats --progress #{user}@#{host}:#{from} #{to_full_path}"
+    puts "Executing: #{command}"
+    system command
+  end
+  
+  puts "Backup finished!"
+end

data/lib/rad/tasks/initialize.rake

@@ -0,0 +1,35 @@
+namespace :db do
+  SAMPLE_DATA_DIR = File.dirname(__FILE__) + "/sample_data"
+
+  desc "Initialize database with initial data"
+  task :initialize => :environment do
+    # Anonymous User
+    User.find_by_name('anonymous').try :destroy
+    u = User.new :name => 'anonymous', 
+      :email => "anonymous@mail.com",
+      :password => "anonymous_password",
+      :password_confirmation => "anonymous_password"
+    u.save :validate => false
+    u.activate!
+    u.save :validate => false
+    
+    # Admin User
+    User.find_by_name('admin').try :destroy
+    u = User.new :name => 'admin',
+      :email => "admin@mail.com",
+      :password => 'admin',
+      :password_confirmation => 'admin',
+      :global_admin => true
+    u.save :validate => false  
+    u.activate!
+    u.save :validate => false
+    
+    # Default Account
+    Account.find_by_name('development').try :destroy
+    Account.create! :name => 'development', :domains => ["localhost"]
+  end
+  
+  desc "Rollback db:initialize action"
+  task :deinitialize => :environment do
+  end
+end