card 1.97.0.1 → 1.98.0

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/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;

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

@@ -1,57 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Token; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/right/token.rb ~~
-include All::Permissions::Accounts
-
-DURATIONS = "second|minute|hour|day|week|month|year".freeze
-
-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
-
-  raise Card::Error::Oops, "illegal expiration value (eg '2 days')" unless unit
-  number.to_i.send unit
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/right/token.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/self/account_links.rb

@@ -1,72 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Self; module AccountLinks; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/account_links.rb ~~
-
-format :html do
-  def item_links args
-    [
-      optional_render(:my_card, args),
-      optional_render(:invite, args),
-      optional_render(:sign_out, args),
-      optional_render(:sign_up, args),
-      optional_render(:sign_in, args)
-    ]
-  end
-
-  view :sign_up, perms: ->(r) { r.show_signup_link? },
-                 denial: :blank do |_args|
-    # 'Sign up'
-    link_to(I18n.t(:sign_up, scope: "mod.standard.set.self.account_links"),
-            card_path("account/signup"), id: "signup-link")
-  end
-
-  view :sign_in, perms: ->(_r) { !Auth.signed_in? },
-                 denial: :blank do |_args|
-    # 'Sign in'
-    link_to(I18n.t(:sign_in, scope: "mod.standard.set.self.account_links"),
-            card_path(":signin"), id: "signin-link")
-  end
-
-  view :invite, perms: ->(r) { r.show_invite_link? },
-                denial: :blank do |_args|
-    # 'Invite'
-    link_to(I18n.t(:invite, scope: "mod.standard.set.self.account_links"),
-            card_path("account/signup"), id: "invite-a-friend-link")
-  end
-
-  view :sign_out, perms: ->(_r) { Auth.signed_in? },
-                  denial: :blank do |_args|
-    # 'Sign out'
-    link_to(I18n.t(:sign_out, scope: "mod.standard.set.self.account_links"),
-            card_path("delete/:signin"), id: "signout-link")
-  end
-
-  view :my_card, perms: ->(_r) { Auth.signed_in? },
-                 denial: :blank do |_args|
-    card_link(Auth.current.cardname, id: "my-card-link")
-  end
-
-  view :raw do |args|
-    item_links(args).join " "
-  end
-
-  view :core do |args|
-    content_tag :span, id: "logging" do
-      render_raw args
-    end
-  end
-
-  def show_signup_link?
-    !Auth.signed_in? && Card.new(type_id: Card::SignupID).ok?(:create)
-  end
-
-  def show_invite_link?
-    Auth.signed_in? &&
-      Card.new(type_id: Card.default_accounted_type_id).ok?(:create)
-  end
-end
-
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/account_links.rb ~~
-end;end;end;end;

data/tmpsets/set/mod017-account/self/signin.rb

