qwikdoc 0.0.1

data/vendor/qwik/common-res.rb

@@ -0,0 +1,76 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/parser'
+require 'qwik/resolve'
+require 'qwik/page-generate'
+
+module Qwik
+  class Action
+    def p_error(msg)
+      return [:div, {:class=>'error'}, [:strong, _('Error'), ':'], ' ', msg]
+    end
+
+    # ==================== generate from string
+    def c_tokenize(str)
+      return TextTokenizer.tokenize(str)
+    end
+
+    def c_parse(str)
+      tokens = TextTokenizer.tokenize(str)
+      return TextParser.make_tree(tokens)
+    end
+
+    def c_res(str)
+      tokens = TextTokenizer.tokenize(str)
+      tree = TextParser.make_tree(tokens)
+      return Resolver.resolve(@site, self, tree)
+    end
+
+    # ==================== generate for page
+    def c_page_res(pagename)
+      page = @site[pagename]
+      return nil if page.nil?
+      tree = page.get_tree
+      return Resolver.resolve(@site, self, tree)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActGenerate < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      res = session
+      a = @action
+
+      # test_p_error
+      eq [:div, {:class=>'error'}, [:strong, 'Error', ':'], ' ', 'e'],
+	a.p_error('e')
+
+      # test_c_tokenize
+      eq [[:text, "a"], [:text, "b"]], a.c_tokenize("a\nb")
+
+      # test_c_parse
+      eq [[:p, 'a', "\n", 'b']], a.c_parse("a\nb")
+
+      # test_c_page_res
+      page = @site.create_new
+      page.store('* t')
+      eq [[:h2, 't']], a.c_page_res('1')
+
+      page = @site.create_new
+      page.store('[[1]]')
+      eq [[:p, [:a, {:href=>'1.html'}, 't']]], a.c_page_res('2')
+      # FIXME: The cache should be cleaned.
+    end
+  end
+end

data/vendor/qwik/common-resolve.rb

@@ -0,0 +1,92 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/wabisabi-template'
+
+module Qwik
+  class Action
+    def resolve_all_plugin(wabisabi)
+      return wabisabi.each_tag(:plugin) {|w|
+	resolve_plugin(w)
+      }
+    end
+
+    # Make index before call this method.  Use parent.
+    def nunuresolve_all_plugin(wabisabi)
+      #wabisabi.make_index
+      wabisabi.index_each_tag(:plugin) {|e|
+	resolve_plugin(e)
+      }
+      return wabisabi
+    end
+
+    def nu2_resolve_all_plugin(wabisabi)
+      wabisabi.make_index
+      return wabisabi.index_each_tag(:plugin) {|e|
+	new_ele = resolve_plugin(e)
+	e.replace(new_ele)
+      }
+    end
+
+    def resolve_plugin(w)
+      attr = w.attr
+      return [] if attr.nil?
+
+      method = attr[:method]
+      return [] if method.nil? || method.empty?
+
+      param  = attr[:param]
+      param ||= ''
+
+      if w[2]
+	data   = w[2].to_s
+	result = self.c_call_plugin(method, param) { data }
+      else
+	result = self.c_call_plugin(method, param)
+      end
+
+      result = [] if result.nil?
+     #result = [] if result.empty?
+      result = [result] if ! result.is_a?(Array)
+      return result
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActResolve < Test::Unit::TestCase
+    include TestSession
+
+    def ok(e, w)
+      eq e, @action.resolve_plugin(w)
+    end
+
+    def test_resolve_plugin
+      res = session
+      ok [], [:a]
+      ok [], [[:plugin]]	# error
+      ok [], [[:plugin, 't']]	# error
+      ok [:br], [:plugin, {:method=>'br', :param=>''}, '']
+    end
+
+    def ok_all(e, w)
+      w.make_index
+      eq e, @action.resolve_all_plugin(w)
+    end
+
+    def test_resolve_all_plugin
+      res = session
+      ok_all [[:br]], [[:plugin, {:method=>'br', :param=>''}, '']]
+      ok_all [[:span, {:class=>"plg_error"}, "nosuch plugin | ",
+	  [:strong, "nosuchplugin"]]],
+	     [[:plugin, {:method=>'nosuchplugin', :param=>''}, '']]
+    end
+  end
+end

