card 1.91 → 1.92

data/tmpsets/set/mod015-carrierwave/all/file_utils.rb

@@ -0,0 +1,35 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module FileUtils; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/all/file_utils.rb ~~
+module ClassMethods
+  def update_all_storage_locations
+    Card.search(type_id: ["in", FileID, ImageID])
+        .each(&:update_storage_location!)
+  end
+
+  def delete_tmp_files_of_cached_uploads
+    draft_actions_with_attachment.each do |action|
+      # we don't want to delete uploads in progress
+      next unless old_enough?(action.created_at) && (card = action.card)
+      card.delete_files_for_action action
+      action.delete
+    end
+  end
+
+  def old_enough? time, expiration_time=5.day.to_i
+    Time.now - time > expiration_time
+  end
+
+  def draft_actions_with_attachment
+    Card::Action.find_by_sql(
+      "SELECT * FROM card_actions "\
+        "INNER JOIN cards ON card_actions.card_id = cards.id "\
+        "WHERE cards.type_id IN (#{Card::FileID}, #{Card::ImageID}) "\
+        "AND card_actions.draft = true"
+    )
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/all/file_utils.rb ~~
+end;end;end;end;

data/tmpsets/set/mod015-carrierwave/self/admin.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Admin; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/self/admin.rb ~~
+add_to_basket(
+  :tasks,
+  name: :update_file_storage_locations,
+  execute_policy: -> { Card.update_all_storage_locations },
+  stats: {
+    title: "cards with attachment",
+    count: -> { Card.search(type_id: ["in", FileID, ImageID], return: :count) },
+    link_text: "update storage locations",
+    task: "update_file_storage_locations"
+  }
+)
+
+add_to_basket(
+  :tasks,
+  name: :delete_upload_tmp_files,
+  execute_policy: -> { Card.delete_tmp_files_of_cached_uploads },
+  stats: {
+    title: "tmp files of canceled uploads",
+    count: -> { ::Card.draft_actions_with_attachment },
+    link_text: "delete tmp files",
+    task: "delete_tmp_files_of_cached_uploads"
+  }
+)
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/self/admin.rb ~~
+end;end;end;end;

data/tmpsets/set/mod015-carrierwave/type/file.rb

@@ -0,0 +1,158 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module File; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/type/file.rb ~~
+attachment :file, uploader: CarrierWave::FileCardUploader
+
+module SelectedAction
+  def select_action_by_params params
+    # skip action table lookups for current revision
+    rev_id = params[:rev_id]
+    super unless rev_id && rev_id == last_content_action_id
+  end
+
+  def last_content_action_id
+    return super if temporary_storage_type_change?
+    # find action id from content (saves lookups)
+    db_content.to_s.split(%r{[/\.]})[-2]
+  end
+end
+include SelectedAction
+
+format do
+  view :source do |_args|
+    card.attachment.url
+  end
+
+  view :core do |args|
+    handle_source args do |source|
+      card_url source
+    end
+  end
+
+  def handle_source args
+    source = _render_source args
+    source ? yield(source) : ""
+  rescue
+    "File Error"
+  end
+end
+
+format :file do
+  # returns send_file args.  not in love with this...
+  view :core do |_args|
+    # this means we only support known formats.  dislike.
+    attachment_format = card.attachment_format(params[:format])
+    return _render_not_found unless attachment_format
+    return card.format(:html).render_core(args) if card.remote_storage?
+
+    if params[:explicit_file] && (r = controller.response)
+      r.headers["Expires"] = 1.year.from_now.httpdate
+      # currently using default "private", because proxy servers could block
+      # needed permission checks
+      # r.headers["Cache-Control"] = "public"
+    end
+
+    # formerly supported redirecting to correct file format
+    # elsif ![format, 'file'].member? params[:format]
+    #   path = request.fullpath.sub( /\.#{params[:format]}\b/, '.' + format )
+    #   return redirect_to(path) #card.attachment.url(style) )
+    file = selected_file_version
+    [file.path,
+     {
+       type: file.content_type,
+       filename:  "#{card.cardname.safe_key}#{file.extension}",
+       x_sendfile: true,
+       disposition: (params[:format] == "file" ? "attachment" : "inline")
+     }]
+  end
+
+  def selected_file_version
+    card.attachment
+  end
+end
+
+format :html do
+  view :core do |args|
+    handle_source args do |source|
+      "<a href=\"#{source}\">Download #{showname args[:title]}</a>"
+    end
+  end
+
+  view :editor do |args|
+    if card.web? || card.no_upload?
+      return text_field(:content, class: "card-content")
+    end
+    file_chooser args
+  end
+
+  def preview  _args
+    ""
+  end
+
+  view :preview_editor, tags: :unknown_ok do |args|
+    cached_upload_card_name = Card::Env.params[:attachment_upload]
+    cached_upload_card_name.gsub!(/\[\w+\]$/, "[action_id_of_cached_upload]")
+    <<-HTML
+      <div class="chosen-file">
+        <input type="hidden" name="#{cached_upload_card_name}"
+                             value="#{card.selected_action_id}">
+        <table role="presentation" class="table table-striped">
+          <tbody class="files">
+            <tr class="template-download fade in">
+              <td>
+                <span class="preview">
+                  #{preview(args)}
+                </span>
+              </td>
+              <td>
+                <p class="name">
+                  #{card.original_filename}
+                </p>
+              </td>
+              <td>
+                <span class="size">
+                  #{number_to_human_size(card.attachment.size)}
+                </span>
+              </td>
+              <td class="pull-right">
+                <button class="btn btn-danger delete cancel-upload"
+                        data-type="DELETE">
+                  <i class="glyphicon glyphicon-trash"></i>
+                  <span>Delete</span>
+                </button>
+              </td>
+            </tr>
+          </tbody>
+        </table>
+      </div>
+    HTML
+  end
+
+  def file_chooser args
+    <<-HTML
+      <div class="choose-file">
+        #{preview(args)}
+        <span class="btn btn-success fileinput-button">
+            <i class="glyphicon glyphicon-cloud-upload"></i>
+            <span>
+                #{card.new_card? ? 'Add' : 'Replace'} #{card.attachment_name}...
+            </span>
+             <input class="file-upload slotter form-control" type="file"
+                name="card[#{card.type_code}]" id="card_#{card.type_code}">
+             #{hidden_field_tag 'attachment_type_id', card.type_id}
+             #{hidden_field card.attachment_name, class: 'attachment_card_name',
+                                                  value: ''}
+             #{hidden_field_tag 'file_card_name', card.cardname.url_key}
+        </span>
+      </div>
+      <div id="progress" class="progress" style="display: none;">
+        <div class="progress-bar progress-bar-success" style="width: 0%;"></div>
+      </div>
+      <div class="chosen-file"></div>
+    HTML
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/type/file.rb ~~
+end;end;end;end;

