card 1.99.6 → 1.100.0

data/tmpsets/set/mod016-standard/type/toggle.rb

@@ -1,19 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Type; module Toggle; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/toggle.rb ~~
-
-view :core do |_args|
-  case card.raw_content.to_i
-  when 1 then "yes"
-  when 0 then "no"
-  else; "?"
-  end
-end
-
-view :editor do |_args|
-  check_box :content
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/toggle.rb ~~
-end;end;end;end;

data/tmpsets/set/mod016-standard/type/uri.rb

@@ -1,18 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Type; module Uri; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/uri.rb ~~
-format do
-  include Phrase::Format
-
-  view :core do |args|
-    web_link _render_raw(args), text: render_title(args)
-  end
-
-  view :url_link do |args|
-    web_link _render_raw(args)
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/uri.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/all/account.rb

@@ -1,72 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Account; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/all/account.rb ~~
-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 << 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 own_account?
-  # card is +*account card of signed_in user.
-  cardname.part_names[0].key == Auth.as_card.key &&
-    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 ||= (id == Card::AnonymousID ? [] : fetch_roles)
-end
-
-def fetch_roles
-  Auth.as_bot do
-    role_trait = fetch trait: :roles
-    next [Card::AnyoneSignedInID] unless role_trait
-    [Card::AnyoneSignedInID] + role_trait.item_ids
-  end
-end
-
-event :generate_token do
-  Digest::SHA1.hexdigest "--#{Time.zone.now.to_f}--#{rand 10}--"
-end
-
-event :set_stamper, :prepare_to_validate do
-  self.updater_id = Auth.current_id
-  self.creator_id = updater_id if new_card?
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/all/account.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/right/account.rb

@@ -1,196 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Account; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/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, :prepare_to_validate, on: :create do
-  unless left && left.accountable?
-    errors.add :content, "not allowed on this card"
-  end
-end
-
-event :require_email, :prepare_to_validate,
-      after: :validate_accountability, on: :create do
-  errors.add :email, "required" unless subfield(:email)
-end
-
-event :set_default_salt, :prepare_to_validate, on: :create 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, :prepare_to_validate, on: :create 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, :prepare_to_store,
-      on: :create,
-      when: proc { |c| c.confirm_ok? } do
-  add_subfield :token, content: generate_token
-end
-
-event :reset_password,
-      :prepare_to_validate, on: :update, 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, :integrate,
-      on: :create, 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.actions_affecting(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/account/set/right/account.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/right/email.rb

@@ -1,61 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Email; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/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, :validate, 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, :prepare_to_validate, 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/account/set/right/email.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/right/password.rb

@@ -1,54 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Password; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/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, :store,
-      on: :save, 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, :validate,
-      on: :save do
-  unless content.length > 3
-    errors.add :password, "must be at least 4 characters"
-  end
-end
-
-event :validate_password_present, :prepare_to_validate, on: :update 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/account/set/right/password.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/right/salt.rb

@@ -1,12 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Salt; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/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/account/set/right/salt.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/right/status.rb

@@ -1,16 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Status; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/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/account/set/right/status.rb ~~
-end;end;end;end;