egalite 0.0.1

data/stringify_hash.rb

@@ -0,0 +1,63 @@
+# used with http parameters
+# simpler version of HashWithIndifferentAccess of Ruby on Rails
+
+module Egalite
+class StringifyHash < Hash
+  def self.create(values)
+    hash = self.new
+    hash.update(values)
+    hash
+  end
+  def [](k)
+    super(stringify(k))
+  end
+  def []=(k,v)
+    super(stringify(k),v)
+  end
+  def update(hash)
+    newhash = {}
+    hash.each { |k,v|
+      newhash[stringify(k)] = v
+    }
+    super(newhash)
+  end
+  alias_method :merge!, :update
+
+  def key?(key)
+    super(stringify(key))
+  end
+
+  alias_method :include?, :key?
+  alias_method :has_key?, :key?
+  alias_method :member?, :key?
+
+  def fetch(key, *extras)
+    super(stringify(key), *extras)
+  end
+
+  def values_at(*indices)
+    indices.collect {|key| self[key]}
+  end
+
+  def dup
+    StringifyHash.create(self)
+  end
+
+  def merge(hash)
+    dup.update(hash)
+  end
+
+  def delete(key)
+    super(stringify(key))
+  end
+
+  # Convert to a Hash with String keys.
+  def to_hash
+    Hash.new(default).merge(self)
+  end
+private
+  def stringify(key)
+    key.kind_of?(Symbol) ? key.to_s : key
+  end
+end
+end

data/support.rb

@@ -0,0 +1,35 @@
+# Egalite support methods
+
+class Hash
+  def <<(b)
+    merge(b.to_hash)
+  end
+  def >>(b)
+    b.to_hash.merge(self)
+  end
+end
+
+class NilClass #:nodoc:
+  def size
+    0
+  end
+end
+
+# <<from ActiveSupport library of Ruby on Rails>>
+# (MIT License)
+
+# Tries to send the method only if object responds to it. Return +nil+ otherwise.
+# 
+# ==== Example :
+# 
+# # Without try
+# @person ? @person.name : nil
+# 
+# With try
+# @person.try(:name)
+class Object
+  def try(method)
+    send(method) if respond_to?(method, true)
+  end
+end
+

data/template.rb