data/tmpsets/set/mod015-carrierwave/type/image.rb

@@ -0,0 +1,97 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Image; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/type/image.rb ~~
+attachment :image, uploader: CarrierWave::ImageCardUploader
+
+include File::SelectedAction
+
+format do
+  include File::Format
+
+  view :closed_content do |_args|
+    _render_core size: :icon
+  end
+
+  view :source do |args|
+    return card.raw_content if card.web?
+    style =
+      case
+      when @mode == :closed then :icon
+      when args[:size]    then args[:size].to_sym
+      when main?          then :large
+      else :medium
+      end
+    style = :original if style.to_sym == :full
+    if style == :original
+      card.image.url
+    else
+      card.image.versions[style].url
+    end
+  end
+end
+
+format :html do
+  include File::HtmlFormat
+
+  view :core do |args|
+    handle_source args do |source|
+      if source == "missing"
+        "<!-- image missing #{@card.name} -->"
+      else
+        image_tag(source)
+      end
+    end
+  end
+
+  def preview args
+    if !card.new_card? || card.preliminary_upload?
+      content_tag :div, _render_core(args.merge(size: :medium)).html_safe,
+                  class: "attachment-preview",
+                  id: "#{card.attachment.filename}-preview"
+    end
+  end
+
+  view :content_changes do |args|
+    out = ""
+    size = args[:diff_type] == :summary ? :icon : :medium
+    if !args[:hide_diff] && args[:action] &&
+       (last_change = card.last_change_on(:db_content, before: args[:action]))
+      card.selected_action_id = last_change.card_action_id
+      out << Card::Content::Diff.render_deleted_chunk(_render_core(size: size))
+    end
+    card.selected_action_id = args[:action].id
+    out << Card::Content::Diff.render_added_chunk(_render_core(size: size))
+    out
+  end
+end
+
+format :css do
+  view :core do |_args|
+    render_source
+  end
+
+  view :content do |_args|  # why is this necessary?
+    render_core
+  end
+end
+
+format :file do
+  include File::FileFormat
+
+  view :style do |args|  # should this be in model?
+    ["", "full"].member?(args[:style].to_s) ? :original : args[:style]
+  end
+
+  def selected_file_version
+    style = _render_style(style: params[:size]).to_sym
+    if style && style != :original
+      card.attachment.versions[style]
+    else
+      card.attachment
+    end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/type/image.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/all/comment.rb

