amrita2 1.9.6 → 2.0.0

data/sample/depot/test/unit/cart_test1.rb

@@ -0,0 +1,31 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+require File.dirname(__FILE__) + '/../test_helper'
+
+class CartTest < Test::Unit::TestCase
+  fixtures :products
+
+  def setup
+    @cart  = Cart.new
+    @rails = products(:rails_book)
+    @ruby  = products(:ruby_book)
+  end
+  
+  def test_add_unique_products
+    @cart.add_product @rails
+    @cart.add_product @ruby
+    assert_equal 2, @cart.items.size
+    assert_equal @rails.price + @ruby.price, @cart.total_price
+  end
+
+  def test_add_duplicate_product
+    @cart.add_product @rails
+    @cart.add_product @rails
+    assert_equal 2*@rails.price, @cart.total_price
+    assert_equal 1, @cart.items.size
+    assert_equal 2, @cart.items[0].quantity
+  end 
+end

data/sample/depot/test/unit/line_item_test.rb

@@ -0,0 +1,15 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+require File.dirname(__FILE__) + '/../test_helper'
+
+class LineItemTest < Test::Unit::TestCase
+  fixtures :line_items
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/sample/depot/test/unit/order_test.rb

@@ -0,0 +1,15 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+require File.dirname(__FILE__) + '/../test_helper'
+
+class OrderTest < Test::Unit::TestCase
+  fixtures :orders
+
+  # Replace this with your real tests.
+  def test_truth
+    assert true
+  end
+end

data/sample/depot/test/unit/product_test.rb

