qwikdoc 0.0.1

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

data/vendor/qwik/act-password.rb

@@ -0,0 +1,145 @@
+# 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_PluginPassword = {
+      :dt => 'Set password plugin',
+      :dd => 'You can lock a page by a password.',
+      :dc => "* Example
+ {{password(\"a password string\")}}
+You can lock your page by setting this password plugin.
+
+'''Warning:''' There is no way to unlock the page.
+If you forgot your password, you can not edit the page.
+Please be careful.
+"
+    }
+
+    D_PluginPassword_ja = {
+      :dt => '�p�X���[�h�ی�v���O�C��',
+      :dd => '�y�[�W���p�X���[�h�ŕی삷�邱�Ƃ��ł��܂��B',
+      :dc => "* ��
+ {{password(\"a password string\")}}
+���̂悤�ȃv���O�C�����y�[�W�ɖ����ނƁA
+���̃y�[�W�̓p�X���[�h�ŕی삳��܂��B
+
+'''����:''' ���݂͂܂��p�X���[�h������������@��񋟂��Ă܂���B
+�����p�X���[�h��Y�ꂽ�ꍇ�́A�y�[�W��ҏW�ł��Ȃ��Ȃ�܂��̂ŁA
+�C���‚��Ă��������B
+"
+    }
+
+    def plg_password(pass=nil)
+      # password plugin is parsed in act-edit.rb
+      return nil
+    end
+  end
+
+  # These methods will be used in ext_save
+  class Page
+    def get_password
+      return Page.get_password(self.load)
+    end
+
+    def self.get_password(str)
+      return $1 if str && /\{\{password\((.+)\)\}\}/ =~ str
+      return nil
+    end
+
+    def self.embed_password(content)
+      new_pass = get_password(content)
+      return content if new_pass.nil?		# Nothing to embed.
+      new_content = content.sub(/\{\{password\((.+)\)\}\}/) {
+	"{{password(#{$1.md5hex})}}"
+      }
+      return new_content
+    end
+
+    def match_password?(v)
+      old_pass_md5 = self.get_password
+      return true if old_pass_md5.nil?		# No password.  Go on.
+      new_pass_md5 = Page.get_password(v)	# assume already become md5
+      return false if new_pass_md5.nil?		# Can not go if there is no pass
+      return false if new_pass_md5 != old_pass_md5	# should be correct pass
+      return true	# Go on.
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPassword < Test::Unit::TestCase
+    include TestSession
+
+    def test_password
+      @pages = Qwik::Pages.new(@config, @dir)
+      page = @pages.create('1')
+      page.store('test2')
+
+      eq 'test2', page.load
+      # The text is rewrite to the text with embeded password.
+      text = Qwik::Page.embed_password('take1 {{password(testpassword)}}')
+      eq "take1 {{password(e16b2ab8d12314bf4efbd6203906ea6c)}}", text
+      page.store(text)
+
+      eq "e16b2ab8d12314bf4efbd6203906ea6c", page.get_password
+
+      take2 = Qwik::Page.embed_password('take2 {{password(notcorrectpassword)}}')
+      eq false, page.match_password?(take2)	# NG
+
+      take3 = Qwik::Page.embed_password('take3 {{password(testpassword)}}')
+      eq true, page.match_password?(take3)
+      page.store(take3) # OK
+      assert_match(/take3/, page.load)
+      eq "take3 {{password(e16b2ab8d12314bf4efbd6203906ea6c)}}", page.load
+
+      eq "e16b2ab8d12314bf4efbd6203906ea6c", page.get_password
+      eq 'testpassword'.md5hex, page.get_password
+      @pages.erase_all
+    end
+
+    def test_usecase_password
+      t_add_user
+
+      page = @site.create_new
+      page.store("test\n")
+      res = session('/test/1.html')
+      ok_in(['test'], "//div[@class='section']/p")
+
+      res = session('/test/1.edit')
+      assert_text("test\n", 'textarea')
+
+      res = session('/test/1.save?contents=test%0A{{password(test)}}%0A')
+      ok_title('Page is saved.')
+
+      res = session('/test/1.edit')
+      assert_text("test\n{{password(098f6bcd4621d373cade4e832627b4f6)}}\n",
+		  'textarea')
+
+      res = session('/test/1.save?contents=t2%0A{{password(test)}}%0A')
+      ok_title('Page is saved.')
+
+      res = session('/test/1.edit')
+      assert_text("t2\n{{password(098f6bcd4621d373cade4e832627b4f6)}}\n",
+		  'textarea')
+
+      res = session('/test/1.save?contents=t3%0A{{password(nomatch)}}%0A')
+      ok_in([[:tt, '{{password('], 'Password', [:tt, ')}}']],
+	    "//div[@class='section']/p")
+      assert_text("t3\n{{password(nomatch)}}\n", 'textarea')
+
+      res = session('/test/1.save?contents=t3%0A{{password(test)}}%0A')
+      ok_title('Page is saved.')
+      eq "t3\n{{password(098f6bcd4621d373cade4e832627b4f6)}}\n",
+	page.load
+    end
+  end
+end

data/vendor/qwik/act-plan.rb

@@ -0,0 +1,210 @@
+# -*- 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/site-plan'
+
+module Qwik
+  class Action
+    D_PluginPlan = {
+      :dt => 'Show plan plugin',
+      :dd => 'You can show the plan of this group.',
+      :dc => "* Example
+ {{plan}}
+{{plan}}
+You can see plans of this group.
+If there are no plan for this group, you see nothing.
+* How to create new plan.
+Follow '''Create a new plan''' link and create a new plan page.
+You'll see plans on sidemenu.
+'''Notice''' We changed the format of the date of pages.
+You can not use tag notation to specify date now.
+"
+    }
+
+    D_PluginPlan_ja = {
+      :dt => '�\��\���v���O�C��',
+      :dd => '�\���\�����܂��B',
+      :dc => '* ��
+ {{plan}}
+{{plan}}
+�����\�肪�o�^����Ă���ꍇ�́A���̃v���O�C���ŕ\������܂��B
+* �\��̓o�^���@
+��ԉ��́u�V�����\���o�^����v�Ƃ��������N�����ǂ��āA
+�V�����\��y�[�W��������������B
+�T�C�h���j���[�ɗ\�肪�\�������悤�ɂȂ�܂��B
+�ߋ��̗\��͕\������܂���B�܂���N�ȏ��̗\����\������܂���B
+�ꃖ������x�̗\���o�^���Ă݂Ă��������B
+
+\'\'\'����\'\'\' �ȑO�̓^�O�L�@�ɂ����t�w����̗p���Ă��܂������A
+�V�����o�[�W���������L�̐V�K�\��y�[�W�����ɐ؂�ւ��܂����B
+�䗹���������B
+'
+    }
+
+    def plg_side_plan
+      div = [:div, [:h2, _('Plan')]]
+      pages = @site.get_pages_with_date
+      div << plan_make_html(pages) if ! pages.empty?
+      div << [:p, plg_new_plan]
+      return div
+    end
+
+    def plg_plan
+      div = [:div, [:h2, _('Plan')]]
+      pages = @site.get_pages_with_date
+      return if pages.empty?
+      div << plan_make_html(pages)
+      div << [:p, plg_new_plan]
+      return div
+    end
+
+    def plg_new_plan
+      return [:a, {:href=>'.plan'}, _('Create a new plan')]
+    end
+
+    def plan_make_html(pages)
+      day = 60 * 60 * 24
+      nowi = @req.start_time.to_i
+      pages = pages.select {|pagekey, datei|
+	page = @site[pagekey]
+	diff = datei - nowi
+	-day < diff
+      }
+      return nil if pages.empty?
+
+      ul = [:ul]
+      pages.sort_by {|pagekey, datei|
+	datei
+      }.each {|pagekey, datei|
+	page = @site[pagekey]
+	title = page.get_title
+	date = Time.at(datei)
+	now = Time.at(nowi)
+	date_abbr = Time.date_abbr(now, date)
+	em_title = Time.date_emphasis(now, date, title)
+	ul << [:li, "#{date_abbr} ", [:a, {:href=>"#{pagekey}.html"}, em_title]]
+      }
+      return ul
+    end
+
+    # Make a new plan.
+    def act_plan
+      date = @req.query['date']
+      title = @req.query['title']
+      if date.nil? || date.empty? || title.nil? || title.empty?
+	date_attr = {:name=>'date', :class => 'focus'}
+	date_attr[:value] = @req.start_time.ymd_s
+	date_attr[:value] = date if date && ! date.empty?
+	title_attr = {:name=>'title'}
+	title_attr[:value] = 'Plan'
+	title_attr[:value] = title if title && ! title.empty?
+	form = [:form, {:action=>'.plan', :method=>'POST'},
+	  [:dl,
+	    [:dt, _('Date')],
+	    [:dd, [:input, date_attr]],
+	    [:dt, _('Title')],
+	    [:dd, [:input, title_attr]]],
+	  [:input, {:type=>'submit', :value=>_('Create a new plan')}]]
+	return c_notice(_('New plan')) {
+	  [[:h2, _('New plan')],
+	    [:div, {:class=>'plan form'},
+	      form]]
+	}
+      end
+
+      # Create a new plan
+      #page = @site.create_new	# CREATE
+
+      dateobj = Time.parse(date)
+      
+      pagename = "plan_#{dateobj.ymd_s}"
+      page = @site[pagename]
+      msg = _('Already Exists.')
+      if page.nil?
+	msg = _('Created.')
+	page = @site.create(pagename)	# CREATE
+	page.store("* #{title}\n")	# Specify title.
+      end
+
+      url = "#{page.key}.edit"
+      return c_notice(_('New plan'), url, 201) {	# 201, Created
+	[[:h2, msg],
+	  [:p, [:a, {:href=>url}, _('Edit new page')]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPlan < Test::Unit::TestCase
+    include TestSession
+
+    def create_plan_pages(site)
+      page = site.create 'plan_19700101'
+      page.store("* t")
+      page = site.create 'plan_19700115'
+      page.store("* t")
+      page = site.create 'plan_19700201'
+      page.store("* t")
+      page = site.create 'plan_19710101'
+      page.store("* t")
+    end
+
+    def test_plg_plan
+      ok_wi([], '{{plan}}')
+
+      create_plan_pages(@site)
+
+      ok_wi [:div,
+	[:h2, "Plan"],
+	[:ul,
+	  [:li, "01-01 ", [:a, {:href=>"plan_19700101.html"}, [:strong, "t"]]],
+	  [:li, "01-15 ", [:a, {:href=>"plan_19700115.html"}, [:em, "t"]]],
+	  [:li, "02-01 ", [:a, {:href=>"plan_19700201.html"},
+	      [:span, {:class=>"future"}, "t"]]],
+	  [:li, "1971-01-01 ", [:a, {:href=>"plan_19710101.html"},
+	      [:span, {:class=>"future"}, "t"]]]],
+	[:p, [:a, {:href=>".plan"}, "Create a new plan"]]],
+	'{{plan}}'
+
+      # $KCODE = 'n'
+      eq "\227\\\222\350", '�\��'
+    end
+
+    def ok_date(num, date)
+      assert_equal(num, Time.parse(date).to_i + Time::now.utc_offset)
+    end
+
+    def test_parsedate
+      ok_date 0, '1970-01-01'
+      ok_date 0, '19700101'
+      ok_date 0, '1970/01/01'
+      ok_date 0, '1970/1/1'
+    end
+
+    def test_plan
+      t_add_user
+
+      ok_wi [:div, [:h2, "Plan"], [:p, [:a, {:href=>".plan"},
+	    "Create a new plan"]]], '{{side_plan}}'
+
+      # Go create a new plan page.
+      res = session '/test/.plan'
+      ok_in ["New plan"], '//h1'
+      ok_attr({:action=>".plan", :method=>"POST"}, '//form')
+      ok_attr({:value=>"19700101", :class=>"focus", :name=>"date"}, '//input')
+      ok_attr({:value=>"Plan", :name=>"title"}, '//input[2]')
+
+      page = @site.create_new
+      page.store('t1')
+    end
+  end
+end