qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-httpauth.rb

@@ -0,0 +1,147 @@
+# 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 << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'base64'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    # ref: webrick/httpauth.rb
+    def check_basicauth
+      auth = @req['Authorization']
+      return if auth.nil?
+      return unless /^Basic\s+(.*)/o =~ auth
+
+      user, pass = Base64.decode64($1).split(':', 2)
+      return if user.nil?
+
+      raise InvalidUserError if user.nil? || user.empty?
+      raise InvalidUserError unless MailAddress.valid?(user)
+      gen = @memory.passgen
+      raise InvalidUserError if !gen.match?(user, pass)
+      @req.user = user
+      @req.auth = 'basicauth'
+      return
+    end
+
+    # ref: webrick/httpauth.rb
+    def pre_act_basicauth
+      if ! @req.user	# Try to Login by using Basic Auth.
+	realm = 'qwik'
+	@res['WWW-Authenticate'] = "Basic realm=\"#{realm}\""
+	# status code must be 401
+	return c_notice(_('Log in by Basic Authentication.'), nil, 401) {
+	  [[:h2, _('Logging in by Basic Authentication.')],
+	    [:p, _("Please input ID (E-mail) and password.")],
+	    [:hr],
+	    [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+	}
+      end
+
+      # Already logged in.
+      if @req.auth != 'basicauth'	# But, the method is not Basic Auth.
+	return c_notice(_('Login by cookie')) {
+	  [[:h2, _('You are already login by cookie.')],
+	    [:hr],
+	    [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+	}
+      end
+
+      return c_notice(_('Log in by Basic Authentication.')) {
+	[[:h2, _('Log in using Basic Authentication.')],
+	  [:hr],
+	  [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+      }
+    end
+
+    def basicauth_logout
+      return c_notice(_('Basic Authentication') + ' ' + _('Log out')) {
+	[[:h2, _('Can not log out.')],
+	  [:p, _('You can not log out in Basic Authentication mode.'), [:br],
+	    _('Please close browser and access again.')],
+	  [:hr],
+	  [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActHttpAuth < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      # See the FrontPage.
+      res = session '/test/'
+      ok_title 'FrontPage'
+
+      # See the FrontPage before Login.
+      res = session('/test/') {|req|
+	req.cookies.clear
+      }
+      ok_title 'Login'
+      ok_xp [:meta, {:content=>"1; url=/test/.login", 'http-equiv'=>'Refresh'}],
+	    "//meta[2]"
+
+      # See the Login page.
+      res = session('/test/.login') {|req|
+	req.cookies.clear
+      }
+      ok_title 'Login'
+#      ok_xp [:a, {:href=>'.getpass'}, [:em, 'Get Password']],
+#	    "//div[@class='section']/a"
+#      ok_xp [:a, {:href=>'.basicauth'}, 'Log in by Basic Authentication.'],
+#	    "//div[@class='section']/a[2]"
+
+      # See the Basic Auth Login page.
+      res = session('/test/.basicauth') {|req|
+	req.cookies.clear
+      }
+      ok_title('Log in by Basic Authentication.')
+      ok_eq(401, @res.status)
+      ok_eq("Basic realm=\"qwik\"", @res['WWW-Authenticate'])
+
+      # test base64
+      ok_eq("dXNlckBlLmNvbTo5NTk4ODU5Mw==\n",
+	    Base64.encode64(DEFAULT_USER+':95988593'))
+
+      # Try to Login by Basic Authenticate.
+      res = session('/test/.basicauth') {|req|
+	req.cookies.clear
+	req.header['authorization'] =
+	  ["Basic dGVzdEBleGFtcGxlLmNvbTo0NDQ4NDEyNQ=="]
+      }
+      ok_title('Log in by Basic Authentication.')
+      ok_eq(200, @res.status)
+      ok_eq(nil, @res['WWW-Authenticate'])
+      ok_xp([:a, {:href=>'FrontPage.html'}, 'Go back'], '//a')
+
+      # Try to see FrontPage
+      res = session('/test/') {|req|
+	req.cookies.clear
+	req.header['authorization'] =
+	  ["Basic dXNlckBlLmNvbTo5NTk4ODU5Mw=="]
+      }
+      ok_title('FrontPage')
+
+      # test_logout
+      res = session('/test/.logout') {|req|
+	req.cookies.clear
+	req.header['authorization'] =
+	  ["Basic dXNlckBlLmNvbTo5NTk4ODU5Mw=="]
+      }
+      ok_title('Basic Authentication Log out')
+      assert_text('Can not log out.', 'h2')
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-include.rb

@@ -0,0 +1,142 @@
+# 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
+    D_PluginInclude = {
+      :dt => 'Include plugin',
+      :dd => 'You can include other page.',
+      :dc => "* Example
+You can see the FrontPage is included here.
+{{include('FrontPage')}}
+ {{include('FrontPage')}}
+"
+    }
+
+    D_PluginInclude_ja = {
+      :dt => '取り込みプラグイン',
+      :dd => '他のページの内容をとりこみます。',
+      :dc => "* 例
+FrontPageの内容を埋め込んでみます。
+{{include('FrontPage')}}
+ {{include('FrontPage')}}
+"
+    }
+
+    def plg_include(pagename)
+      pagename = pagename.to_s
+      page = @site[pagename]
+      return nil if page.nil?
+
+      org_base = @req.base
+      @req.base = pagename
+
+      body = surface_get_body(page)
+
+      @req.base = org_base
+
+      return body
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActInlcude < Test::Unit::TestCase
+    include TestSession
+
+    def ok(e, w, user=DEFAULT_USER)	# assert_body_main
+      assert_path(e, w, user, "//div[@class='body_main']")
+    end
+
+    def ok_day(e, w, user=DEFAULT_USER)
+      assert_path(e, w, user, "//div[@class='day']")
+    end
+
+    def test_include
+      page = @site.create_new
+      page.store("* t
+* t")
+      page2 = @site.create_new
+      page2.store("* t2
+* t2")
+      key = page2.key
+      ok_day(['',
+	       [:div,
+		 {:class=>'body'},
+		 [:div,
+		   {:class=>'section'},
+		   [[:div,
+		       {:class=>'day'},
+		       [:h2, {:id=>'t2'}, 't2'],
+		       [:div, {:class=>'body'},
+			 [:div, {:class=>'section'}, []]]]]]]],
+	     "{{include(#{key})}}")
+
+      ok([:div,
+	   {:class=>'day'},
+	   '',
+	   [:div,
+	     {:class=>'body'},
+	     [:div,
+	       {:class=>'section'},
+	       [[:div,
+		   {:class=>'day'},
+		   [:h2, {:id=>'t2'}, 't2'],
+		   [:div, {:class=>'body'},
+		     [:div, {:class=>'section'}, []]]]]]]],
+	 "{{include(#{key})}}")
+
+      config = @site['_SiteConfig']
+      config.store(':titlelink:true')
+      ok([:div,
+	   {:class=>'day'},
+	   '',
+	   [:div,
+	     {:class=>'body'},
+	     [:div,
+	       {:class=>'section'},
+	       [[:div,
+		   {:class=>'day'},
+		   [:h2,
+		     [:a, {:href=>"2.html#t2", :name=>'t2', :class=>'label'},
+		       "■"],
+		     't2'],
+		   [:div, {:class=>'body'},
+		     [:div, {:class=>'section'}, []]]]]]]],
+	 "{{include(#{key})}}")
+
+      config.store('')
+    end
+
+    def test_include_with_titlelink
+      t_add_user
+
+      page = @site.create('t1')
+      page.store("* t1
+{{include(t2)}}")
+      page2 = @site.create('t2')
+      page2.store("* t2!
+* t2!")
+
+      res = session('/test/t1.html')
+      ok_in(['t1'], 'title')
+      ok_in(["t2!"], "//div[@class='day']/h2")
+
+      config = @site['_SiteConfig']
+      config.store(':titlelink:true')
+      res = session('/test/t1.html')
+      ok_in([[:a, {:href=>"t2.html#6b9e49fa28900683969f489ac35161e6",
+		  :name=>'6b9e49fa28900683969f489ac35161e6',
+		  :class=>'label'}, "■"], "t2!"],
+	    "//div[@class='day']/h2")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-interwiki.rb

@@ -0,0 +1,189 @@
+# 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
+    D_PluginInterWiki = {
+      :dt => 'InterWiki plugin',
+      :dd => 'Make a link for another Wiki.',
+      :dc => "* Example
+You can create a link to another Wiki easily.
+ [[qwikjp:InstallOnDebian]]
+[[qwikjp:InstallOnDebian]]
+You'll see the link to InstallOnDebian page on qwik.jp.
+
+ [[google:qwikWeb]]
+[[google:qwikWeb]]
+You can also create a link to search qwikWeb on Google.
+
+You can edit the links on the Page [[_InterWikiName]].
+"
+    }
+
+    D_PluginInterWiki_ja = {
+      :dt => 'InterWikiプラグイン',
+      :dd => 'Wiki間の相互接続をします。',
+      :dc => "* 例
+Wiki間の相互接続を行うための仕組みです。
+ [[qwikjp:InstallOnDebian]]
+[[qwikjp:InstallOnDebian]]
+とすると、qwik.jp上のInstallOnDebianというページにリンクします。
+
+ [[google:qwikWeb]]
+[[google:qwikWeb]]
+同様に、googleでqwikWebを検索するリンクを作れます。
+
+リンク先は[[_InterWikiName]]を編集して変えられます。
+"
+    }
+
+    def plg_interwiki(arg, *d)
+      wiki, pagename = arg.split(':')
+      return if pagename.nil?
+      text = "#{wiki}:#{pagename}"
+      text = yield if block_given?
+      iw = @site.interwiki
+      href = iw.href(wiki, pagename)
+
+      return [:span, {:class=>'interwiki'}, text] if href.nil?
+      [:a, {:href=>href, :class=>'interwiki'}, text]
+    end
+  end
+
+  class Site
+    def interwiki
+      @interwiki = InterWiki.new(@config, self) unless defined? @interwiki
+      @interwiki
+    end
+  end
+
+  class InterWiki
+    def initialize(config, site)
+      @site = site
+      @db = nil
+    end
+
+    def href(wiki, pagename)
+      iw = db[wiki]
+      return nil if iw.nil?
+      url, encoding = iw
+
+      pagename.set_page_charset
+
+      case encoding
+      when 'sjis' then pagename = pagename.to_sjis.escape
+      when 'euc'  then pagename = pagename.to_euc.escape
+      when 'utf8' then pagename = pagename.to_utf8.escape
+      end
+      return url.sub(/\$1/, pagename) if url.index("$1")
+      url+pagename
+    end
+
+    private
+
+    def db
+      return @db if @db
+      page = get_page
+      @db = page.wikidb
+      @db
+    end
+
+    def get_page
+      k = 'InterWikiName'
+      return @site[k] if @site.exist?(k)
+      k = "_#{k}"
+      return @site[k] if @site.exist?(k)
+      return @site.create(k)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActInterWiki < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      page = @site.create('_InterWikiName')
+
+      # test_interwiki
+      page.store(',Test,http://example.com/?q=,sjis')
+      ok_wi([:p, [:a, {:href=>'http://example.com/?q=t',
+		  :class=>'interwiki'}, 'Test:t']], '[[Test:t]]')
+      ok_eq([:a, {:href=>'http://example.com/?q=t',
+		:class=>'interwiki'}, 'Test:t'],
+	    @action.plg_interwiki('Test:t'))
+      ok_eq([:a, {:href=>'http://example.com/?q=t',
+		:class=>'interwiki'}, 'content\n'],
+	    @action.plg_interwiki('Test:t') { 'content\n' })
+      ok_wi([:p, [:a, {:href=>'http://example.com/?q=t',
+		  :class=>'interwiki'}, 'text']], '[[text|Test:t]]')
+      ok_wi([:p, [:span, {:class=>'interwiki'}, 'nosuchwiki:t']],
+	    '[[nosuchwiki:t]]')
+
+      # test_interwiki_kanji
+      page.store(<<'EOM')
+,SJIS,http://example.com/?q=,sjis
+,EUC,http://example.com/?q=,euc
+,UTF8,http://example.com/?q=,utf8
+EOM
+      ok_wi([:p, [:a, {:href=>'http://example.com/?q=%8E%9A',
+            :class=>'interwiki'}, 'SJIS:字']], '[[SJIS:字]]')
+      ok_wi([:p, [:a, {:href=>'http://example.com/?q=%BB%FA',
+            :class=>'interwiki'}, 'EUC:字']], '[[EUC:字]]')
+      ok_wi([:p, [:a, {:href=>'http://example.com/?q=%E5%AD%97',
+            :class=>'interwiki'},  'UTF8:字']], '[[UTF8:字]]')
+
+      # test_interwiki_realuse
+      page.store(<<'EOM')
+,google,http://www.google.com/search?num=50&lr=lang_ja&q=,utf8
+,isbn,http://www.amazon.co.jp/exec/obidos/ASIN/$1/ref=nosim/q02-22,raw
+,amazon,http://www.amazon.co.jp/exec/obidos/external-search?tag=q02-22&keyword=$1&mode=blended,utf8
+,hiki,http://www.namaraii.com/hiki/hiki.cgi?,euc
+,yukiwiki,http://www.hyuki.com/yukiwiki/wiki.cgi?,euc
+EOM
+      ok_wi([:p, [:a, {:href=>"http://www.google.com/search?num=50&lr=lang_ja&q=%E5%AD%97", :class=>'interwiki'}, "google:字"]], "[[google:字]]")
+      ok_wi([:p, [:a, {:href=>"http://www.google.com/search?num=50&lr=lang_ja&q=%3C", :class=>'interwiki'}, "google:<"]], "[[google:<]]")
+      ok_wi([:p, [:a, {:href=>"http://www.amazon.co.jp/exec/obidos/ASIN/4797318325/ref=nosim/q02-22", :class=>'interwiki'}, 'isbn:4797318325']], "[[isbn:4797318325]]")
+      ok_wi([:p, [:a, {:href=>"http://www.amazon.co.jp/exec/obidos/external-search?tag=q02-22&keyword=%E5%AD%97&mode=blended", :class=>'interwiki'}, "amazon:字"]], "[[amazon:字]]")
+      ok_wi([:p, [:a, {:href=>"http://www.namaraii.com/hiki/hiki.cgi?%BB%FA", :class=>'interwiki'}, "hiki:字"]], "[[hiki:字]]")
+      ok_wi([:p, [:a, {:href=>"http://www.hyuki.com/yukiwiki/wiki.cgi?%BB%FA", :class=>'interwiki'}, "yukiwiki:字"]], "[[yukiwiki:字]]")
+
+      # test_interwiki_error
+      ok_wi([:p, [:span, {:class=>'interwiki'}, 'a:b']], "[[a:b]]")
+      ok_wi([:p, [:span, {:class=>'new'}, "\"D_R\", \"/v/w\"",
+	   [:a, {:href=>".new?t=%22D_R%22%2C+%22%2Fv%2Fw%22"},
+	     [:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]]],
+       "[[\"D_R\", \"/v/w\"]]")
+      ok_wi([:p], "[[\"H_R\", \"h://e.c/\"]]")
+    end
+
+    def ok(e, w)
+      ok_eq(e, Qwik::Resolver.resolve(@site, @action, w))
+    end
+
+    def test_res
+      res = session
+
+      ok([[:span, {:class=>'interwiki'}, 'Test:t']],
+	 [[:plugin, {:method=>'interwiki', :param=>'Test:t'}]])
+      page = @site.create('_InterWikiName')
+      page.store(",Test,http://example.com/?q=,sjis")
+      ok([[:a, {:href=>"http://example.com/?q=t",
+	       :class=>'interwiki'}, 'Test:t']],
+	 [[:plugin, {:method=>'interwiki', :param=>'Test:t'}]])
+
+      # test_interwiki_error
+      ok([],
+	 [[:plugin, {:method=>'interwiki', :param=>"\"H_R\", \"h://e.c/\""},
+	     '']])
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-isearch.rb

@@ -0,0 +1,109 @@
+# 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-search'
+
+module Qwik
+  class Action
+
+#* Incremental search
+# {{isearch}}
+#{{isearch}}
+#You can also make incremenatl search form.
+
+#* インクリメンタル・サーチ
+# {{isearch}}
+#{{isearch}}
+#同様に、インクリメンタル・サーチを行う検索窓です。
+
+    # ============================== isearch
+    def plg_isearch(focus=false)
+      form = search_form(focus)
+      form[1][:action] = '.isearch'
+      return form
+    end
+
+    def act_isearch
+      query = @req.query['q']
+      if query.nil? || query.empty?
+	search_form_page
+	isearch_patch(@res.body)
+	return
+      end
+
+      ar = @site.isearch(query)
+      if ar.nil? || ar.empty?
+	search_notfound_page(query)
+	isearch_patch(@res.body)
+	return
+      end
+
+      return isearch_result(@site, ar)
+    end
+
+    def isearch_patch(body)	# Destructive for the body
+      form = body.get_path('//form')
+      form[1][:action] = '.isearch'
+    end
+
+    def isearch_result(site, ar)
+      ul = [:ul]
+      ar.each {|key|
+	page = site[key]
+	url = page.url
+	ul << [:li, [:a, {:href=>url}, key]]
+      }
+      div = [:div, {:class=>'day'},
+	[:div, {:class=>'section'},
+	  [:div, {:class=>'search_result'}, ul]]]
+      title = _('Search result')
+      return c_plain(title) { div }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActIncrementalSearch < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_isearch
+      ok_wi([:form, {:action=>'.isearch'},
+	      [:input, {:name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{isearch}}")
+    end
+
+    def test_act_isearch
+      t_add_user
+
+      res = session '/test/.isearch'
+      ok_xp [:form, {:action=>'.isearch'},
+	      [:input, {:class=>'focus', :name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    '//form'
+
+      res = session "/test/.isearch?q=nosuchkey"
+      assert_text 'Search result', 'h1'
+      ok_in ['No match.'], '//h2'
+
+      page = @site.create_new
+      page.store 'This is a keyword.'
+      res = session "/test/.isearch?q=keyword"
+#      ok_in [:ul, [:li, [:a, {:href=>'1.html'}, '1']]],
+#	    "//div[@class='search_result']"
+
+      page = @site.create_new	# 2.txt
+      page.store "漢字"
+      res = session "/test/.isearch?q=字"
+#      ok_in [:ul, [:li, [:a, {:href=>'2.html'}, '2']]],
+#	    "//div[@class='search_result']"
+    end
+  end
+end