@@ -0,0 +1,98 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+
+require File.dirname(__FILE__) + '/../test_helper'
+
+class ProductTest < Test::Unit::TestCase
+  
+  
+  fixtures :products
+  
+  
+  def test_truth
+    assert true
+  end
+
+
+  
+  def test_invalid_with_empty_attributes
+    product = Product.new
+    assert !product.valid?
+    assert product.errors.invalid?(:title)
+    assert product.errors.invalid?(:description)
+    assert product.errors.invalid?(:price)
+    assert product.errors.invalid?(:image_url)
+  end
+  
+
+  
+  def test_positive_price
+    product = Product.new(:title       => "My Book Title",
+                          :description => "yyy",
+                          :image_url   => "zzz.jpg")
+    product.price = -1
+    assert !product.valid?
+    assert_equal "should be at least 0.01", product.errors.on(:price)
+
+    product.price = 0
+    assert !product.valid?
+    assert_equal "should be at least 0.01", product.errors.on(:price)
+
+    product.price = 1
+    assert product.valid?
+  end
+  
+
+  
+  def test_image_url
+    ok = %w{ fred.gif fred.jpg fred.png FRED.JPG FRED.Jpg
+             http://a.b.c/x/y/z/fred.gif }
+    bad = %w{ fred.doc fred.gif/more fred.gif.more }
+    
+    ok.each do |name|
+      product = Product.new(:title       => "My Book Title",
+                            :description => "yyy",
+                            :price       => 1,
+                            :image_url   => name)
+      assert product.valid?, product.errors.full_messages
+    end
+
+    bad.each do |name|
+      product = Product.new(:title => "My Book Title", :description => "yyy", :price => 1,
+                            :image_url => name)
+      assert !product.valid?, "saving #{name}"
+    end
+  end
+  
+
+  
+  def test_unique_title
+    product = Product.new(:title       => products(:ruby_book).title,
+                          :description => "yyy", 
+                          :price       => 1, 
+                          :image_url   => "fred.gif")
+
+    assert !product.save
+    assert_equal "has already been taken", product.errors.on(:title)
+  end
+  
+
+  
+  def test_unique_title1
+    product = Product.new(:title       => products(:ruby_book).title,
+                          :description => "yyy", 
+                          :price       => 1, 
+                          :image_url   => "fred.gif")
+
+    assert !product.save
+    assert_equal ActiveRecord::Errors.default_error_messages[:taken],
+                 product.errors.on(:title)
+  end
+  
+  
+
+end
+

data/sample/depot/vendor/plugins/amrita2/init.rb

@@ -0,0 +1,6 @@
+# plugin init files for Ruby On Rails
+
+require 'amrita2/rails_bridge'
+
+ActionView::Base.register_template_handler "a2html", Amrita2View::Base
+

data/sample/hello/hello.rb

@@ -0,0 +1,22 @@
+require "amrita2/template"
+include Amrita2
+
+tmpl = Template.new <<-END
+<<html<
+  <<body<
+    <<h1 :title>>
+    <<p :body<
+      <<:template>> is a html template libraly for <<:lang>>
+END
+
+#tmpl.set_trace(STDOUT)
+puts tmpl.render_with(:title=>"hello world", :body=>{ :template=>"Amrita2", :lang=>"Ruby" })
+
+__END__
+
+<html>
+   <body>
+      <h1>hello world</h1>
+      <p>Amrita2 is a html template libraly for Ruby</p>
+   </body>
+</html>

data/sample/login_engine/app/controllers/application.rb

@@ -0,0 +1,16 @@
+# Filters added to this controller apply to all controllers in the application.
+# Likewise, all the methods added will be available for all controllers.
+
+class ApplicationController < ActionController::Base
+  include LoginEngine
+
+  #GetText.locale = "ja"
+  init_gettext "login_engine"
+
+  before_filter :login_required
+
+  # Pick a unique cookie name to distinguish our session data from others'
+  session :session_key => '_lymr_session_id'
+
+
+end

data/sample/login_engine/app/controllers/user_controller.rb

@@ -0,0 +1,265 @@
+class UserController < ApplicationController
+
+  # Override this function in your own application to define a custom home action.
+  def home
+    if user?
+      @fullname = "#{current_user.firstname} #{current_user.lastname}"
+    else
+      @fullname = "Not logged in..."
+    end # this is a bit of a hack since the home action is used to verify user
+        # keys, where noone is logged in. We should probably create a unique
+        # 'validate_key' action instead.
+  end
+
+  # The action used to log a user in. If the user was redirected to the login page
+  # by the login_required method, they should be sent back to the page they were
+  # trying to access. If not, they will be sent to "/user/home".
+  def login
+    return if generate_blank
+    @user = User.new(params[:user])
+    if session[:user] = User.authenticate(params[:user][:login], params[:user][:password])
+      session[:user].logged_in_at = Time.now
+      session[:user].save
+      flash[:notice] = _('Login successful')
+      redirect_to_stored_or_default :action => 'home'
+    else
+      @login = params[:user][:login]
+      flash.now[:warning] = _('Login unsuccessful')
+    end
+  end
+
+  # Register as a new user. Upon successful registration, the user will be sent to
+  # "/user/login" to enter their details.
+  def signup
+    return if generate_blank
+    params[:user].delete('form')
+    params[:user].delete('verified') # you CANNOT pass this as part of the request
+    @user = User.new(params[:user])
+    begin
+      #User.transaction(@user) do
+      User.transaction do
+        @user.new_password = true
+        unless LoginEngine.config(:use_email_notification) and LoginEngine.config(:confirm_account)
+          @user.verified = 1
+        end
+        if @user.save
+          key = @user.generate_security_token
+          url = url_for(:action => 'home', :user_id => @user.id, :key => key)
+          flash[:notice] = 'Signup successful!'
+          if LoginEngine.config(:use_email_notification) and LoginEngine.config(:confirm_account)
+            UserNotify.deliver_signup(@user, params[:user][:password], url)
+            flash[:notice] << _(' Please check your registered email account to verify your account registration and continue with the login.')
+          else
+            flash[:notice] << _(' Please log in.')
+          end
+          redirect_to :action => 'login'
+        end
+      end
+    rescue Exception => e
+      flash.now[:notice] = nil
+      flash.now[:warning] = _('Error creating account: confirmation email not sent')
+      logger.error "Unable to send confirmation E-Mail:"
+      logger.error e
+    end
+  end
+
+  def logout
+    session[:user] = nil
+    redirect_to :action => 'login'
+  end
+
+  def change_password
+    return if generate_filled_in
+    if do_change_password_for(@user)
+      # since sometimes we're changing the password from within another action/template...
+      #redirect_to :action => params[:back_to] if params[:back_to]
+      redirect_back_or_default :action => 'change_password'
+    end
+  end
+
+  protected
+    def do_change_password_for(user)
+      begin
+        #User.transaction(user) do
+        User.transaction do
+          user.change_password(params[:user][:password], params[:user][:password_confirmation])
+          if user.save
+            if LoginEngine.config(:use_email_notification)
+              UserNotify.deliver_change_password(user, params[:user][:password])
+              flash[:notice] = "Updated password emailed to #{@user.email}"
+            else
+              flash[:notice] = _("Password updated.")
+            end
+            return true
+          else
+            flash[:warning] = _('There was a problem saving the password. Please retry.')
+            return false
+          end
+        end
+      rescue
+        flash[:warning] = _('Password could not be changed at this time. Please retry.')
+      end
+    end
+
+  public
+
+
+  def forgot_password
+    # Always redirect if logged in
+    if user?
+      flash[:message] = _('You are currently logged in. You may change your password now.')
+      redirect_to :action => 'change_password'
+      return
+    end
+
+    # Email disabled... we are unable to provide the password
+    if !LoginEngine.config(:use_email_notification)
+      flash[:message] = "Please contact the system admin at #{LoginEngine.config(:admin_email)} to reset your password."
+      redirect_back_or_default :action => 'login'
+      return
+    end
+
+    # Render on :get and render
+    return if generate_blank
+
+    # Handle the :post
+    if params[:user][:email].empty?
+      flash.now[:warning] = _('Please enter a valid email address.')
+    elsif (user = User.find_by_email(params[:user][:email])).nil?
+      flash.now[:warning] = "We could not find a user with the email address #{params[:user][:email]}"
+    else
+      begin
+        #User.transaction(user) do
+        User.transaction do
+          key = user.generate_security_token
+          url = url_for(:action => 'change_password', :user_id => user.id, :key => key)
+          UserNotify.deliver_forgot_password(user, url)
+          flash[:notice] = "Instructions on resetting your password have been emailed to #{params[:user][:email]}"
+        end
+        unless user?
+          redirect_to :action => 'login'
+          return
+        end
+        redirect_back_or_default :action => 'home'
+      rescue
+        flash.now[:warning] = "Your password could not be emailed to #{params[:user][:email]}"
+      end
+    end
+  end
+
+  def edit
+    return if generate_filled_in
+    do_edit_user(@user)
+  end
+
+  protected
+    def do_edit_user(user)
+      begin
+        #User.transaction(user) do
+        User.transaction do
+          user.attributes = params[:user].delete_if { |k,v| not LoginEngine.config(:changeable_fields).include?(k) }
+          if user.save
+            flash[:notice] = _("User details updated")
+          else
+            flash[:warning] = _("Details could not be updated! Please retry.")
+          end
+        end
+      rescue
+        flash.now[:warning] = _("Error updating user details. Please try again later.")
+      end
+    end
+
+  public
+
+  def delete
+    get_user_to_act_on
+    if do_delete_user(@user)
+      logout
+    else
+      redirect_back_or_default :action => 'home'
+    end
+  end
+
+  protected
+    def do_delete_user(user)
+      begin
+        if LoginEngine.config(:delayed_delete)
+          #User.transaction(user) do
+          User.transaction do
+            key = user.set_delete_after
+            if LoginEngine.config(:use_email_notification)
+              url = url_for(:action => 'restore_deleted', :user_id => user.id, :key => key)
+              UserNotify.deliver_pending_delete(user, url)
+            end
+          end
+        else
+          destroy(@user)
+        end
+        return true
+      rescue
+        if LoginEngine.config(:use_email_notification)
+          flash.now[:warning] = _('The delete instructions were not sent. Please try again later.')
+        else
+          flash.now[:notice] = 'The account has been scheduled for deletion. It will be removed in #{LoginEngine.config(:delayed_delete_days)} days.'
+        end
+        return false
+      end
+    end
+
+  public
+
+  def restore_deleted
+    get_user_to_act_on
+    @user.deleted = 0
+    if not @user.save
+      flash.now[:warning] = "The account for #{@user['login']} was not restored. Please try the link again."
+      redirect_to :action => 'login'
+    else
+      redirect_to :action => 'home'
+    end
+  end
+
+  protected
+
+  def destroy(user)
+    UserNotify.deliver_delete(user) if LoginEngine.config(:use_email_notification)
+    flash[:notice] = "The account for #{user['login']} was successfully deleted."
+    user.destroy()
+  end
+
+  def protect?(action)
+    if ['login', 'signup', 'forgot_password'].include?(action)
+      return false
+    else
+      return true
+    end
+  end
+
+  # Generate a template user for certain actions on get
+  def generate_blank
+    case request.method
+    when :get
+      @user = User.new
+      render
+      return true
+    end
+    return false
+  end
+
+  # Generate a template user for certain actions on get
+  def generate_filled_in
+    get_user_to_act_on
+    case request.method
+    when :get
+      render
+      return true
+    end
+    return false
+  end
+
+  # returns the user object this method should act upon; only really
+  # exists for other engines operating on top of this one to redefine...
+  def get_user_to_act_on
+    @user = session[:user]
+  end
+end

data/sample/login_engine/app/helpers/application_helper.rb

@@ -0,0 +1,3 @@
+# Methods added to this helper will be available to all templates in the application.
+module ApplicationHelper
+end

data/sample/login_engine/app/helpers/form_tag.rb

@@ -0,0 +1,16 @@
+class FormTag < Amrita2::Macro::Base
+  TemplateText = <<-END
+    <%
+       action = $_[:action]
+       method = $_[:method]
+     %>
+    <%%= form_tag({:action=><%= action.inspect%>}, {:method=><%= method.inspect %>}) %%>
+      <span macro:src='contents' />
+    <%%= "</form>" %%>
+  END
+
+  Option = {
+    :tag => :form_tag,
+    :use_contents => :contents
+  }
+end

data/sample/login_engine/app/helpers/two_columns.rb

@@ -0,0 +1,24 @@
+
+class TwoColumns < Amrita2::Macro::Base
+  TemplateText = <<-END
+      <<table<
+        <<tr class="two_columns":rows<
+          <<td class="prompt"<
+              <<label:title>>
+          <<td class="value" :contents>>
+  END
+
+  def macro_data(element)
+    root = element.as_amrita_dictionary
+    rows = element.search("tr").collect do |c|
+      title, contents = *c.search("td")
+      {
+        :title => title.contents,
+        :contents => Amrita2::SanitizedString[contents.children.to_s],
+      }
+    end
+    {
+      :rows => rows,
+    }
+  end
+end

data/sample/login_engine/app/helpers/two_columns_form.rb

@@ -0,0 +1,47 @@
+
+class TwoColumnsForm < Amrita2::Macro::Base
+  TemplateText = <<-END
+  <<div class="form-padding"<
+    <%%
+        action = <%= $_[:form] && $_[:form][:action] ? $_[:form][:action].inspect : "url_for"  %>
+        method = <%= $_[:form] && $_[:form][:method] ? $_[:form][:method].inspect : "post".inspect  %>
+     %%>
+    <<form action="$1" method="$2"
+           target_filter="NVarForAttr[:action, :method]"<
+      <<table<
+        <<tr macro:src="rows"
+             macro:filter="Attr[:class=>:tr_class]"<
+          <<td macro:filter="Attr[:class=>:prompt_class]"<
+              <label macro:src="title" />
+          <td macro:filter="Attr[:class=>:value_class, :body=>:contents]" />
+      <<div class="button-bar"<
+        <span macro:src="button_bar">>
+  END
+
+  def macro_data(element)
+    root = element.as_amrita_dictionary
+    form_element = element.search("form").first
+    form = form_element.as_amrita_dictionary if form_element
+    rows = element.search("tr").collect do |c|
+      title, contents = *c.search("td")
+      {
+        :tr_class => root[:tr_class] || "two_columns",
+        :prompt_class => root[:prompt_class] || "prompt",
+        :title => title.children.to_s,
+        :value_class => root[:value_class]  || "value",
+        :contents => Amrita2::SanitizedString[contents.children.to_s],
+      }
+    end
+    {
+      :form => form,
+      :rows => rows,
+      :button_bar => Amrita2::SanitizedString[element.search("button_bar").first.children.to_s]
+    }
+  end
+
+  #def preprocess_element(mt, element)
+    ##mt.set_trace(STDOUT)
+    ##p macro_data(element)
+    #mt.render_with(macro_data(element))
+  #end
+end

data/sample/login_engine/app/helpers/user_helper.rb

@@ -0,0 +1,88 @@
+module UserHelper
+
+  # Abstraction to make views a little cleaner
+  def form_input(helper_method, prompt, field_name=nil, options = {}, form_name = nil)
+    form_name = "user" if form_name.nil?
+    case helper_method.to_s
+    when 'hidden_field'
+      self.hidden_field(form_name, field_name, options)
+    when /^.*button$/
+      #prompt = l(:"#{@controller.controller_name}_#{field_name}_button")
+      <<-EOL
+      <tr><td class="button" colspan="2">
+        #{self.send(helper_method, form_name, prompt, options)}
+      </td></tr>
+      EOL
+    else
+      field = (
+        case helper_method
+        when :select
+          self.send(helper_method, form_name, field_name, options.delete('values'), options)
+        when :password_field
+          options[:value] = ""
+          self.send(helper_method, form_name, field_name, options)
+        else
+          self.send(helper_method, form_name, field_name, options)
+        end)
+#      lname = "#{form_name}_#{field_name}_form"
+#      prompt = l(:"#{lname}")
+      if LoginEngine.config(:two_column_input)
+<<-EOL
+        <tr class="two_columns">
+          <td class="prompt"><label>#{prompt}:</label></td>
+          <td class="value">#{field}</td>
+        </tr>
+        EOL
+      else
+<<-EOL
+        <tr><td class="prompt"><label>#{prompt}:</label></td></tr>
+        <tr><td class="value">#{field}</td></tr>
+        EOL
+      end
+    end
+  end
+
+#  def button_helper(name, options = {})
+#    label = l(:"#{@controller.controller_name}_#{name}_button")
+#    "#{self.send(:submit_tag, label, options)}"
+#  end
+
+#  def link_helper(name, options = {})
+#    raise ArgumentError if name.nil?
+#    label = l(:"#{@controller.controller_name}_#{name}_link")
+#    "#{self.send(:link_to, label, options)}"
+#  end
+
+  def title_helper
+    "#{@controller.controller_class_name} #{@controller.action_name}"
+  end
+
+#  def message_helper(name)
+#    l(:"#{@controller.controller_name}_#{name}_message")
+#  end
+
+  def start_form_tag_helper(options = {})
+    url = url_for(:action => "#{@controller.action_name}")
+    "#{self.send(:start_form_tag, url, options)}"
+  end
+
+  def attributes(hash)
+    hash.keys.inject("") { |attrs, key| attrs + %{#{key}="#{h(hash[key])}" } }
+  end
+
+  def read_only_field(form_name, field_name, html_options)
+    "<span #{attributes(html_options)}>#{instance_variable_get('@' + form_name)[field_name]}</span>"
+  end
+
+  def submit_button(form_name, prompt, html_options)
+    %{<input name="submit" type="submit" value="#{prompt}" />}
+  end
+
+  def changeable(user, field)
+    if user.new_record? or LoginEngine.config(:changeable_fields).include?(field)
+      :text_field
+    else
+      :read_only_field
+    end
+  end
+end

data/sample/login_engine/app/models/user.rb

@@ -0,0 +1,7 @@
+class User < ActiveRecord::Base
+  include LoginEngine::AuthenticatedUser
+
+  # all logic has been moved into login_engine/lib/login_engine/authenticated_user.rb
+
+end
+