@@ -0,0 +1,67 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Comment; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/comment.rb ~~
+event :add_comment, :prepare_to_store,
+      on: :save, when: proc { |c| c.comment } do
+  cleaned_comment =
+    comment.split(/\n/).map do |line|
+      "<p>#{line.strip.empty? ? '&nbsp;' : line}</p>"
+    end * "\n"
+
+  signature =
+    if Auth.signed_in?
+      "[[#{Auth.current.name}]]"
+    else
+      Env.session[:comment_author] = comment_author if Env.session
+      "#{comment_author} (Not signed in)"
+    end
+
+  self.content = %(
+    #{content}
+    #{'<hr>' unless content.blank?}
+    #{cleaned_comment}
+    <div class="w-comment-author">--#{signature}.....#{Time.zone.now}</div>
+  )
+end
+
+format do
+  view :comment_box,
+       denial: :blank, tags: :unknown_ok,
+       perms: ->(r) { r.card.ok? :comment } do |_args|
+    <<-HTML
+      <div class="comment-box nodblclick">#{comment_form}</div>
+    HTML
+  end
+
+  def comment_form
+    card_form :update do
+      %(
+        #{hidden_field_tag('card[name]', card.name) if card.new_card?
+          # FIXME: wish we had more generalized solution for names.
+          # without this, nonexistent cards will often take left's linkname.
+          # (needs test)
+        }
+        #{text_area :comment, rows: 3}
+        #{comment_buttons}
+      )
+    end
+  end
+
+  def comment_buttons
+    <<-HTML
+      <div class="comment-buttons">
+        #{unless Auth.signed_in?
+            card.comment_author = session[:comment_author] ||
+                                  params[:comment_author] || 'Anonymous' # ENGLISH
+            %(<label>My Name is:</label> #{text_field :comment_author})
+          end}
+        #{submit_button text: 'Comment', type: :submit,
+                        disable_with: 'Commenting'}
+      </div>
+    HTML
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/comment.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/all/error.rb

