card 0.0.1 → 1.15.pre

data/mod/05_email/spec/set/all/observer_spec.rb

@@ -0,0 +1,76 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::EmailTemplate do
+  before :each do
+    Card::Auth.as_bot do
+      Card.create! :name=>"mail template",  :type_code=>'email_template', :subcards=>{'+*html message'=>{content: 'Hi Joe! My name is {{_self|name}}'},
+                                                                                      '+*to'=>{content: 'joe@user.com'},
+                                                                                      '+*from'=>{content: 'from@user.com'} }
+    end
+  end
+  it 'sends email on update' do
+    Card::Auth.as_bot do
+      Card.create! :name=>"mail test+*self+*on update", type_code: :pointer, content: "[[mail template]]"
+    end
+    card = Card.fetch "mail test"
+    expect { Card::Auth.as_bot { card.update_attributes(content: "test") } }.to change { Mail::TestMailer.deliveries.count }.by(1)
+  end
+  
+  it 'sends email on delete' do
+    Card::Auth.as_bot do
+      Card.create! :name=>"mail test+*self+*on delete", type_code: :pointer, content: "[[mail template]]"
+    end
+    card = Card.fetch "mail test"
+    expect { Card::Auth.as_bot { card.delete } }.to change { Mail::TestMailer.deliveries.count }.by(1)
+  end
+  
+  it 'sends email on create' do
+    Card::Auth.as_bot do
+      Card.create! :name=>"Cardtype A+*type+*on create", type_code: :pointer, content: "[[mail template]]"
+    end
+    expect { Card::Auth.as_bot { Card.create! :name=>"mail test", type_code: :cardtype_a} }.to change { ActionMailer::Base.deliveries.count }.by(1)
+  end
+  
+  describe '#send_action_mails' do
+    before do
+      Card::Auth.as_bot do
+        Card.create! :name=>"another mail template",  :type_code=>'email_template', :subcards=>{'+*html message'=>{content: 'Hi Joe! My name is {{_self|name}}'},
+                                                                                        '+*to'=>{content: 'joe@user.com'},
+                                                                                        '+*from'=>{content: 'from@user.com'} }
+        Card.create! :name=>"mail test+*self+*on update", type_code: :pointer, content: "[[mail template]]\n[[another mail template]]"
+        Card.create! :name=>"mail test+*self+*on delete", type_code: :pointer, content: "[[mail template]]\n[[another mail template]]"
+      end
+      card = Card.fetch "mail test"      
+      ActionMailer::Base.deliveries = []
+      card.send_action_mails :on=>:update
+    end
+    
+    it 'delivers all emails for given action' do
+      expect(ActionMailer::Base.deliveries.size).to eq(2)
+    end
+    it 'uses correct context' do
+      expect(ActionMailer::Base.deliveries.last.body.raw_source).to include('My name is mail test')
+    end
+  end
+  
+  # describe '#send_timer_mails' do
+ #    before do
+ #      ActionMailer::Base.deliveries = []
+ #      Card::Auth.as_bot do
+ #        Card.create! :name=>"A+*hourly", :type_code=>'email_template',  :subcards=>{'+*message'=>{content: 'hourly update name:{{_self|name}}'},
+ #                                                                                      '+*to'=>{content: 'joe@user.com'},
+ #                                                                                      '+*from'=>{content: 'from@user.com'}}
+ #      end
+ #      Card::Set::All::Observer.send_timer_mails :hourly
+ #      @mail = ActionMailer::Base.deliveries.last
+ #    end
+ #
+ #    it 'delivers hourly mails' do
+ #      expect(@mail.body.raw_source).to include('hourly update')
+ #    end
+ #    it 'uses correct context' do
+ #      expect(@mail.body.raw_source).to include('name:A')
+ #    end
+ #  end
+end
+

data/mod/05_email/spec/set/right/followers_spec.rb

