card 1.18.6 → 1.19.0

data/tmpsets/set/mod007-05_standard/right/account.rb

@@ -1,184 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Account; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/account.rb ~~~~~~~~~~~
-
-include All::Permissions::Accounts
-
-card_accessor :email
-card_accessor :password
-card_accessor :salt
-card_accessor :status
-card_accessor :token
-
-def active?;   status == 'active'  end
-def blocked?;  status == 'blocked' end
-def built_in?; status == 'system'  end
-def pending?;  status == 'pending' end
-
-def validate_token! test_token
-  tcard = token_card
-  tcard.validate! test_token
-  copy_errors tcard
-  errors.empty?
-end
-
-format do
-  view :verify_url do
-    signup_name = card.cardname.left_name
-    card_url "update/#{signup_name.url_key}" \
-             "?token=#{card.token}" \
-             '&live_token=true'
-  end
-
-  view :verify_days do
-    (Card.config.token_expiry / 1.day).to_s
-  end
-
-  view :reset_password_url do
-    card_url "update/#{card.cardname.url_key}" \
-             "?token=#{card.token_card.refresh(true).content}" \
-             '&live_token=true&event=reset_password'
-  end
-
-  view :reset_password_days do
-    (Card.config.token_expiry / 1.day).to_s
-  end
-end
-
-format :html do
-  view :raw do |args|
-    content = []
-    unless args[:no_email]
-      content << "{{+#{Card[:email].name}|titled;title:email}}"
-    end
-    unless args[:no_password]
-      content << "{{+#{Card[:password].name}|titled;title:password}}"
-    end
-    content * ' '
-  end
-
-  view :edit do |args|
-    args[:structure] = true
-    super args
-  end
-end
-
-event :validate_accountability, on: :create, before: :approve do
-  unless left && left.accountable?
-    errors.add :content, 'not allowed on this card'
-  end
-end
-
-event :require_email, on: :create, after: :approve do
-  errors.add :email, 'required' unless subfield(:email)
-end
-
-event :set_default_salt, on: :create, before: :approve_subcards do
-  salt = Digest::SHA1.hexdigest "--#{Time.zone.now}--"
-  Env[:salt] = salt # HACK!!! need viable mechanism to get this to password
-  add_subfield :salt, content: salt
-end
-
-event :set_default_status, on: :create, before: :approve_subcards do
-  default_status = Auth.needs_setup? ? 'active' : 'pending'
-  add_subfield :status, content: default_status
-end
-
-def confirm_ok?
-  Card.new(type_id: Card.default_accounted_type_id).ok? :create
-end
-
-event :generate_confirmation_token,
-      on: :create, before: :process_subcards,
-      when: proc { |c| c.confirm_ok? } do
-  add_subfield :token, content: generate_token
-end
-
-event :reset_password, on: :update, before: :approve, when:
-    proc { |c| c.reset_password? } do
-  if validate_token! @env_token
-    token_card.used!
-    Auth.signin left_id
-    success << edit_password_success_args
-  else
-    error_msg = errors.first.last
-    send_reset_password_token
-    msg = "Sorry, #{error_msg}. " \
-          'Please check your email for a new password reset link.'
-    success << { id: '_self', view: 'message', message: msg }
-  end
-  abort :success
-end
-
-def edit_password_success_args
-  {
-    id: left.name,
-    view: :related,
-    related: { name: "+#{Card[:account].name}", view: 'edit' }
-  }
-end
-
-def reset_password?
-  @env_token = Env.params[:token]
-  @env_token && Env.params[:event] == 'reset_password'
-end
-
-event :reset_token do
-  Auth.as_bot do
-    token_card.update_attributes! content: generate_token
-  end
-end
-
-event :send_welcome_email do
-  welcome = Card['welcome email']
-  if welcome && welcome.type_code == :email_template
-    welcome.deliver context: left, to: email
-  end
-end
-
-event :send_account_verification_email, on: :create, after: :extend, when:
-    proc { |c| c.token.present? } do
-  Card[:verification_email].deliver context: self, to: email
-end
-
-event :send_reset_password_token do
-  Auth.as_bot do
-    token_card.update_attributes! content: generate_token
-  end
-  Card[:password_reset_email].deliver context: self, to: email
-end
-
-def ok_to_read
-  own_account? ? true : super
-end
-
-def changes_visible? act
-  act.relevant_actions_for(act.card).each do |action|
-    return true if action.card.ok? :read
-  end
-  false
-end
-
-def send_change_notice act, followed_set, follow_option
-  return unless changes_visible?(act)
-  Auth.as(left.id) do
-    Card[:follower_notification_email].deliver(
-      context:       act.card,
-      to:            email,
-      follower:      left.name,
-      followed_set:  followed_set,
-      follow_option: follow_option
-    )
-  end
-end
-
-format :email do
-  view :mail do |args|
-    args[:to] ||= card.email
-    super args
-  end
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/account.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/discussion.rb

@@ -1,10 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Discussion; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/discussion.rb ~~~~~~~~~~~
-def show_comment_box_in_related?
-  true
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/discussion.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/email.rb