data/vendor/qwik/common-send.rb

@@ -0,0 +1,171 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    def c_simple_send(path, type=nil)
+      return SimpleSender.send(@config, @req, @res, path.to_s, type)
+    end
+
+    def c_download(path)
+      return SimpleSender.download(@req, @res, path.to_s, @config.test)
+    end
+  end
+
+  class SimpleSender
+    # copied from webrick
+    def self.send(config, req, res, local_path, mtype=nil)
+      local_path = local_path.path
+      if ! local_path.exist?
+	raise WEBrick::HTTPStatus::NotFound
+      end
+
+      st = local_path.stat
+      res['etag'] = sprintf('%x-%x-%x', st.ino, st.size, st.mtime.to_i)
+
+      if not_modified?(req, res, st.mtime)
+	res.body = ''
+	raise WEBrick::HTTPStatus::NotModified
+      end
+
+      if mtype.nil?
+	mtype = res.get_mimetypes(local_path.ext)	# Get content type.
+      end
+      res['Content-Type']   = mtype
+      res['Content-Length'] = st.size
+      res['Last-Modified']  = st.mtime.httpdate
+
+      if config.ssl || config.test
+	# BUG: ssl can not send data as stream.
+	res.body = local_path.read
+      else
+	res.body = open(local_path.to_s, 'rb')
+      end
+    end
+
+    def self.download(req, res, local_path, test=false)
+      local_path = local_path.path
+      if ! local_path.exist?
+	raise WEBrick::HTTPStatus::NotFound
+      end
+
+      st = local_path.stat
+      res['etag'] = sprintf('%x-%x-%x', st.ino, st.size, st.mtime.to_i)
+
+      if not_modified?(req, res, st.mtime)
+	res.body = ''
+	raise WEBrick::HTTPStatus::NotModified
+      end
+
+      res.set_content_type(local_path.ext)
+      res['Content-Length'] = st.size
+      res['Last-Modified']  = st.mtime.httpdate
+
+      basename = local_path.basename
+      decoded = Filename.decode(basename.to_s)	# UTF-8
+      filename = decoded.to_page_charset
+      res['Content-Disposition'] = "attachment; filename=\"#{filename}\""
+
+      if test
+	res.body = local_path.read
+      else
+	res.body = open(local_path.to_s, 'rb')
+      end
+    end
+
+    def self.fsend(config, req, res, local_path, mtype, dfilename)
+      local_path = local_path.path
+      if ! local_path.exist?
+	raise WEBrick::HTTPStatus::NotFound
+      end
+      res['Content-Type'] = mtype
+      res['Content-Disposition'] = ' attachment; filename='+dfilename
+      res.body = local_path.read
+    end
+
+    private
+
+    def self.not_modified?(req, res, mtime)
+      if ir = req['if-range']
+	begin
+	  return true if mtime <= ::Time.httpdate(ir)
+	rescue
+	  if WEBrick::HTTPUtils::split_header_valie(ir).member?(res['etag'])
+	    return true
+	  end
+	end
+      end
+
+      if (ims = req['if-modified-since']) && mtime <= ::Time.parse(ims)
+	return true
+      end
+
+      if (inm = req['if-none-match']) &&
+	  WEBrick::HTTPUtils::split_header_value(inm).member?(res['etag'])
+	return true 
+      end
+
+      return false
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommon < Test::Unit::TestCase
+    include TestSession
+
+    def test_simple_send
+      t_add_user
+
+      page = @site.create_new
+      page.store('t')
+
+      # At the first, attach a text file for test.
+      res = session('POST /test/1.files') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't'))
+      }
+      ok_title('File attachment completed')
+
+      # Get the content using simple send.
+      res = session('/test/1.files/t.txt')
+      ok_eq('text/plain', res['Content-Type'])
+      ok_eq('t', res.body)
+
+      t_without_testmode {
+	res = session('/test/1.files/t.txt')
+	ok_eq('text/plain', res['Content-Type'])
+	assert_instance_of(File, res.body)
+	str = res.body.read
+	res.body.close		# important
+	ok_eq('t', str)
+      }
+    end
+
+    def test_download
+      t_add_user
+
+      page = @site.create_new
+      page.store('t')
+
+      # At the first, attach a test file.
+      res = session('POST /test/1.files') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't'))
+      }
+      ok_title('File attachment completed')
+
+      # Get the content by download.
+      res = session('/test/1.download/t.txt')
+      ok_eq('text/plain', res['Content-Type'])
+      ok_eq("attachment; filename=\"t.txt\"", res['Content-Disposition'])
+      ok_eq('t', res.body)
+    end
+  end
+end