@@ -0,0 +1,126 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Followers do
+  
+  
+  
+  describe '#raw_content' do
+    it 'returns a pointer list of followers' do
+      card = Card.fetch 'All Eyes on me'
+      expect( card.followers_card.raw_content).to eq "[[John]]\n[[Sara]]\n[[Big Brother]]"
+    end
+  end
+  
+  describe 'view :core' do
+    it 'contains follower' do
+      card = Card.fetch 'All Eyes on me'
+      view = card.followers_card.format.render_core
+      expect(view).to include("Sara")
+    end
+  end
+  
+  describe 'view :raw' do
+    it 'renders a pointer list of followers' do
+      card = Card.fetch 'All Eyes on me'
+      view = card.followers_card.format.render_raw
+      expect(view).to eq "[[John]]\n[[Sara]]\n[[Big Brother]]"
+    end
+  end
+  
+  
+  describe 'item_names' do  
+    subject { @card.followers_card.item_names }  
+    it 'is an array of followers' do
+      @card = Card['All Eyes On Me']
+      is_expected.to eq ['John','Sara','Big Brother']
+    end
+    
+    it 'recognizes card name changes' do   
+      @card = Card['Look At Me']  
+      @card.update_referencers = true
+      @card.update_attributes! :name=>'Look away'
+      is_expected.to eq ['Big Brother']
+    end
+      
+    it 'recognizes +*following changes' do
+      Card::Auth.as_bot do
+        card = Card['Joe User'].follow 'Look At Me'
+      end
+      @card = Card['Look At Me']
+      is_expected.to include 'Joe User'
+    end
+
+    context 'when following a card' do 
+      it 'contains follower' do
+        @card = Card['All Eye On Me']
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following a *self set' do
+      it 'contains follower' do
+        @card = Card['Look At Me']
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following a *type set' do
+      it 'contains follower' do
+        @card = Card.create! :name=>'telescope', :type=>'Optic'
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following a *right set' do
+      it 'contains follower' do
+        @card = Card.create! :name=>'telescope+lens'
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following a *type plus right set' do
+      it 'contains follower' do
+        @card = Card['Sunglasses+tint']
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following content I created' do
+      it 'contains creator' do
+        Card::Auth.current_id = Card['Big Brother'].id
+        @card = Card.create! :name=>"created by Follower"
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'when following content I edited' do
+      it 'contains editor' do
+        Card::Auth.as_bot do 
+          Card['Sara'].follow '*all', '*edited'
+        end
+
+        @card = Card.create! :name=>"edited by Sara"
+        Card::Auth.current_id = Card['Sara'].id
+        @card.update_attributes! :content=> 'some content'
+        is_expected.to include('Sara')
+      end
+    end
+    
+    
+    context 'for a set card' do
+      it 'contains followers of that set' do
+        @card = Card['lens+*right']
+        is_expected.to include('Big Brother')
+      end
+    end
+    
+    context 'for a type card' do
+      it 'contains followers of that type' do
+        @card = Card['Optic']
+        is_expected.to include('Optic fan')
+      end
+    end
+    
+  end
+    
+end

data/mod/05_email/spec/set/right/following_spec.rb

@@ -0,0 +1,4 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Following do
+end

data/mod/05_email/spec/set/self/follow_defaults_spec.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::FollowDefaults do
+  context 'when updated' do
+    before do 
+      Card::Auth.as_bot do
+        @card = Card[:follow_defaults]
+        @card.update_all_users = true
+        @card.update_attributes! :content=>'[[A+*self+*always]]'
+      end
+    end
+
+    it 'updates follow rules of users' do
+      ca = Card.fetch 'A'
+      expect(ca.follower_names).to include "Joe User"
+    end
+  end
+end

data/mod/05_standard/set/all/account.rb

@@ -0,0 +1,67 @@
+module ClassMethods
+  def default_accounted_type_id
+    Card::UserID
+  end
+end
+
+def account
+  fetch :trait=>:account
+end
+
+def accountable?
+  Card.toggle( rule :accountable )
+end
+
+def parties
+  @parties ||= (all_roles << self.id).flatten.reject(&:blank?)
+end
+
+def among? ok_ids
+  ok_ids.each do |ok_id|
+    return true if parties.member? ok_id
+  end
+  ok_ids.member? Card::AnyoneID
+end
+
+def is_own_account?
+  # card is +*account card of signed_in user.
+  cardname.part_names[0].key == Auth.as_card.key and
+  cardname.part_names[1].key == Card[:account].key
+end
+
+def read_rules
+  @read_rules ||= begin
+    rule_ids = []
+    unless id==Card::WagnBotID # always_ok, so not needed
+      ( [ Card::AnyoneID ] + parties ).each do |party_id|
+        if rule_ids_for_party = self.class.read_rule_cache[ party_id ]
+          rule_ids += rule_ids_for_party
+        end
+      end
+    end
+    rule_ids
+  end
+end
+
+def all_roles
+  @all_roles ||= 
+    if id == Card::AnonymousID
+      []
+    else
+      Auth.as_bot do
+        role_trait = fetch :trait=>:roles
+        [ Card::AnyoneSignedInID ] + ( role_trait ? role_trait.item_ids : [] )
+      end
+    end
+end
+
+
+event :generate_token do
+  Digest::SHA1.hexdigest "--#{Time.now.to_f}--#{rand 10}--" 
+end
+
+event :set_stamper, :before=>:approve do
+  self.updater_id = Auth.current_id
+  self.creator_id = self.updater_id if new_card?
+end
+

data/mod/05_standard/set/all/attach.rb

