card 1.99.6 → 1.100.0

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;

data/tmpsets/set/mod017-account/type/signup.rb

@@ -1,175 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Type; module Signup; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/signup.rb ~~
-format :html do
-  def default_new_args args
-    super args
-    args.merge!(
-      optional_help: :show, # , optional_menu: :never
-      buttons: submit_button,
-      account: card.fetch(trait: :account, new: {}),
-      title: "Sign up",
-      hidden: {
-        success: (card.rule(:thanks) || "_self"),
-        "card[type_id]" => card.type_id
-      }
-    )
-    return unless Auth.signed_in? && args[:account].confirm_ok?
-    invite_args args
-  end
-
-  def invite_args args
-    args[:title] = "Invite"
-    args[:buttons] = button_tag("Send Invitation", situation: "primary")
-    args[:hidden][:success] = "_self"
-  end
-
-  view :new do |args|
-    # FIXME: make more use of standard new view?
-
-    frame_and_form :create, args, "main-success" => "REDIRECT" do
-      [
-        _render_name_formgroup(help: "usually first and last name"),
-        _optional_render(:account_formgroups, args),
-        (card.structure ? edit_slot : ""),
-        _optional_render(:button_formgroup, args)
-      ]
-    end
-  end
-
-  view :account_formgroups do |args|
-    sub_args = { structure: true }
-    sub_args[:no_password] = true if Auth.signed_in?
-    Auth.as_bot do
-      subformat(args[:account])._render :content_formgroup, sub_args
-    end # YUCK!!!!
-  end
-
-  view :core do |_args|
-    return if card.new_card? # necessary?
-    headings = []
-    by_anon = card.creator_id == AnonymousID
-    headings << %(
-      <strong>#{card.name}</strong> #{'was' unless by_anon} signed up on
-      #{format_date card.created_at}
-    )
-    if (account = card.account)
-      headings += verification_info account
-    else
-      headings << "ERROR: signup card missing account"
-    end
-    <<-HTML
-      <div class="invite-links">
-        #{headings.map { |h| "<div>#{h}</div>" }.join "\n"}
-      </div>
-      #{process_content render_raw}
-    HTML
-  end
-
-  def verification_info account
-    headings = []
-    token_action = "Send"
-    if account.token.present?
-      headings << "A verification email has been sent " \
-                  "#{"to #{account.email}" if account.email_card.ok? :read}"
-      token_action = "Resend"
-    end
-    links = verification_links account, token_action
-    headings << links * "" if links.any?
-    headings
-  end
-
-  def verification_links account, token_action
-    links = []
-    if account.confirm_ok?
-      links << link_to(
-        "#{token_action} verification email",
-        card_path("update/~#{card.id}?approve_with_token=true")
-      )
-      links << link_to(
-        "Approve without verification",
-        card_path("update/~#{card.id}?approve_without_token=true")
-      )
-    end
-    if card.ok? :delete
-      links << link_to("Deny and delete", card_path("delete/~#{card.id}"))
-    end
-    links
-  end
-end
-
-event :activate_by_token, :validate, on: :update,
-                                     when: proc { |c| c.has_token? } do
-  abort :failure, "no field manipulation mid-activation" if subcards.present?
-  # necessary because this performs actions as Wagn Bot
-  abort :failure, "no account associated with #{name}" unless account
-
-  account.validate_token! @env_token
-
-  if account.errors.empty?
-    account.token_card.used!
-    activate_account
-    Auth.signin id
-    Auth.as_bot # use admin permissions for rest of action
-    success << ""
-  else
-    resend_activation_token
-    abort :success
-  end
-end
-
-def has_token?
-  @env_token = Env.params[:token]
-end
-
-event :activate_account do
-  # FIXME: -- sends email before account is fully activated
-  add_subfield :account
-  subfield(:account).add_subfield :status, content: "active"
-  self.type_id = Card.default_accounted_type_id
-  account.send_welcome_email
-end
-
-event :approve_with_token, :validate,
-      on: :update,
-      when: proc { Env.params[:approve_with_token] } do
-  abort :failure, "illegal approval" unless account.confirm_ok?
-  account.reset_token
-  account.send_account_verification_email
-end
-
-event :approve_without_token, :validate,
-      on: :update,
-      when: proc { Env.params[:approve_without_token] } do
-  abort :failure, "illegal approval" unless account.confirm_ok?
-  activate_account
-end
-
-event :resend_activation_token do
-  account.reset_token
-  account.send_account_verification_email
-  message = "Please check your email for a new password reset link."
-  if account.errors.any?
-    message = "Sorry, #{account.errors.first.last}. #{message}"
-  end
-  success << { id: "_self", view: "message", message: message }
-end
-
-def signed_in_as_me_without_password?
-  Auth.signed_in? && Auth.current_id == id && account.password.blank?
-end
-
-event :redirect_to_edit_password, :finalize,
-      on: :update,
-      when: proc { |c| c.signed_in_as_me_without_password? } do
-  Env.params[:success] = account.edit_password_success_args
-end
-
-event :act_as_current_for_integrate_stage, :integrate,
-      on: :create do
-  Auth.current_id = id
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/account/set/type/signup.rb ~~
-end;end;end;end;