qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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

data/vendor/qwik/lib/qwik/common-surface.rb

@@ -0,0 +1,261 @@
+# 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/act-basic'
+require 'qwik/wabisabi-index'
+
+module Qwik
+  class Action
+    # ==================== c_surface
+    # http://co/qwik/.test_surface
+    # Only for page design check.
+    def act_test_surface
+      w = c_page_res('TextFormat')
+      c_surface('act_test_surface') { w }
+    end
+
+    def c_surface(title, patch=true, &b)
+      msg = yield
+      c_set_status
+      c_set_contenttype
+      c_set_no_cache
+      body = surface_generate(title, msg, patch)
+      c_set_body(body)
+    end
+
+    def surface_generate(title, msg, patch=true)
+      template = @memory.template.get('surface')
+      adminmenu = c_page_res('_AdminMenu')
+      if patch
+	li = adminmenu.get_path('//ul/li[2]')
+	li.clear if li
+      end
+      data = {
+	:title		=> title,
+	:theme_path	=> site_theme_path,
+	:adminmenu	=> adminmenu,
+	:toc		=> nil,		# Do not use toc.
+	:h1		=> title,	# same as title.
+	:body		=> msg,
+	:sidemenu	=> surface_get_sidemenu,
+	:pageattribute	=> c_page_res('_PageAttribute'),
+      }
+      surface_template(template, data)
+      return template
+    end
+
+    # ==================== view page
+    # Called from act-html.rb:28, 57
+    def surface_view(pagename)
+      c_set_status
+      c_set_contenttype
+      c_set_no_cache
+      body = surface_view_generate(pagename)
+      c_set_body(body)
+    end
+
+    def surface_view_generate(pagename)
+      page = @site[pagename]
+      template = @memory.template.get('surface')
+      data = {
+	:title		=> @site.get_page_title(pagename),
+	:theme_path	=> site_theme_path,
+	:adminmenu	=> c_page_res('_AdminMenu'),
+	:toc		=> toc_inside,
+	:h1		=> page.get_title,
+	:body		=> surface_get_body(page),
+	:sidemenu	=> surface_get_sidemenu,
+	:pageattribute	=> c_page_res('_PageAttribute'),
+      }
+      surface_template(template, data)
+      return template
+    end
+
+    # act-include:22, act-tag:49
+    def surface_get_body(page)
+      tree = page.get_body_tree
+      w = Resolver.resolve(@site, self, tree)
+      w = TDiaryResolver.resolve(@config, @site, self, w)
+      return w
+    end
+
+    private
+
+    def surface_get_sidemenu
+      page = @site.get_superpage('SideMenu')
+      tree = page.get_tree
+      w = Resolver.resolve(@site, self, tree)
+      return w
+    end
+
+    # ==================== build using template
+    # Destructive for template.
+    def old_surface_template(template, data)
+      w = template.get_tag('head')	# TAKETIME: Here!
+      w.insert(1, [:title, data[:title]])
+      media = 'screen,tv,print'
+      w.insert(w.length, [:link, {:href=>'.theme/css/base.css', :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>data[:theme_path], :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      js = Action.generate_js
+      w.insert(w.length, *js)
+
+      w = template.get_by_class('adminmenu')	# TAKETIME: Here!
+      w << data[:adminmenu]
+
+      w = template.get_by_class('toc')	# TAKETIME: Here!
+      if data[:toc].nil?
+	w.clear
+      else
+	w << data[:toc]
+      end
+
+      w = template.get_tag('h1')	# TAKETIME: Here!
+      w << data[:h1]
+
+      w = template.get_by_class('body_enter')	# TAKETIME: Here!
+      w.clear
+
+      w = template.get_by_class('body_main')	# TAKETIME: Here!
+      w << data[:body]
+
+      w = template.get_by_class('sidebar')	# TAKETIME: Here!
+      w << data[:sidemenu]
+
+      w = template.get_by_class('body_leave')	# TAKETIME: Here!
+      w << [:div, {:class=>'day'},
+	[:div, {:class=>'comment'},
+	  [:div, {:class=>'caption'},
+	    [:div, {:class=>'page_attribute'},
+	      data[:pageattribute]]]]]
+
+      return nil	# Do not return any value.  Just destruct the template.
+    end
+
+    def new_surface_template(template, data)
+      template.make_index
+
+      w = template.index_tag(:head)
+
+      w.insert(1, [:title, data[:title]])
+
+      media = 'screen,tv,print'
+      w.insert(w.length, [:link, {:href=>'.theme/css/base.css', :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>data[:theme_path], :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>'rss.xml', :title=>'RSS 0.91',
+		   :rel=>'alternate', :type=>"application/rss+xml"}])
+
+      js = Action.generate_js
+      w.insert(w.length, *js)
+
+      w = template.index_class('adminmenu')
+      w << data[:adminmenu]
+
+      w = template.index_class('toc')
+      if data[:toc].nil?
+	w.clear
+      else
+	w << data[:toc]
+      end
+
+      w = template.index_tag(:h1)
+      w << data[:h1]
+
+      w = template.index_class('body_enter')
+      w.clear
+
+      w = template.index_class('body_main')
+      w << data[:body]
+
+      w = template.index_class('sidebar')
+      w << data[:sidemenu]
+
+      w = template.index_class('body_leave')
+      w << [:div, {:class=>'day'},
+	[:div, {:class=>'comment'},
+	  [:div, {:class=>'caption'},
+	    [:div, {:class=>'page_attribute'},
+	      data[:pageattribute]]]]]
+
+      return nil	# Do not return any value.  Just destruct the template.
+    end
+
+   #alias surface_template old_surface_template
+    alias surface_template new_surface_template
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestActSurface < Test::Unit::TestCase
+    include TestSession
+    include TestModulePublic
+
+    def test_test_surface
+      t_add_user
+      res = session('/test/.test_surface')
+      ok_title 'act_test_surface'
+    end
+
+    def test_all
+      res = session
+
+#      @action.generate_surface_page('title', 'msg')
+#      ok_xp([:title, 'title'], 'title', res)
+
+      @action.c_surface('c_surface title') { 'msg' }
+      ok_title 'c_surface title'
+    end
+
+    def test_surface_generate
+      res = session
+
+      # test_original_template
+      template = @memory.template.get('surface')
+      eq [:h1], template.get_tag('h1')
+      eq [:div, {:class=>'body_main'}],
+	template.get_by_class('body_main')
+
+      # test_surface_generate
+      res = @action.surface_generate('title', 'msg')
+      eq [:title, 'title'], res.get_tag('title')
+#      eq [:script, {:src=>'.theme/js/base.js',
+#	  :type=>'text/javascript'}, ''], res.get_tag('script')
+      eq [:h1, 'title'], res.get_tag('h1')
+      eq [:div, {:class=>'body_main'}, 'msg'],
+	res.get_path("//div[@class='body_main']")
+    end
+
+    def test_surface_build_template
+      res = session
+      t_make_public(Qwik::Action, :surface_template)
+      template = @memory.template.get('surface')
+      data = {
+	:title		=> 'title',
+	:theme_path	=> 'theme_path',
+	:adminmenu	=> 'adminmenu',
+	:toc		=> 'toc',
+	:h1		=> 'h1',
+	:body		=> 'body',
+	:sidemenu	=> 'sidemenu',
+	:pageattribute	=> 'pageattribute',
+      }
+      @action.surface_template(template, data)
+      res.body = template
+      ok_title 'title'
+      ok_xp([:div, {:class=>'sidebar'}, 'sidemenu'],
+	    "//div[@class='sidebar']")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/common-url.rb

@@ -0,0 +1,90 @@
+# 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.
+
+require 'uri'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    # 1.html -> /test/1.html
+    def c_relative_to_root(url)
+      return url if /\A\// =~ url	# It's already from root path.
+      uri = URI(@config.public_url)
+      return "#{uri.path}#{@site.url_path}#{url}"
+    end
+
+    # 1.html -> http://example.com/test/1.html
+    def c_relative_to_absolute(url)
+      if /\Ahttp:\/\// =~ url || /\Ahttps:\/\// =~ url
+	return url		# It's already absolute URL.
+      end
+
+      # make absolute url
+      fromrootpath = c_relative_to_root(url)
+      return "#{@site.host_url.chomp('/')}#{fromrootpath}"
+    end
+
+    def is_valid_url?(str)
+      return %r!\Ahttp://[\-\_\.\/\?A-Za-z]+\z! =~ str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActUrl < Test::Unit::TestCase
+    include TestSession
+
+    def test_normal_site
+      res = session
+      eq '/test/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.com/test/1.html',
+	@action.c_relative_to_absolute('1.html')
+    end
+
+    def test_top_site
+      res = session
+      @action.instance_eval {
+	@site = @memory.farm.get_top_site
+      }
+      eq '/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.com/1.html', @action.c_relative_to_absolute('1.html')
+    end
+
+    def test_external_site
+      res = session
+      page = @site['_SiteConfig']
+      page.store(':siteurl:http://example.org/')
+      eq '/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.org/1.html', @action.c_relative_to_absolute('1.html')
+    end
+
+    def test_with_path
+      t_with_path {
+	res = session
+	eq '/qwik/test/1.html', @action.c_relative_to_root('1.html')
+	eq 'http://www.example.org/qwik/test/1.html',
+	  @action.c_relative_to_absolute('1.html')
+      }
+    end
+
+    def test_anomaly
+      res = session
+      eq '/.theme', @action.c_relative_to_root('/.theme')
+      eq 'http://example.gov/',
+	@action.c_relative_to_absolute('http://example.gov/')
+    end
+
+    def test_is_valid_url?
+      res = session
+      eq true, !!@action.is_valid_url?('http://e.com/')
+      eq true, !!@action.is_valid_url?("http://e.com/?")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/compat/Makefile

@@ -0,0 +1,12 @@
+# 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.
+
+all:
+	echo 'You can download dependencies by "make get"'
+
+get:	get_typekey
+
+get_typekey:
+	wget http://jouno.s11.xrea.com/x/script/typekey/TypeKey.rb
+

data/vendor/qwik/lib/qwik/compat/add_load_path.rb

@@ -0,0 +1 @@
+$LOAD_PATH << File.expand_path(File::dirname(__FILE__))