@@ -1,165 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Self; module Signin; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/signin.rb ~~
-
-format :html do
-  view :open do |args|
-    args[:optional_help] = :show
-    super args
-  end
-
-  def default_title_args args
-    args[:title] ||= I18n.t(:sign_in_title, # 'Sign In'
-                            scope: "mod.standard.set.self.signin")
-  end
-
-  view :open_content do |args|
-    # annoying step designed to avoid table of contents.  sigh
-    _render_core(args)
-  end
-
-  view :closed_content do |_args|
-    ""
-  end
-
-  def default_core_args args={}
-    # 'Sign in' '...or sign up!' 'RESET PASSWORD'
-    sign_in, or_sign_up, reset_password =
-      I18n.t([:sign_in, :or_sign_up, :reset_password],
-             scope: "mod.standard.set.self.signin")
-    # since i18n-tasks doesn't understand bulk lookups, tell it keys are used
-    # i18n-tasks-use t(:sign_in, scope: 'mod.standard.set.self.signin')
-    # i18n-tasks-use t(:or_sign_up, scope: 'mod.standard.set.self.signin')
-    # i18n-tasks-use t(:reset_password,
-    #                  scope: 'mod.standard.set.self.signin')
-    args[:buttons] = button_tag sign_in, situation: "primary"
-    if Card.new(type_id: Card::SignupID).ok? :create
-      args[:buttons] += link_to(or_sign_up, card_path("account/signup"))
-    end
-    args[:buttons] += raw(
-      "<div style='float:right'>" \
-      "#{view_link reset_password, :edit,
-                   path_opts: { slot: { hide: :toolbar } }}" \
-      "</div>"
-    ) # FIXME: hardcoded styling
-    args
-  end
-
-  view :core do |args|
-    form_args = {
-      hidden: { success: "REDIRECT: #{Env.interrupted_action || '*previous'}" },
-      recaptcha: :off
-    }
-    with_nest_mode :edit do
-      card_form :update, form_args do
-        [
-          _optional_render(:content_formgroup, args.merge(structure: true)),
-          _optional_render(:button_formgroup, args)
-        ].join
-      end
-    end
-  end
-
-  # FORGOT PASSWORD
-  view :edit do |args|
-    @forgot_password = true
-    args.merge!(
-      title: I18n.t(:forgot_password, # 'Forgot Password'
-                    scope: "mod.standard.set.self.signin"),
-      optional_help: :hide,
-      buttons: button_tag(I18n.t(:reset_my_password, # 'Reset my password'
-                                 scope: "mod.standard.set.self.signin"),
-                          situation: "primary"),
-      structure: true,
-      hidden: {
-        reset_password: true,
-        success: { view: :reset_password_success }
-      }
-    )
-    Auth.as_bot { super args }
-  end
-
-  view :raw do |_args|
-    if @forgot_password
-      "{{+#{Card[:email].name}|title:email;type:Phrase}}"
-    else
-      %(
-        {{+#{Card[:email].name}|titled;title:email}}
-        {{+#{Card[:password].name}|titled;title:password}}
-      )
-    end
-  end
-
-  view :reset_password_success do |_args|
-    # 'Check your email for a link to reset your password'
-    frame { I18n.t(:check_email, scope: "mod.standard.set.self.signin") }
-  end
-end
-
-event :signin, :validate, on: :update do
-  email = subfield :email
-  email &&= email.content
-  pword = subfield :password
-  pword &&= pword.content
-
-  unless email && pword
-    abort :failure, I18n.t(:abort_bad_signin_args, # 'bad signin args'
-                           scope: "mod.standard.set.self.signin")
-  end
-
-  if (account = Auth.authenticate(email, pword))
-    Auth.signin account.left_id
-  else
-    account = Auth.find_account_by_email email
-    error_msg =
-      case
-      when account.nil?     then
-        # 'Unrecognized email.'
-        I18n.t(:error_unknown_email, scope: "mod.standard.set.self.signin")
-      when !account.active? then
-        # 'Sorry, that account is not active.'
-        I18n.t(:error_not_active, scope: "mod.standard.set.self.signin")
-      else
-        # 'Wrong password'
-        I18n.t(:error_wrong_password, scope: "mod.standard.set.self.signin")
-      end
-    errors.add :signin, error_msg
-    abort :failure
-  end
-end
-
-event :signin_success, after: :signin do
-  abort :success
-end
-
-event :send_reset_password_token,
-      before: :signin, on: :update,
-      when: proc { Env.params[:reset_password] } do
-  email = subfield :email
-  email &&= email.content
-
-  account = Auth.find_account_by_email email
-  if account
-    if account.active?
-      account.send_reset_password_token
-      abort :success
-    else
-      errors.add :account, I18n.t(:error_not_active, # 'not active'
-                                  scope: "mod.standard.set.self.signin")
-      abort :failure
-    end
-  else
-    errors.add :email, I18n.t(:error_not_recognized, # 'not recognized'
-                              scope: "mod.standard.set.self.signin")
-    abort :failure
-  end
-end
-
-event :signout, :validate, on: :delete do
-  Auth.signin nil
-  abort :success
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/self/signin.rb ~~
-end;end;end;end;