@@ -0,0 +1,152 @@
+
+require 'RMagick'
+require 'paperclip'
+
+def attach_array
+  
+  c= self.content
+  !c || c =~ /^\s*<img / ?  ['','',''] : c.split(/\n/)
+end
+
+def attach_array_set i, v
+  c = attach_array[0..2]  # make sure there is no mod set for uploaded files
+  if c[i] != v
+    c[i] = v
+    self.content = c*"\n"
+  end
+end
+
+def attach_file_name()    attach_array[0] end
+def attach_content_type() attach_array[1] end
+def attach_file_size()    attach_array[2] end
+def attach_mod()         attach_array[3] end
+
+def attach_extension()    attach.send( :interpolate, ':extension' )  end
+
+def attach_file_name=(v)
+  return if !v # does this happen?
+  attach_array_set 0, v
+  attach_array_set 1, MIME::Types.type_for(v).first.to_s
+  # was having issues with browsers getting mime types wrong,
+  # eg application/octet-stream for pdfs in Firefox (both versions 4 and 10)
+  # this solution means we just do a lookup based on the extension.
+  # perhaps not ideal, but at least consistent.  Not sure browsers do much more.
+end
+def attach_file_size=(v) attach_array_set(2, v) if v end
+
+STYLES = %w{ icon small medium large original }
+
+
+def attachment_format(ext)
+  if ext.present? and attach and original_ext=attach_extension 
+    if['file', original_ext].member? ext
+      original_ext
+    elsif exts = MIME::Types[attach.content_type] 
+      if exts.find {|mt| mt.extensions.member? ext }
+        ext
+      else
+        exts[0].extensions[0]
+      end
+    end
+  end   
+rescue => e
+  Rails.logger.info "attachment_format issue: #{e.message}"
+  nil
+end
+
+# FIXME: test extension matches content type
+
+
+def attachment_symlink_to(prior_action_id) # create filesystem links to files from prior action
+  styles = case type_code
+    when :file; ['']
+    when :image; STYLES
+  end
+  if styles and prior_action_id != last_action_id
+    save_action_id = selected_action_id
+    links = {}
+    
+    self.selected_action_id = prior_action_id
+    styles.each { |style|  links[style] = ::File.basename(attach.path(style))          }
+
+    self.selected_action_id = last_action_id
+    styles.each { |style|  ::File.symlink links[style], attach.path(style) }
+
+    self.selected_action_id = save_action_id
+  end
+end
+
+def before_post_attach
+#  Rails.logger.info "bpa called for #{name}"
+
+  at=self.attach
+  at.instance_write :file_name, at.original_filename
+  Card::ImageID == (type_id || Card.fetch_id( @type_args[:type] || @type_args[:type_code]) )
+  # returning true enables thumnail creation
+end
+
+
+def self.included(base)
+  base.class_eval do
+    include Paperclip::Glue
+    Paperclip::Attachment.default_options[:use_timestamp] = false
+    # the need for this seems related to moving the initializer code here (line above comment)
+    # this isn't quite right, but without it, we see logging to STDOUT
+    Paperclip.options[:log] = false
+
+    has_attached_file :attach, :preserve_files=>true,
+      :default_url => "missing",
+      :url => ":file_path/:basename-:size:action_id.:extension",
+      :path => ":local/:card_id/:size:action_id.:extension",
+      :styles => { :icon   => '16x16#', :small  => '75x75',
+                 :medium => '200x200>', :large  => '500x500>' }
+
+    before_post_process :before_post_attach
+
+    validates_each :attach do |rec, attr, value|
+      if [Card::FileID, Card::ImageID].member? rec.type_id
+        max_size = (max = Card['*upload max']) ? max.db_content.to_i : 5
+        if value.size.to_i > max_size.megabytes
+          rec.errors.add :file_size, "File cannot be larger than #{max_size} megabytes"
+        end
+      end
+    end
+  end
+end
+
+
+
+module Paperclip::Interpolations
+  
+  extend Card::Format::Location
+
+  def local at, style_name
+    if mod = at.instance.attach_mod
+      # generalize this to work with any mod (needs design)
+      "#{Cardio.gem_root}/mod/#{mod}/file"
+    else
+      Card.paths['files'].existent.first
+    end
+  end
+      
+  def file_path at, style_name
+    card_path Card.config.files_web_path
+  end
+
+  def card_id at, style_name
+    at.instance.id
+  end
+
+  def basename at, style_name
+    at.instance.name.to_name.url_key
+  end
+
+  def size(at, style_name)
+    at.instance.type_id==Card::FileID || style_name.blank? ? '' : "#{style_name}-"
+  end
+
+  def action_id(at, style_name) 
+    at.instance.selected_content_action_id 
+  end
+end
+