@@ -0,0 +1,287 @@
+require 'jcode'
+
+module Egalite
+
+class NonEscapeString < String
+  def +(b)
+    NonEscapeString.new(super(HTMLTagBuilder.escape_html(b)))
+  end
+end
+
+class HTMLTemplate
+  RE_NEST = /<(group|if|unless)\s+name=['"](.+?)['"]>/i
+  RE_ENDNEST = /<\/(group|if|unless)>/i
+  RE_PLACE = /&=([.-_0-9a-zA-Z]+?);/
+  RE_INPUT = /<input\s+(.+?)>/im
+  RE_SELECT = /<select\s+name\s*=\s*['"](.+?)['"](.*?)>\s*<\/select>/im
+  
+  RE_A = /<a\s+(.+?)>/im
+  RE_FORM = /<form\s+(.+?)>/im
+
+  RE_INCLUDE = /<include\s+(.+?)\/>/i
+  RE_PARENT = /<parent\s+name=['"](.+?)['"]\s*\/>/i
+  RE_YIELD = /<yield\/>/i
+  
+  attr_accessor :controller, :default_escape
+  
+  def initialize
+    @default_escape = true
+    @controller = nil
+  end
+  
+  private
+  
+  def parse_tag_attributes(attrs)
+    a = attrs.split(/(\:?\w+(!:[^=])|\:?\w+=(?:'[^']+'|"[^"]+"|\S+))\s*/)
+    a = a.select { |s| s != "" }
+    hash = {}
+    a.each { |s|
+      b = s.split('=',2)
+      b[0].sub!(/\s$/,'')
+      b[1] = b[1][1..-2] if b[1] and (b[1][0,1] == '"' or b[1][0,1] == "'")
+      hash[b[0]] = b[1] || true
+    }
+    hash
+  end
+  def attr_colon(attrs)
+    colons = {}
+    attrs.each { |k,v| colons[k[1..-1]] = v if k =~ /^\:/ }
+    str = attrs.select { |k,v| k !~ /^\:/ }.map { |k,v| "#{k}='#{v}'" }.join(' ')
+    [colons, str]
+  end
+  
+  def dotchain(values, name)
+    dots = name.split('.').select {|s| not s.empty? }
+    
+    value = values
+    dots.each { |key|
+      value = if not value.is_a?(Hash) and value.respond_to?(key)
+        value.send(key)
+      elsif value.respond_to?(:[])
+        value[key] || value[key.to_sym]
+      end
+      break unless value
+    }
+    value
+  end
+
+  #
+  # tags
+  #
+  def placeholder(html, params)
+    html.gsub!(RE_PLACE) {
+      key = $1
+      if params[key].is_a?(NonEscapeString) or not @default_escape
+        params[key]
+      else
+        escapeHTML(params[key])
+      end
+    }
+  end
+  def input_tag(html, params)
+    html.gsub!(RE_INPUT) { |s|
+      attrs = parse_tag_attributes($1)
+      next s if attrs['checked'] or attrs['selected']
+      name = attrs['name']
+      next s unless name
+      case attrs['type']
+        when 'text'
+         next s if attrs['value']
+         s.sub!(/\/?>$/," value='"+escapeHTML(params[name])+"'/>") if params[name]
+        when 'hidden'
+         next s if attrs['value']
+         s.sub!(/\/?>$/," value='"+escapeHTML(params[name])+"'/>") if params[name]
+        when 'radio'
+          s.sub!(/\/?>$/," checked/>") if (params[name].to_s == attrs['value'])
+        when 'checkbox'
+          s.sub!(/\/?>$/," checked/>") if params[name]
+      end
+      s
+    }
+  end
+  def a_tag(html, params)
+    html.gsub!(RE_A) { |s|
+      attrs = parse_tag_attributes($1)
+      next s if attrs['href']
+      next s unless @controller
+      
+      (colons, noncolons) = attr_colon(attrs)
+      next s if colons.empty?
+      # when :hoge=$foo, expand hash parameter ['foo']
+      colons.each { |k,v|
+        next if v[0,1] != '$'
+        val = params[v[1..-1]]
+        colons[k] = val
+      }
+      colons = StringifyHash.create(colons)
+      link = @controller.url_for(colons)
+      "<a href='#{link}' #{noncolons}>"
+    }
+  end
+  def form_tag(html,params)
+    html.gsub!(RE_FORM) { |s|
+      attrs = parse_tag_attributes($1)
+      next s if attrs['action']
+      next s unless @controller
+      
+      (colons, noncolons) = attr_colon(attrs)
+      next s if colons.empty?
+      colons = StringifyHash.create(colons)
+      link = @controller.url_for(colons)
+      "<form action='#{link}' #{noncolons}>"
+    }
+  end
+  def select_tag(html,params)
+    html.gsub!(RE_SELECT) { sel = "<select name='#$1'#$2>"
+      if (params[$1] and params[$1].is_a?(Array))
+        params[$1].each_index() { |key|
+          next if (key == 0)
+          selected = " selected" if params[$1][0] == key
+          value = params[$1][key]
+          sel << "<option value='#{key}'#{selected}>"
+          sel << escapeHTML(value)
+          sel << "</option>" unless @keitai
+        }
+      end
+      sel << "</select>"
+    }
+  end
+  
+  #
+  # main routines
+  #
+  
+  def nonnestedtags(html, params)
+    placeholder(html,params)
+    input_tag(html,params)
+    a_tag(html,params)
+    form_tag(html,params)
+    select_tag(html,params)
+
+    # parse include tag
+    if block_given?
+      html.gsub!(RE_INCLUDE) {
+        attrs = parse_tag_attributes($1)
+        attrs.each { |k,v| attrs[k[1..-1]] = v if k =~ /^\:/ }
+        yield(attrs)
+      }
+      parent = nil
+      md = RE_PARENT.match(html)
+      parent = md[1] if md
+      html.gsub!(RE_PARENT,"")
+      if parent
+        txt = yield(parent)
+        txt.gsub!(RE_YIELD, html)
+        html = txt
+      end
+    end
+    html
+  end
+
+  def keyexpander(params, parent_params)
+    lambda { |k|
+      if k[0,1] == '.'
+        dotchain(params, k)
+      else
+        if params[k] == nil
+          if params[k.to_sym] == nil
+            parent_params[k]
+          else
+            params[k.to_sym]
+          end
+        else
+          params[k]
+        end
+      end
+    }
+  end
+
+  def string_after_outermost_closetag(html)
+    while md1 = RE_NEST.match(html)
+      break if (RE_ENDNEST.match(md1.pre_match))
+      html = string_after_outermost_closetag(md1.post_match)
+    end
+    RE_ENDNEST.match(html).post_match
+  end
+  
+  public
+  
+  def escapeHTML(s)
+    s.to_s.gsub(/&/n, '&amp;').gsub(/'/n,'&#039;').gsub(/\"/n, '&quot;').gsub(/>/n, '&gt;').gsub(/</n, '&lt;')
+  end
+  
+  def handleTemplate(html, orig_values, parent_params={}, &block)
+    params = keyexpander(orig_values, parent_params)
+    
+    # parse group tag and recurse inner loop
+    while md1 = RE_NEST.match(html) # beware: complicated....
+      # break if it is innermost loop.
+      break if (RE_ENDNEST.match(md1.pre_match))
+
+      # obtain a length of outermost group tag.
+      post = string_after_outermost_closetag(md1.post_match)
+      
+      tag = md1[1]
+      key = md1[2]
+      
+      # recursive-call for each element of array
+      innertext = ""
+      case tag.downcase
+        when 'group'
+          groupval = params[key]
+          groupval = [] if (groupval == nil)
+          groupval = [groupval] unless (groupval.is_a?(Array))
+          groupval.each { |v| 
+            innertext << handleTemplate(md1.post_match, v, params)
+          }
+        when 'if'
+          unless params[key].blank?
+            innertext << handleTemplate(md1.post_match, orig_values, parent_params)
+          end
+        when 'unless'
+          if params[key].blank?
+            innertext << handleTemplate(md1.post_match, orig_values, parent_params)
+          end
+        else
+          raise
+      end
+      # replace this group tag
+      html[md1.begin(0)..-(post.size+1)] = innertext
+    end
+    # cutoff after end tag, in inner-most loop.
+    md1 = RE_ENDNEST.match(html)
+    html = md1.pre_match if (md1)
+
+    nonnestedtags(html, params, &block)
+  end
+end
+
+class CSRFTemplate < HTMLTemplate
+  RE_FORM = /<form\s+([^>]+?)>(?!\s*<input type='hidden' name='csrf')/im
+
+  def form_tag(html,params)
+    html.gsub!(RE_FORM) { |s|
+      formtag = s
+      attrs = parse_tag_attributes($1)
+      csrf = nil
+      if attrs[":nocsrf"]
+        attrs.delete(":nocsrf")
+      elsif attrs["method"] =~ /\APOST\Z/i
+        csrf = params["csrf"]
+        csrf = "<input type='hidden' name='csrf' value='#{escapeHTML(csrf)}'/>"
+      end
+      
+      if (not attrs['action']) and @controller
+        (colons, noncolons) = attr_colon(attrs)
+        unless colons.empty?
+          colons = StringifyHash.create(colons)
+          link = @controller.url_for(colons)
+          formtag = "<form action='#{link}' #{noncolons}>"
+        end
+      end
+      "#{formtag}#{csrf}"
+    }
+  end
+end
+
+end # end module

data/test/french.html

@@ -0,0 +1,13 @@
+<html>
+<head><title>hoge</title></head>
+<body>
+  <table>
+    <tr><td>Product Name</td><td>Price</td></tr>
+  </table>
+  <group name='g'>
+    &=text;
+  </group>
+  <img src='/hoge/itembtn1.jpg'/>
+</body>
+</html>
+

data/test/french_msg.html

@@ -0,0 +1,3 @@
+
+@@@&=message;@@@
+

data/test/m17n.txt

@@ -0,0 +1,30 @@
+{{languages en, fr}}
+{{system_default en}}
+{{english_name en, English}}
+{{native_name en, English}}
+{{english_name fr, French}}
+{{native_name fr, Francais}}
+{{aliases fr, zh-hans,zh-cn,zh-hans-cn}}
+####
+html french.html
+
+Product Name	Nom de Produit
+Price	Prix
+####
+msg FrenchController#get
+
+Do you speak English?	Parlez vous Francais?
+####
+msg FrenchController#dlg
+
+I am an English man.	Je suis un Francais.
+
+####
+msg FrenchController#placeholder
+
+Hoge {0}.	{0} Piyo.
+
+####
+img french.html
+
+/hoge/itembtn1.jpg

data/test/mobile.html

@@ -0,0 +1,15 @@
+<html>
+<body>
+<a :action='get_userid'>hoge</a>
+
+<a href='http://www.yahoo.com'>yahoo</a>
+
+<a href='mailto:arai@example.com'>mail</a>
+
+<a href='tel:03-1234-5678'>tel</a>
+
+<form :action='bar' method='GET'>
+hoge
+</form>
+</body>
+</html>

data/test/setup.rb

@@ -0,0 +1,8 @@
+
+unless $setup
+  ShowException = true
+  RouteDebug = false
+  $raise_exception = true
+  $setup = true
+end
+

data/test/static/test.txt

@@ -0,0 +1 @@
+piyo

data/test/template.html

@@ -0,0 +1,58 @@
+<html>
+<body>
+value:&=val;<br/>
+
+<group name='array'>
+  group1-1: &=val;
+  <if name='true'>
+    <unless name='false'>
+      <group name='array2'>
+         group2: &=val;
+      </group>
+    </unless>
+  </if>
+  <group name='array3'>
+    group3-1: &=val;
+    <group name='array4'>
+      group4: &=val;
+    </group>
+    group3-2: &=val;
+  </group>
+  group1-2: &=val;
+</group>
+
+<if name='true'>
+iftrue
+</if>
+<if name='false'>
+iffalse
+</if>
+<unless name='true'>
+unlesstrue
+</unless>
+<unless name='false'>
+unlessfalse
+</unless>
+
+<if name='true'>
+<unless name='false'>
+<if name='true'>
+nestedif
+</if>
+</unless>
+</if>
+
+<a :controller='foo' :action='bar' :id='1' :hoge='piyo'>link</a>
+
+<form :controller='foo' :action='bar' :id='1' :hoge='piyo' method='post'>
+  <input type='text' name='text'/>
+</form>
+
+<include action='inner' />
+
+<include :action='innerparam' :id='9' :usagi='hiyoko' />
+
+<include :action='innerdelegate' />
+
+</body>
+</html>

data/test/template_inner.html

@@ -0,0 +1 @@
+&=innervalue;

data/test/template_innerparam.html

@@ -0,0 +1 @@
+&=innervalue;

data/test/test_auth.rb

@@ -0,0 +1,43 @@
+$LOAD_PATH << File.dirname(__FILE__)
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+require 'auth/basic'
+
+require 'rack/test'
+
+require 'setup'
+
+class AuthtestController < Egalite::Controller
+  def before_filter
+    Egalite::Auth::Basic.authorize(req, 'authtest') { |username,password|
+      username == 'testing' and password == '1234'
+    }
+  end
+  def test
+    'okay'
+  end
+end
+
+class T_Auth < Test::Unit::TestCase
+  include Rack::Test::Methods
+
+  def app
+    Egalite::Handler.new
+  end
+  def test_auth_failure
+    get "/authtest/test"
+    assert_equal last_response.status, 401
+    assert_equal last_response.headers['WWW-Authenticate'], 'Basic realm="authtest"'
+    basic_authorize('testing','9999')
+    get "/authtest/test"
+    assert_equal last_response.status, 401
+    assert_equal last_response.headers['WWW-Authenticate'], 'Basic realm="authtest"'
+    basic_authorize('testing','1234')
+    get "/authtest/test"
+    assert last_response.ok?
+    assert_equal last_response.body,'okay'
+  end
+end

data/test/test_blank.rb

@@ -0,0 +1,44 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'test/unit'
+require 'blank'
+
+class Empty
+  def empty?
+    true
+  end
+end
+
+class T_Blank < Test::Unit::TestCase
+  def test_nil
+    assert nil.blank?
+  end
+  def test_false
+    assert false.blank?
+  end
+  def test_true
+    assert(true.blank? == false)
+  end
+  def test_array
+    assert [].blank?
+    assert([1,2,3].blank? == false)
+  end
+  def test_hash
+    assert({}.blank?)
+    assert({:foo => 1}.blank? == false)
+  end
+  def test_empty
+    assert Empty.new.blank?
+  end
+  def test_string
+    assert "".blank?
+    assert " \t\n".blank?
+    assert("hoge".blank? == false)
+  end
+  def test_numeric
+    assert(123.blank? == false)
+  end
+  def test_object
+    assert(:foo.blank? == false)
+  end
+end

data/test/test_csrf.rb

@@ -0,0 +1,87 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+
+require 'rack/test'
+
+require 'setup'
+
+class CsrftemplateController < Egalite::CSRFController
+  def get
+    @template_file = 'template.html'
+    session.create(:user_id => 1)
+    {
+      :val => 'piyo',
+      :true => true,
+      :false => false,
+      :array => [
+        {:val => 1,
+         :true => true,
+         :array2 => [{:val => 2}],
+         :array3 => [{:val => 3, :array4 => [{:val => 41},{:val => 42}]
+         }]
+        },
+        {:val => 12}
+      ]
+    }
+  end
+  def inner
+    @template_file = 'template_inner.html'
+    { :innervalue => 'mogura' }
+  end
+  def innerparam(id)
+    @template_file = 'template_innerparam.html'
+    { :innervalue => "inner:#{id}_#{params[:usagi]}" }
+  end
+  def innerdelegate
+    delegate :action => :innerparam, :id => 5, :usagi => :kirin
+  end
+end
+
+class T_CSRFTemplate < Test::Unit::TestCase
+  include Rack::Test::Methods
+
+  def app
+    db = Sequel.sqlite
+    Egalite::SessionSequel.create_table(db)
+    db.alter_table :sessions do
+      add_column :user_id, :integer
+    end
+    Egalite::Handler.new(
+      :db => db,
+      :session_handler => Egalite::SessionSequel,
+      :template_path => File.dirname(__FILE__),
+      :template_engine => Egalite::CSRFTemplate
+    )
+  end
+  def test_template
+    get "/csrftemplate"
+    assert last_response.ok?
+    assert last_response.body =~ /value:piyo/
+    assert last_response.body =~ /nestedif/
+    assert last_response.body =~ /iftrue/
+    assert last_response.body !~ /iffalse/
+    assert last_response.body !~ /unlesstrue/
+    assert last_response.body =~ /unlessfalse/
+    assert last_response.body =~ %r|<a\s+href='/foo/bar/1\?hoge=piyo'\s*>|
+    assert last_response.body =~ %r|<form action='/foo/bar/1\?hoge=piyo'\s+method='post'\s*><input type='hidden' name='csrf' value='[0-9]+_[0-9a-f]+'/>|
+    assert last_response.body =~ /mogura/
+    assert last_response.body =~ /inner:9_hiyoko/
+    assert last_response.body =~ /inner:5_kirin/
+  end
+  def test_grouptag
+    get "/csrftemplate"
+    assert last_response.body =~ /group1-1: 1/
+    assert last_response.body =~ /group1-2: 1/
+    assert last_response.body =~ /group1-1: 12/
+    assert last_response.body =~ /group1-2: 12/
+    assert last_response.body =~ /group2: 2/
+    assert last_response.body =~ /group3-1: 3/
+    assert last_response.body =~ /group3-2: 3/
+    assert last_response.body =~ /group4: 41/
+    assert last_response.body =~ /group4: 42/
+  end
+end
+