qwik2md 0.1.0

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

@@ -0,0 +1,418 @@
+# -*- coding: shift_jis -*-
+# 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-monitor'
+#require 'qwik/act-rrefs'
+require 'qwik/page-title'
+
+module Qwik
+  class Action
+    def act_new
+      c_require_login
+
+      # Check if the title is specified.
+      title = @req.query['t']
+      return new_input_title if title.nil? || title.empty?
+
+      # Parse page title.
+      page_title, tags = Page.parse_title(title)
+
+      # Check if the page title is here.
+      return new_input_title if page_title.nil? || page_title.empty?
+
+      # Check if the title is already exist.
+      page = @site.get_by_title(page_title)
+      return new_already_exist(page_title, page.key) if page
+
+      # Check if the request is GET.
+      return new_confirm(title) if ! @req.is_post?
+
+      if Page.valid_as_pagekey?(page_title)
+	key = page_title
+      else
+	key = @site.get_new_id
+      end
+
+      begin
+	page = @site.create(key)	# CREATE
+      rescue PageExistError
+	# FIXME: should retry?
+	return new_already_exist(page_title, key)
+      end
+
+      c_make_log('create', key)		# CREATE
+      c_monitor("create#{key}")		# CREATE
+
+      page.store("* #{title}\n")	# with tag
+
+      url = "#{key}.edit"
+
+#      create_rrefs(key)
+      site_updated
+
+      return c_notice(_('New page'), url, 201) {	# 201, Created
+	[[:h2, _('Created.')],
+	  [:p, [:a, {:href=>url}, _('Edit new page')]]]
+      }
+    end
+
+    def new_input_title
+      ar = []
+      form = new_form
+      return new_tail(ar, form)
+    end
+
+    def new_already_exist(title, key)
+      ar = []
+      ar << [:h2, _('Already exists')]
+      form = new_form(title) {
+	[:p, [:a, {:href=>key+'.html'}, [:strong, title]],
+	  _(' already exists.'), [:br],
+	  _('Please specify another title.')]
+      }
+      return new_tail(ar, form)
+    end
+
+    def new_confirm(title)
+      ar = []
+      ar << [:h2, _('Confirm')]
+      form = new_form(title) {
+	[:p, _('Push create.')]
+      }
+      return new_tail(ar, form)
+    end
+
+    def new_form(title=nil)
+      form = [:form, {:action=>'.new', :method=>'POST'},
+	[:dl, [:dt, _('Title')],
+	  [:dd, [:input, {:name=>'t', :value=>title, :class=>'focus'}]]]]
+      form << yield if block_given?
+      form << [:p, [:input, {:type=>'submit', :value=>_("New page")}]]
+    end
+
+    def new_tail(ar, form)
+      ar << [:div, {:class=>'form'}, form]
+      ar << [:hr]
+      ar << [:p, [:a, {:href=>"FrontPage.html"}, _("Go back")]]
+      return c_notice(_('New page')) { ar }
+    end
+
+    def action_page_not_found
+      # Assert that the title is encoded in UTF8.
+      # @req.base.charset is already set to 'UTF-8' in request-path.rb
+      title = @req.base.to_page_charset
+      c_notfound(_('Page not found.')) {
+	[[:h2, _('Page not found.')],
+	  [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]],
+	  [:hr],
+	  new_form(title) {
+	    [:p,  _('Push create if you would like to create the page.')]
+	  }
+	]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActNew < Test::Unit::TestCase
+    include TestSession
+
+    def test_create_new
+      t_add_user
+
+      # See .new page
+      res = session('/test/.new')
+      assert_attr({:action=>'.new', :method=>'POST'}, 'form')
+      ok_xp([:input, {:value=>nil, :class=>'focus', :name=>'t'}], '//input')
+      ok_xp([:input, {:value=>'New page', :type=>'submit'}], "//input[2]")
+
+      # Create a new page.
+      res = session("POST /test/.new?t=FirstPage")
+      ok_title('New page')
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'FirstPage.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+    end
+
+    def test_with_tag
+      t_add_user
+
+      res = session("POST /test/.new?t=[tag] t")
+      ok_xp([:a, {:href=>'t.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+      page = @site['t']
+      ok_eq("* [tag] t\n", page.load)
+    end
+
+    def test_opensite_new
+      t_add_user
+      t_site_open	# OPEN site
+
+      res = session('/test/') {|req|
+	req.cookies.clear
+      }
+      ok_title('FrontPage')	# You can see the FrontPage.
+      ok_in(['Login'], "//div[@class='adminmenu']//a")	# But, not logged in.
+
+      # Try to see the .new page
+      res = session('/test/.new') {|req|
+	req.cookies.clear
+      }
+      ok_title('Please log in.') # You can't see the form.
+      ok_in(['You need to log in to use this function.'], 'p')
+    end
+  end
+
+  class TestActNewWithEmbed < Test::Unit::TestCase
+    include TestSession
+
+    def test_embeded_new
+      t_add_user
+      page = @site['FrontPage']
+      page.store("[[FirstPage]]")
+
+      # See FrontPage
+      res = session('/test/')
+      ok_title('FrontPage')
+      ok_in([:span, {:class=>'new'}, 'FirstPage',
+	      [:a, {:href=>".new?t=FirstPage"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//div[@class='section']/p")
+
+      # To confirm
+      res = session("/test/.new?t=FirstPage")
+      ok_title('New page')
+      ok_in(['New page'], 'h1')
+      ok_in(['Confirm'], 'h2')
+      assert_attr({:action=>'.new', :method=>'POST'}, 'form')
+      ok_xp([:input, {:value=>'FirstPage', :class=>'focus', :name=>'t'}],
+	    '//input')
+      ok_xp([:input, {:value=>'New page', :type=>'submit'}],
+	    "//input[2]")
+
+      # Create a new page.
+      res = session("POST /test/.new?t=FirstPage")
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'FirstPage.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+
+      # Check the new page
+      ok_eq("* FirstPage\n", @site['FirstPage'].load)
+
+      # Try to create with the same key.
+      res = session("/test/.new?t=FirstPage")
+      ok_in(['Already exists'], '//h2')
+      ok_xp([:a, {:href=>'FirstPage.html'}, [:strong, 'FirstPage']],
+	    "//div[@class='section']/a")
+
+      # Try to create with the same key.
+      res = session("POST /test/.new?t=FirstPage")
+      ok_in(['Already exists'], '//h2')
+      ok_xp([:a, {:href=>'FirstPage.html'}, [:strong, 'FirstPage']],
+	    "//div[@class='section']/a")
+    end
+
+    def test_embeded_new_with_space
+      t_add_user
+      page = @site['FrontPage']
+      page.store("[[First Page]]")
+      ok_eq('FrontPage', page.get_title)
+
+      # see a page
+      res = session('/test/')
+      ok_in(['First Page', [:a, {:href=>".new?t=First+Page"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//span[@class='new']")
+
+      # Please input corresponding page key
+      res = session("/test/.new?t=First+Page")
+      ok_in(['New page'], 'h1')
+      ok_in(['Confirm'], 'h2')
+      assert_attr({:action=>'.new', :method=>'POST'}, 'form')
+      ok_xp([:input, {:value=>'First Page',
+		:class=>'focus', :name=>'t'}], '//input')
+      ok_xp([:input, {:value=>'New page', :type=>'submit'}], "//input[2]")
+
+      # POST
+      res = session("POST /test/.new?t=First Page")
+      ok_in(['New page'], 'h1')
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'1.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+
+      # check the new page
+      ok_eq("* First Page\n", @site['1'].load)
+      page = @site.get_by_title('First Page')
+      ok_eq('1', page.key)
+
+      # check title
+      page = @site['1']
+      ok_eq('First Page', page.get_title)
+      ok_eq('1', @site.get_by_title('First Page').key.to_s)
+      ok_eq(false, @site.exist?('First Page'))
+      ok_eq(true, @site.exist?('1'))
+
+      # check the source page
+      res = session('/test/')
+      ok_in(['First Page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'1.html'}, 'First Page'],
+	    "//div[@class='section']//a")
+      ok_eq("[[First Page]]", @site['FrontPage'].load)
+
+      # Try to create with the same key.
+      res = session("/test/.new?t=First+Page")
+      ok_in(['Already exists'], '//h2')
+      ok_xp([:a, {:href=>'1.html'}, [:strong, 'First Page']],
+	    "//div[@class='section']/a")
+
+      # Try to create with the same key.
+      res = session("POST /test/.new?t=First+Page")
+      ok_in(['Already exists'], '//h2')
+      ok_xp([:a, {:href=>'1.html'}, [:strong, 'First Page']],
+	    "//div[@class='section']/a")
+
+      # Let's create a page again.  At the first, embed the title.
+      page = @site['FrontPage']
+      page.store("[[2nd Page]]")
+
+      # See the page
+      res = session('/test/')
+      ok_in(['2nd Page', [:a, {:href=>".new?t=2nd+Page"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//div[@class='section']//span")
+
+      # please input a corresponding page key
+      res = session("/test/.new?t=2nd+Page")
+      ok_xp([:input, {:value=>'2nd Page', :class=>'focus', :name=>'t'}],
+	    '//input')
+
+      # try again
+      res = session("POST /test/.new?t=2nd+Page")
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'2.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+
+      page = @site['2']
+      ok_eq("* 2nd Page\n", page.load)
+
+      # check the source page again
+      res = session('/test/')
+      ok_in(['2nd Page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'2.html'}, '2nd Page'],
+	    "//div[@class='section']//a")
+      ok_eq("[[2nd Page]]", @site['FrontPage'].load)
+    end
+
+    def test_new_sjis
+      t_add_user
+      page = @site['FrontPage']
+      page.store("[[ポス]]")
+
+      # See FrontPage
+      res = session('/test/')
+      ok_title('FrontPage')
+      ok_in([:span, {:class=>'new'}, "ポス",
+	      [:a, {:href=>".new?t=%83%7C%83X"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//div[@class='section']/p")
+    end
+
+    def test_embeded_new_with_japanese_name
+      t_add_user
+
+      page = @site['FrontPage']
+      page.store("[[最初のページ]]")
+      ok_eq('FrontPage', page.get_title)
+
+      # See a page
+      res = session('/test/')
+      ok_in(["最初のページ",
+	      [:a, {:href=>".new?t=%8D%C5%8F%89%82%CC%83y%81%5B%83W"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//span[@class='new']")
+
+      # Please input corresponding page key
+      res = session("/test/.new?t=最初のページ")
+      ok_in(['New page'], 'h1')
+      ok_in(['Confirm'], 'h2')
+      assert_attr({:action=>'.new', :method=>'POST'}, 'form')
+      ok_xp([:input, {:value=>"最初のページ",
+		:class=>'focus', :name=>'t'}], '//input')
+      ok_xp([:input, {:value=>'New page', :type=>'submit'}],
+	    "//input[2]")
+
+      # POST
+      res = session("POST /test/.new?t=最初のページ")
+      ok_in(['New page'], 'h1')
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'1.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+
+      # Check the new page.
+      ok_eq("* 最初のページ\n", @site['1'].load)
+      page = @site.get_by_title("最初のページ")
+      ok_eq('1', page.key)
+
+      # Check title.
+      page = @site['1']
+      ok_eq("最初のページ", page.get_title)
+      ok_eq('1', @site.get_by_title("最初のページ").key.to_s)
+      ok_eq(false, @site.exist?("最初のページ"))
+      ok_eq(true, @site.exist?('1'))
+
+      # Check the source page.
+      res = session('/test/')
+      ok_in(["最初のページ"], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'1.html'}, "最初のページ"],
+	    "//div[@class='section']//a")
+      ok_eq("[[最初のページ]]", @site['FrontPage'].load)
+
+      # Try to create with the same key.
+      res = session("/test/.new?t=最初のページ")
+
+      # Try to create with the same key.
+      res = session("POST /test/.new?t=最初のページ")
+      ok_in(['Already exists'], '//h2')
+
+      # Let's create a page again.  At the first, embed the title.
+      page = @site['FrontPage']
+      page.store("[[二頁]]")
+
+      # See the page
+      res = session('/test/')
+      ok_in(["二頁",
+	      [:a, {:href=>".new?t=%93%F1%95%C5"},
+		[:img, {:src=>'.theme/i/new.png', :alt=>'create'}]]],
+	    "//div[@class='section']//span")
+
+      # please input a corresponding page key
+      res = session("/test/.new?t=二頁")
+      ok_xp([:input, {:value=>"二頁", :class=>'focus', :name=>'t'}], '//input')
+
+      # try again
+      res = session("POST /test/.new?t=二頁")
+      ok_in(['Edit new page'], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'2.edit'}, 'Edit new page'],
+	    "//div[@class='section']//a")
+
+      page = @site['2']
+      ok_eq("* 二頁\n", page.load)
+
+      # check the source page again
+      res = session('/test/')
+      ok_in(["二頁"], "//div[@class='section']//a")
+      ok_xp([:a, {:href=>'2.html'}, "二頁"],
+	    "//div[@class='section']//a")
+      ok_eq("[[二頁]]", @site['FrontPage'].load)
+    end
+  end
+end

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

@@ -0,0 +1,248 @@
+# 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 pagelist_update
+      running_path =  @site.cache_path + "pagelist.dat.running"
+      pagelist_path =  @site.cache_path + "pagelist.dat"
+
+      return if running_path.exist?
+
+      Thread.new {
+        running_path.write("running")
+
+        ar = []
+        list = @site.date_list
+        list.reverse.each {|page|
+          key = page.key
+          time = page.mtime.to_i
+          title = page.get_title
+          ar << [key, time, title]
+        }
+        dat = Marshal.dump(ar)
+        pagelist_path.write(dat)
+
+        running_path.unlink if running_path.exist?
+      }
+    end
+
+    def pagelist_get
+      pagelist_path =  @site.cache_path + "pagelist.dat"
+
+      unless pagelist_path.exist?
+        pagelist_update
+        return [] 
+      end
+
+      dat = pagelist_path.read
+      ar = Marshal.load(dat)
+      return ar
+    end
+
+    def act_list
+      c_surface(_('Page List'), true) {
+	[:div, {:class=>'day'},
+	  [:div, {:class=>'section'},
+	  plg_title_list]]
+      }
+    end
+
+    def plg_title_list
+      str = @site.title_list.map {|page|
+	"- #{page.mtime.ymd} : [[#{page.key}]]"
+      }.join("\n")
+      return c_res(str)
+    end
+
+    def act_recent(max = -1)
+      str = recent_str(max)
+      c_surface(_('Recent Changes'), true) {
+	[:div, {:class=>'day'},
+	  [:div, {:class=>'section'}, c_res(str)]]
+      }
+    end
+
+    def plg_recent_list(max = -1)
+      return c_res(recent_str(max))
+    end
+    alias :plg_recent :plg_recent_list
+
+    def plg_side_recent(*a)
+      return [
+	[:h2, _('Recent change')],
+	plg_srecent(*a)
+      ]
+    end
+
+    def plg_srecent(max = -1)
+      max = max.to_i
+      ar = []
+
+      now = @req.start_time
+      
+      list = pagelist_get
+      overflow = nil
+      list.each_with_index {|a, i|
+	if 0 <= max && max < (i += 1)
+	  overflow = [:p,{:class=>'recent'},
+	    [:a, {:href=>'RecentList.html'}, [:em, _('more...')]]]
+	  break
+	end
+
+        key, t, title = a
+        time = Time.at(t)
+	difftime = now.to_i - time.to_i
+	timestr = time.ymdx.to_s
+	li = [:li,
+	  [:a, {:href=>"#{key}.html", :title=>timestr}, title]]
+	if @req.user
+	  li += [' ', [:span, {:class=>'ago'},
+	      int_to_time(difftime)+_(' ago')]]
+	end
+	ar << li
+      }
+      div = [:div, {:class=>'recent'}, [:ul, ar]]
+      div << overflow if overflow
+      return div
+    end
+
+    def nu_plg_srecent(max = -1)
+      max = max.to_i
+      ar = []
+      now = @req.start_time
+      list = @site.date_list
+      overflow = nil
+      list.reverse.each_with_index {|page, i|
+	if 0 <= max && max < (i += 1)
+	  overflow = [:p,{:class=>'recent'},
+	    [:a, {:href=>'RecentList.html'}, [:em, _('more...')]]]
+	  break
+	end
+	time = page.mtime
+	difftime = now.to_i - time.to_i
+	timestr = time.ymdx.to_s
+	li = [:li,
+	  [:a, {:href=>"#{page.key}.html", :title=>timestr}, page.get_title]]
+	if @req.user
+	  li += [' ', [:span, {:class=>'ago'},
+	      int_to_time(difftime)+_(' ago')]]
+	end
+	ar << li
+      }
+      div = [:div, {:class=>'recent'}, [:ul, ar]]
+      div << overflow if overflow
+      return div
+    end
+
+    def recent_str(max = -1)
+      max = max.to_i
+      ar = []
+      last_day = nil
+      add_day = true
+      @site.date_list.reverse.each_with_index {|page, i|
+	break if 0 <= max && max < (i += 1)
+	if add_day
+	  day = page.mtime.ymd.to_s
+	  if last_day.nil? || day != last_day
+	    ar << "** #{day}"
+	    last_day = day
+	  end
+	end
+	ar << "- [[#{page.key}]]"
+      }
+      ar.join("\n")
+    end
+
+    def int_to_time(n)
+      return n.to_s+_('sec.') if n < 60 # under 1 min 
+      return (n/60).to_s+_('min.') if n < 60*60 # under 1 hour
+      return (n/(60*60)).to_s+_('hour') if n < 60*60*24 # under 1 day
+      return (n/(60*60*24)).to_s+_('day') if n < 60*60*24*30 # under 1 month
+      return (n/(60*60*24*30)).to_s+_('month') if n < 60*60*24*365 # under 1 year
+      return (n/(60*60*24*365)).to_s+_('year') if n < 60*60*24*365*100 # under 1 century
+      return (n/(60*60*24*365*100)).to_s+_('century')
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActList < Test::Unit::TestCase
+    include TestSession
+
+    def test_title_list
+      t_add_user
+      res = session('/test/.list')
+      ok_title('Page List')
+      ok_wi(/<ul><li>/, "{{title_list}}")
+      ok_wi(%r| : <a href="1.html">1</a></li>|, "{{title_list}}")
+    end
+
+    def test_recent_list
+      t_add_user
+      res = session('/test/.recent')
+      ok_title('Recent Changes')
+      ok_wi(/<h3>/, "{{recent_list}}")
+      ok_wi(%r|<li><a href=\"1.html\">1</a></li>|, "{{recent}}")
+      ok_wi(/<h3>/, "{{recent_list(1)}}")
+    end
+
+    def test_srecent
+      t_add_user
+
+      # test with no pages.
+      ok_wi [:div, {:class=>"recent"}, [:ul, []]], "{{srecent}}"
+      
+      # test with a page.
+      page = @site["1"]
+      page.put_with_time("* t1", 1)
+      @action.pagelist_update
+      ok_wi [:div, {:class=>"recent"},
+             [:ul,
+              [[:li,
+                [:a, {:href=>"1.html", :title=>"1970-01-01 09:00:01"}, "t1"],
+                " ",
+                [:span, {:class=>"ago"}, "-1sec. ago"]]]]], "{{srecent}}"
+
+      # test with two pages.
+      page = @site.create("2")
+      page.put_with_time("* t2", 2)
+      @action.pagelist_update
+=begin
+      ok_wi [:div, {:class=>"recent"},
+             [:ul,
+              [[:li,
+                [:a, {:href=>"1.html", :title=>"2009-09-04 10:16:25"}, "1"],
+                " ",
+                [:span, {:class=>"ago"}, "-1252026985sec. ago"]],
+               [:li,
+                [:a, {:href=>"2.html", :title=>"1970-01-01 09:00:02"}, "t2"],
+                " ",
+                [:span, {:class=>"ago"}, "-2sec. ago"]]]]], "{{srecent}}"
+=end
+    end
+
+    def ok_time(e, n)
+      eq e, @action.int_to_time(n)
+    end
+
+    def test_time
+      res = session
+      ok_time '1sec.',	1
+      ok_time '1min.',	60
+      ok_time '1hour',	60*60
+      ok_time '1day',	60*60*24
+      ok_time '1month',	60*60*24*30
+      ok_time '1year',	60*60*24*365
+      ok_time '1century',	60*60*24*365*100
+    end
+  end
+end