qwikdoc 0.0.1

data/vendor/qwik/common-error.rb

@@ -0,0 +1,48 @@
+# 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/common-notice'
+
+module Qwik
+  class Action
+    def c_nerror(title=_('Error'), url=nil, status=500, &b)
+     #status = 200 if @config.test
+      msg = title
+      msg = yield if block_given?
+      generate_notice_page(status, title, url, msg)
+    end
+
+    def c_notfound(title=_('Not found.'), &b)
+      return c_nerror(title, nil, 404, &b)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommonError < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      res = session
+
+      @action.c_nerror('c_notice_error title') { 'msg' }
+      ok_eq(500, res.status)
+      ok_title('c_notice_error title')
+
+      @action.c_nerror
+      ok_eq(500, res.status)
+      ok_title('Error')
+
+      @action.c_notfound('Not found') { 'msg' }
+      ok_eq(404, res.status)
+      ok_title('Not found')
+    end
+  end
+end

data/vendor/qwik/common-gettext.rb

@@ -0,0 +1,50 @@
+# 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/catalog-factory'
+require 'qwik/gettext'
+
+module Qwik
+  class Action
+    include GetText
+
+    def init_gettext
+      init_catalog(@memory.catalog, @req.accept_language)
+    end
+
+    def init_catalog(catalog_factory, langs)
+      langs.each {|lang|
+	catalog = catalog_factory.get_catalog(lang)
+        if catalog
+          set_catalog(catalog)	# GetText::set_catalog
+          return
+        end
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommonGettext < Test::Unit::TestCase
+    include TestSession
+
+    def test_init_catalog
+      res = session
+
+      accept_languages = ['en']
+      @action.init_catalog(@memory.catalog, accept_languages)
+      ok_eq('hello', @action._('hello'))
+
+      accept_languages = ['ja']
+      @action.init_catalog(@memory.catalog, accept_languages)
+      ok_eq('����ɂ���', @action._('hello'))
+    end
+  end
+end

data/vendor/qwik/common-javascript.rb

@@ -0,0 +1,45 @@
+# 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
+   #JAVASCRIPT_FILES = %w(prototype scriptaculous base niftypp debugwindow)
+    JAVASCRIPT_FILES = %w(base niftypp se_hilite_jp)
+
+    def self.generate_js
+      return JAVASCRIPT_FILES.map {|f|
+	generate_script("js/#{f}")
+      }
+    end
+
+    def self.generate_script(f)
+      return [:script, {:type=>'text/javascript', :src=>".theme/#{f}.js"}, '']
+    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_generate_js
+      c = Qwik::Action
+      eq [:script, {:src=>'.theme/t.js', :type=>'text/javascript'}, ''],
+	 c.generate_script('t')
+#      eq [[:script, {:src=>'.theme/js/base.js', :type=>'text/javascript'}, ''],
+#	   [:script, {:src=>'.theme/js/niftypp.js', :type=>'text/javascript'},
+#	     ''],
+#	   [:script, {:src=>'.theme/js/debugwindow.js',
+#	       :type=>'text/javascript'}, '']],
+#	 c.generate_js
+    end
+  end
+end

data/vendor/qwik/common-notice.rb

@@ -0,0 +1,132 @@
+# 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/common-error'
+
+module Qwik
+  class Action
+    # Method for testing page design.
+    def act_test_notice
+      w = login_show_login_page('http://example.com/HelloQwik/')
+      c_notice('act_test_notice') { w }
+    end
+
+    def c_notice(title, url=nil, status=200, sec=0, &b)
+      msg = yield
+      generate_notice_page(status, title, url, msg, sec)
+    end
+
+    def c_nredirect(title, url, &b)
+      msg = ''
+      msg = yield if block_given?
+      c_set_location(c_relative_to_absolute(url))
+      generate_notice_page(302, title, url, msg)
+    end
+
+    def generate_notice_page(status, title, url=nil, msg='', sec=0)
+      #url = nil	# for debug
+      @res.status = status
+      template = @memory.template.get('notice')
+      @res.body = Action.notice_generate(template, title, msg, url, false, sec)
+      c_set_html
+      c_set_no_cache
+      return nil
+    end
+
+    def self.notice_generate(template, title, msg, url=nil,
+			     redirectflag=false, sec=0)
+      w = template.get_tag('head')
+
+      # insert title
+      w.insert(1, [:title, title])
+
+      # insert JavaScript
+      js = generate_js
+      w.insert(w.length, *js)
+
+      # insert meta
+      w << [:meta, {:name=>'ROBOTS', :content=>'NOINDEX,NOFOLLOW'}]
+      if url && ! redirectflag		# redirect
+	w << [:meta, {'http-equiv'=>'Refresh',
+	    :content=>"#{sec}; url=#{url}"}]
+      end
+
+      # insert h1
+      w = template.get_tag('h1')
+      w << title
+
+      # insert section
+      w = template.get_by_class('section')
+      w << msg
+
+      template
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommonNotice < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      res = session
+
+      @action.generate_notice_page(200, 'title') { 'msg' }
+      eq 200, res.status
+      ok_title 'title'
+
+      @action.generate_notice_page(200, 'title', 'u') { 'msg' }
+      eq 200, res.status
+      ok_title 'title'
+      ok_xp([:meta, {:content=>'0; url=u', 'http-equiv'=>'Refresh'}],
+	    'meta[2]', res)
+
+      @action.c_notice('c_notice title') { 'msg' }
+      eq 200, res.status
+      ok_title 'c_notice title'
+
+      t_add_user
+
+      res = session('/test/.test_notice')
+      ok_title 'act_test_notice'
+    end
+
+    def test_c_nredirect
+      res = session
+      @action.c_nredirect('t', 't.html')
+      eq 'http://example.com/test/t.html', res['Location']
+      @action.c_nredirect('t', 'http://e.com/')
+      eq 'http://e.com/', res['Location']
+    end
+
+    def test_notice_generate
+      template = @memory.template.get('notice')
+      eq [:h1], template.get_tag('h1')
+      eq [:div, {:class=>'section'}],
+	template.get_by_class('section')
+
+      res = Qwik::Action.notice_generate(template, 'title', 'msg')
+      eq [:title, 'title'], res.get_tag('title')
+      #      eq [:script, {:src=>'.theme/js/base.js',
+      #		:type=>'text/javascript'}, ''], res.get_tag('script')
+      eq [:meta, {:content=>'NOINDEX,NOFOLLOW', :name=>'ROBOTS'}],
+	res.get_tag('meta')
+      eq [:h1, 'title'], res.get_tag('h1')
+      eq [:div, {:class=>'section'}, 'msg'],
+	res.get_path('//div[@class="section"]')
+      eq nil, res.get_tag('meta[2]')	# not redirected
+
+      template = @memory.template.get('notice')
+      res = Qwik::Action.notice_generate(template, 'title', 'msg', 'url')
+      eq [:meta, {:content=>'0; url=url', 'http-equiv'=>'Refresh'}],
+	res.get_tag('meta[2]')	# redirected
+    end
+  end
+end

data/vendor/qwik/common-plain.rb

@@ -0,0 +1,105 @@
+# 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
+    # For page design check.
+    def act_test_plain
+      w = c_page_res('TextFormat')
+      c_plain('act_test_plain') { w }
+    end
+
+    def c_plain(title, status=200, &b)
+      msg = yield
+      generate_plain_page(status, title, msg)
+    end
+
+    def generate_plain_page(status, title, msg)
+      c_set_status(status)
+      c_set_html
+      c_set_no_cache
+      template = @memory.template.get('plain')
+      body = Action.plain_generate(template, title, msg)
+      c_set_body(body)
+      nil
+    end
+
+    def self.plain_generate(template, title, msg)
+      w = template.get_tag('head')
+
+      # insert title
+      w.insert(1, [:title, title])
+
+      # insert JavaScript
+      js = generate_js
+      w.insert(w.length, *js)
+
+      # insert meta
+      w << [:meta, {:name=>'ROBOTS', :content=>'NOINDEX,NOFOLLOW'}]
+
+      # insert h1
+      w = template.get_tag('h1')
+      w << title
+
+      # insert main
+      w = template.get_by_class('main')
+      w << msg
+
+      template
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPlain < Test::Unit::TestCase
+    include TestSession
+
+    def test_test_plain
+      t_add_user
+      res = session('/test/.test_plain')
+      ok_title 'act_test_plain'
+    end
+
+    def test_all
+      res = session
+
+      @action.generate_plain_page(200, 'title', 'msg')
+      ok_eq(200, res.status)
+      ok_title 'title'
+
+      @action.c_plain('c_plain title'){'msg'}
+      ok_eq(200, res.status)
+      ok_title 'c_plain title'
+    end
+
+    def test_plain_generate
+      res = session
+
+      # test_original_template
+      template = @memory.template.get('plain')
+      ok_eq([:h1], template.get_tag('h1'))
+      ok_eq([:div, {:class=>'main'}],
+	    template.get_by_class('main'))
+
+      # test_plain_generate
+      res = Qwik::Action.plain_generate(template, 'title', 'msg')
+      ok_eq([:title, 'title'], res.get_tag('title'))
+#      ok_eq([:script, {:src=>'.theme/js/base.js',
+#		:type=>'text/javascript'}, ''], res.get_tag('script'))
+      ok_eq([:meta, {:content=>'NOINDEX,NOFOLLOW', :name=>'ROBOTS'}],
+	    res.get_tag('meta'))
+      ok_eq([:h1, 'title'], res.get_tag('h1'))
+      ok_eq([:div, {:class=>'main'}, 'msg'],
+	    res.get_path("//div[@class='main']"))
+      ok_eq(nil, res.get_tag('meta[2]')) # not redirected
+    end
+  end
+end

data/vendor/qwik/common-plugin.rb

@@ -0,0 +1,111 @@
+# 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/util-csv-tokenizer'
+
+module Qwik
+  class Action
+    def c_call_plugin(method, param, &b)
+      args = nil
+      args = Action.plugin_parse_args(param) if param && !param.empty?
+      args ||= []
+      args.each {|s|
+	s.set_page_charset
+      }
+      m = "plg_#{method}"
+      begin
+	return self.send(m, *args, &b) if self.respond_to?(m)
+	return [:span, {:class=>'plg_error'}, 'nosuch plugin | ',
+	  [:strong, method]]
+      rescue
+        #raise if @config.test || @config.debug
+	raise if @config.test
+
+	h = @req.fromhost
+	if Action.from_local?(h)
+	  return PrettyBacktrace.to_html($!)	# common-backtrace
+	else
+	  return [:span, {:class=>'plg_error'}, 'plugin error | ',
+	    [:strong, method]]
+	end
+      end
+    end
+
+    def self.plugin_parse_args(param)
+      args = CSVTokenizer.csv_split(param)
+      args.collect! {|a|
+	case a
+	when /\A'(.+)'$/, /^"(.+)"\z/
+	  $1
+	else
+	  a
+	end
+      }
+      args
+    end
+
+    def self.from_local?(h)
+      if h == 'localhost' ||
+	  h == '127.0.0.1' ||
+	  /\A\w+\z/ =~ h ||
+	  /\A192\.168\..+\z/ =~ h ||
+	  /\A150\.29\.151/ =~ h ||
+	  /\A61\.193\.236/ =~ h
+	return true
+      end
+      return false
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPlugin < Test::Unit::TestCase
+    include TestSession
+
+    def ok(e, s)
+      eq e, Qwik::Action.plugin_parse_args(s)
+    end
+
+    def test_parse_args
+      ok ['a'], "'a'"
+      ok ['a'], "\"a\""
+      ok ['<'], '<'
+      ok ['<'], "'<'"
+      ok ['a b'], 'a b'
+    end
+
+    def ok_plugin(e, ar)
+      eq e, @action.c_call_plugin(*ar)
+    end
+
+    def test_all
+      res = session
+
+      # test_from_local?
+      c = Qwik::Action
+      eq true, c.from_local?('localhost')
+      eq true, c.from_local?('win')
+      eq true, c.from_local?('127.0.0.1')
+      eq true, c.from_local?('192.168.0.1')
+      eq true, c.from_local?('192.168.2.1')
+      eq false, c.from_local?('www.example.com')
+
+      # test_call_plugin
+      ok_plugin 'test', ['qwik_test', '']
+      ok_plugin [:span, {:class=>'plg_error'}, 'nosuch plugin | ',
+	[:strong, 'nosuch']], ['nosuch', '']
+
+      t_without_testmode {
+	res = @action.c_call_plugin('_qwik_test_for_raise_exception', '')
+	eq :h3, res[0][0]
+      }
+    end
+  end
+end