@@ -1,61 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Email; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/email.rb ~~~~~~~~~~~
-include All::Permissions::Accounts
-
-view :raw do
-  case
-  when card.real? then card.content
-  # following supports legacy behavior
-  # (should be moved to User+*email+*type plus right)
-  when card.left.account then card.left.account.email
-  else ''
-  end
-end
-
-view :core, :raw
-
-event :validate_email, after: :approve, on: :save do
-  if content.present? && content !~ /^([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})$/i
-    errors.add :content, 'must be valid address'
-  end
-end
-
-event :validate_unique_email, after: :validate_email, on: :save do
-  if content.present?
-    Auth.as_bot do
-      wql = { right_id: Card::EmailID, eq: content, return: :id }
-      wql[:not] = { id: id } if id
-      wql_comment = "email duplicate? (#{content})"
-      if Card.search(wql, wql_comment).first
-        errors.add :content, 'must be unique'
-      end
-    end
-  end
-end
-
-event :downcase_email, before: :approve, on: :save do
-  return if !content || content == content.downcase
-  self.content = content.downcase
-end
-
-def email_required?
-  !built_in?
-end
-
-def ok_to_read
-  if own_email? || Auth.always_ok?
-    true
-  else
-    deny_because 'viewing email is restricted to administrators and ' \
-                 'account holders'
-  end
-end
-
-def own_email?
-  cardname.part_names[0].key == Auth.as_card.key
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/email.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/password.rb

@@ -1,53 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Password; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/password.rb ~~~~~~~~~~~
-
-include All::Permissions::Accounts
-
-view :editor do
-  card.content = ''
-
-  # HACK
-  autocomplete = if @parent && @parent.card.name == '*signin+*account'
-                   'on'
-                 else
-                   'off'
-                 end
-  password_field :content, class: 'card-content', autocomplete: autocomplete
-end
-
-view :raw do
-  '<em>encrypted</em>'
-end
-
-event :encrypt_password, on: :save, after: :process_subcards,
-                         changed: :content,
-                         when: proc { !Card::Env[:no_password_encryptions] } do
-  # no_password_encryptions = hack for import - fix with api for ignoring events
-  salt = left && left.salt
-  # HACK: fix with better ORM handling
-  salt = Card::Env[:salt] unless salt.present?
-  self.content = Auth.encrypt content, salt
-
-  # errors.add :password, 'need a valid salt'
-  # turns out we have a lot of existing account without a salt.
-  # not sure when that broke??
-end
-
-event :validate_password, on: :save, before: :approve do
-  unless content.length > 3
-    errors.add :password, 'must be at least 4 characters'
-  end
-end
-
-event :validate_password_present, on: :update, before: :approve do
-  abort :success if content.blank?
-end
-
-def ok_to_read
-  own_account? ? true : super
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/password.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/salt.rb

@@ -1,12 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Salt; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/salt.rb ~~~~~~~~~~~
-include All::Permissions::Accounts
-
-view :raw do |args|
-  "Private data"
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/salt.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/stats.rb

@@ -1,42 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Stats; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/stats.rb ~~~~~~~~~~~
-
-view :core do |args|
-  if subject = card.left
-  
-    frame args do
-      cache_card = Card.fetch(subject.key)
-      db_card    = Card.find_by_key(subject.key)
-    
-      table = if cache_card && db_card
-        %{<table class="show-cache">
-            <tr><th>Field</th><th>Cache Val</th><th>Database Val</th></tr>
-            #{
-              [ :name, :updated_at, :updater_id, :content ].map do |field|
-                %{<tr>#{ [ field, cache_card.send(field), db_card.send(field) ].map() { |cell| "<td>#{cell}</td>"}.join }</tr>}
-              end.join
-            }
-          </table>
-        }
-      end
-  
-      %{
-        <h1>Cache/DB Comparison</h1>
-        #{ table }
-      
-        <h1>Cached Card Inspect</h1>
-        #{ h cache_card.inspect }
-
-        <h1>Database Card Inspect</h1>
-        #{ h db_card.inspect }
-       }
-    end
-    
-  end
-end
-
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/stats.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/status.rb

@@ -1,16 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Status; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/status.rb ~~~~~~~~~~~
-include All::Permissions::Accounts
-
-def ok_to_update
-  if own_account? && !Auth.always_ok?
-    deny_because you_cant('change the status of your own account')
-  else
-    super
-  end
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/status.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/token.rb

@@ -1,59 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module Token; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/token.rb ~~~~~~~~~~~
-include All::Permissions::Accounts
-
-DURATIONS = 'second|minute|hour|day|week|month|year'
-
-card_accessor :expiration
-
-view :raw do
-  'Private data'
-end
-
-def validate! token
-  error =
-    case
-    when !real?           then [:token_not_found, 'no token found']
-    when expired?         then [:token_expired, 'expired token']
-    when content != token then [:incorrect_token, 'token mismatch']
-    end
-  errors.add *error if error
-end
-
-def expired?
-  !permanent? && updated_at <= term.ago
-end
-
-def permanent?
-  term == 'permanent'
-end
-
-def used!
-  Auth.as_bot { delete! } unless permanent?
-end
-
-def term
-  @term ||=
-    if expiration.present?
-      term_from_string expiration
-    else
-      Card.config.token_expiry
-    end
-end
-
-def term_from_string string
-  string.strip!
-  return 'permanent' if string == 'none'
-  re_match = /^(\d+)[\.\s]*(#{DURATIONS})s?$/.match(string)
-  number, unit = re_match.captures if re_match
-  if unit
-    number.to_i.send unit
-  else
-    raise Card::Oops, "illegal expiration value (eg '2 days')"
-  end
-end
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/token.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod007-05_standard/right/when_created.rb

@@ -1,12 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Right; module WhenCreated; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/when_created.rb ~~~~~~~~~~~
-view :raw do |args|
-  card.left.new_card? ? '' : card.left.created_at.strftime('%A, %B %d, %Y %I:%M %p %Z')
-end
-
-view :core, :raw
-
-
-# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/when_created.rb ~~~~~~~~~~~
-end;end;end;end;