@@ -0,0 +1,229 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Error; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/error.rb ~~
+def copy_errors card
+  card.errors.each do |att, msg|
+    errors.add att, msg
+  end
+end
+
+format do
+  view :closed_missing, perms: :none, closed: true do
+    ""
+  end
+
+  view :unsupported_view, perms: :none, tags: :unknown_ok do |args|
+    "view (#{args[:unsupported_view]}) not supported for #{error_cardname}"
+  end
+
+  view :missing, perms: :none do
+    ""
+  end
+
+  view :not_found, perms: :none, error_code: 404 do |_args|
+    error_name = card.name.present? ? card.name : "the card requested"
+    %( Could not find #{error_name}. )
+  end
+
+  view :server_error, perms: :none, error_code: 500 do
+    %(
+      Wagn Hitch!  Server Error. Yuck, sorry about that.
+      To tell us more and follow the fix,
+      add a support ticket at http://wagn.org/new/Support_Ticket
+    )
+  end
+
+  view :denial, perms: :none, error_code: 403 do
+    focal? ? "Permission Denied" : ""
+  end
+
+  view :bad_address, perms: :none, error_code: 404 do
+    %( 404: Bad Address )
+  end
+
+  view :too_deep, perms: :none, closed: true do
+    %{ Man, you're too deep.  (Too many levels of nests at a time) }
+  end
+
+  view :too_slow, perms: :none, closed: true do
+    %( Timed out! #{showname} took too long to load. )
+  end
+end
+
+format :html do
+  def view_for_unknown view, args
+    case
+    when focal? && ok?(:create)   then :new
+    when commentable?(view, args) then view
+    else super
+    end
+  end
+
+  def commentable? view, args
+    return false unless self.class.tagged view, :comment
+    visibility_args = args.merge default_visibility: :hide
+    return false unless show_view? :comment_box, visibility_args
+    ok? :comment
+  end
+
+  def rendering_error exception, view
+    details = Auth.always_ok? ? backtrace_link(exception) : error_cardname
+    content_tag :span, class: "render-error alert alert-danger" do
+      ["error rendering", details, "(#{view} view)"].join "\n"
+    end
+  end
+
+  def backtrace_link exception
+    warning_options = {
+      dismissible: true,
+      alert_class: "render-error-message errors-view admin-error-message"
+    }
+    warning = alert("warning", warning_options) do
+      %{
+        <h3>Error message (visible to admin only)</h3>
+        <p><strong>#{exception.message}</strong></p>
+        <div>#{exception.backtrace * "<br>\n"}</div>
+      }
+    end
+    card_link(error_cardname, class: "render-error-link") + warning
+  end
+
+  view :unsupported_view, perms: :none, tags: :unknown_ok do |args|
+    %(
+      <strong>
+        view <em>#{args[:unsupported_view]}</em>
+        not supported for <em>#{error_cardname}</em>
+      </strong>
+    )
+  end
+
+  view :message, perms: :none, tags: :unknown_ok do |args|
+    frame args do
+      params[:message]
+    end
+  end
+
+  view :missing do |args|
+    return "" unless card.ok? :create  # should this be moved into ok_view?
+
+    link_opts = {
+      remote: true,
+      class: "slotter missing-#{args[:denied_view] || args[:home_view]}"
+    }
+    link_opts[:path_opts] = { type: args[:type] } if args[:type]
+
+    wrap args do
+      view_link "Add #{fancy_title args[:title]}", :new, link_opts
+    end
+  end
+
+  view :closed_missing, perms: :none do
+    %(<span class="faint"> #{showname} </span>)
+  end
+
+  view :conflict, error_code: 409 do |args|
+    actor_link = card_link card.last_action.act.actor.cardname
+    expanded_act = wrap(args) do
+      _render_act_expanded act: card.last_action.act, current_rev_nr: 0
+    end
+    wrap args.merge(slot_class: "error-view") do # ENGLISH below
+      alert "warning" do
+        %(
+          <strong>Conflict!</strong>
+          <span class="new-current-revision-id">#{card.last_action_id}</span>
+          <div>#{actor_link} has also been making changes.</div>
+          <div>Please examine below, resolve above, and re-submit.</div>
+          #{expanded_act}
+        )
+      end
+    end
+  end
+
+  view :errors, perms: :none do |args|
+    if card.errors.any?
+      title = "Problems"
+      title += " with #{card.name}" unless card.name.blank?
+      frame_opts = { panel_class: "panel panel-warning",
+                     title: title, hide: "menu" }
+      frame args.merge(frame_opts) do
+        card.errors.map do |attrib, msg|
+          unless attrib == :abort
+            msg = "<strong>#{attrib.to_s.upcase}:</strong> #{msg}"
+          end
+          alert "warning", dismissible: true, alert_class: "card-error-msg" do
+            msg
+          end
+        end
+      end
+    end
+  end
+
+  view :not_found do |args| # ug.  bad name.
+    sign_in_or_up_links =
+      unless Auth.signed_in?
+        signin_link = card_link :signin, text: "Sign in"
+        signup_link = link_to "Sign up", card_path("new/:signup")
+        %(<div>#{signin_link} or #{signup_link} to create it.</div>)
+      end
+    frame args.merge(title: "Not Found", optional_menu: :never) do
+      card_label = card.name.present? ? "<em>#{card.name}</em>" : "that"
+      %(<h2>Could not find #{card_label}.</h2> #{sign_in_or_up_links})
+    end
+  end
+
+  view :denial do |args|
+    task = args[:denied_task]
+    to_task = task ? "to #{task} this." : "to do that."
+    if !focal?
+      %(
+        <span class="denied">
+          <!-- Sorry, you don't have permission #{to_task} -->
+        </span>
+      )
+    else
+      frame args do # ENGLISH below
+        message =
+          case
+          when task != :read && Card.config.read_only
+            "We are currently in read-only mode.  Please try again later."
+          when Auth.signed_in?
+            "You need permission #{to_task}"
+          else
+            signin_link = link_to "sign in", card_url(":signin")
+            or_signup_link =
+              if Card.new(type_id: Card::SignupID).ok? :create
+                "or " + link_to("sign up", card_url("new/:signup"))
+              end
+            Env.save_interrupted_action(request.env["REQUEST_URI"])
+            "Please #{signin_link} #{or_signup_link} #{to_task}"
+          end
+
+        %(
+          <h1>Sorry!</h1>
+          <div>#{message}</div>
+        )
+      end
+    end
+  end
+
+  view :server_error do
+    %{
+      <body>
+        <div class="dialog">
+          <h1>Wagn Hitch :(</h1>
+          <p>Server Error. Yuck, sorry about that.</p>
+          <p>
+            <a href="http://www.wagn.org/new/Support_Ticket">
+              Add a support ticket
+            </a>
+            to tell us more and follow the fix.
+          </p>
+        </div>
+      </body>
+    }
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/error.rb ~~
+end;end;end;end;