data/vendor/qwik/common-session.rb

@@ -0,0 +1,139 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    # ============================== verify
+    # called from act-login.rb:41
+    def check_session
+      sid = @req.cookies['sid']		# get session id from cookie.
+      return if sid.nil? || sid.empty?	# return if you don't have session id.
+      sdb = @memory.sessiondb
+      user = sdb.get(sid)	# Get user from SessionDB.
+      return if user.nil?	# return if there is no session id.
+      @req.user = user	# OK! I have your sesssion id.  I know who you are.
+      @req.auth = 'session'
+    end
+
+    # ============================== login
+    # called from act-login, act-typkey and this file.
+    def session_store(user)
+      sdb = @memory.sessiondb
+      sid = sdb.generate_sid	# Make a new session id.
+      sdb.put(sid, user)	# Store the session id to session db.
+      return sid
+    end
+
+    # ============================== logout
+    def session_clear
+      sid = @req.cookies['sid']	# Get sid from cookie.
+      return if sid.nil? || sid.empty?	# return if you don't have session id.
+      sdb = @memory.sessiondb
+      user = sdb.get(sid)	# Get user from SessionDB.
+      return if user.nil?	# return if there is no session id.
+      sdb.clear(sid)
+    end
+  end
+
+  class SessionDB
+    DEFAULT_EXPIRE_TIME = 60 * 60 * 24 * 14	# 2 weeks
+
+    def initialize(config)
+      @config = config
+      @config.cache_dir.path.check_directory
+      @path = @config.cache_dir.path+'sid'
+      @path.check_directory
+      @expire_time = DEFAULT_EXPIRE_TIME
+    end
+
+    def generate_sid
+      str = Time.now.to_i.to_s+':'+rand.to_s
+      return str.md5hex
+    end
+
+    def path(sid)
+      @path + sid
+    end
+
+    def put(sid, user)
+      path(sid).put(user)
+    end
+
+    def clear(sid)
+      file = path(sid)
+      return nil if ! file.exist?
+      file.unlink # delete it
+    end
+
+    def get(sid)
+      return if sid.nil? || sid.empty?
+      file = path(sid)
+      return nil if ! file.exist?
+      mtime = file.mtime
+      diff = Time.now.to_i - mtime.to_i
+      if @expire_time < diff
+	clear(sid)
+	return nil
+      end
+      str = file.read
+      return str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommonSession < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      # not yet
+    end
+  end
+
+  class TestSessionDB < Test::Unit::TestCase
+    def test_all
+      if defined?($test_memory)
+	@memory = $test_memory
+      else
+	@memory = Qwik::ServerMemory.new(@config)
+      end
+
+      sdb = @memory.sessiondb
+
+      # test generate session id
+      sid = sdb.generate_sid
+      ok_eq(32, sid.length)
+      assert_match(/\A[0-9a-f]+\z/, sid)
+
+      # test put
+      sdb.put(sid, 'user@e.com')
+      file = sdb.path(sid)
+      ok_eq(true, file.exist?)
+
+      # test get empty
+      ok_eq(nil, sdb.get(nil))
+      ok_eq(nil, sdb.get(''))
+
+      # test get
+      user = sdb.get(sid)
+      ok_eq('user@e.com', user)
+
+      mtime = file.mtime
+      oldtime = Time.at(mtime.to_i - 60 * 60 * 24 * 100) # 100 days ago.
+      file.utime(oldtime, oldtime)
+
+      # test session expired
+      user = sdb.get(sid)
+      ok_eq(nil, user)
+      ok_eq(false, file.exist?)
+    end
+  end
+end