qwik2md 0.1.0

data/vendor/qwik/lib/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 => 'パスワード保護プラグイン',
+      :dd => 'ページをパスワードで保護することができます。',
+      :dc => "* 例
+ {{password(\"a password string\")}}
+このようなプラグインをページに埋込むと、
+そのページはパスワードで保護されます。
+
+'''注意:''' 現在はまだパスワードを解除する方法を提供してません。
+もしパスワードを忘れた場合は、ページを編集できなくなりますので、
+気をつけてください。
+"
+    }
+
+    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/lib/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 => '予定表示プラグイン',
+      :dd => '予定を表示します。',
+      :dc => '* 例
+ {{plan}}
+{{plan}}
+もし予定が登録されている場合は、このプラグインで表示されます。
+* 予定の登録方法
+一番下の「新しい予定を登録する」というリンクをたどって、
+新しい予定ページを作ってください。
+サイドメニューに予定が表示されるようになります。
+過去の予定は表示されません。また一年以上先の予定も表示されません。
+一ヶ月先程度の予定を登録してみてください。
+
+\'\'\'注意\'\'\' 以前はタグ記法による日付指定を採用していましたが、
+新しいバージョンから上記の新規予定ページ方式に切り替えました。
+御了承下さい。
+'
+    }
+
+    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

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

@@ -0,0 +1,230 @@
+# -*- 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 'open3'
+
+module Qwik
+  class Action
+    D_PluginPovray = {
+      :dt => 'PovRay plugin',
+      :dd => 'You can embed ray tracing rendered 3D CG.',
+      :dc => "* Example
+ {{povray
+ sphere { <0, 0, 9>, 3
+ finish { ambient 0.2 diffuse 0.8 phong 1 }
+ pigment { red 1 }
+ }
+ light_source { <-9, 9, 0> rgb 1 }
+ }}
+{{povray
+sphere { <0, 0, 9>, 3
+finish { ambient 0.2 diffuse 0.8 phong 1 }
+pigment { red 1 }
+}
+light_source { <-9, 9, 0> rgb 1 }
+}}
+- I recommend [[POVRay Short Code Contest, Round 3|http://astronomy.swin.edu.au/~pbourke/raytracing/scc3/final/]] for samples of POV-Ray source code.
+"
+    }
+
+    D_PluginPovray_ja = {
+      :dt => 'PovRayプラグイン',
+      :dd => 'レイトレーシングによる3D CGを埋め込めます。',
+      :dc => '* 例
+ {{povray
+ sphere { <0, 0, 9>, 3
+ finish { ambient 0.2 diffuse 0.8 phong 1 }
+ pigment { red 1 }
+ }
+ light_source { <-9, 9, 0> rgb 1 }
+ }}
+{{povray
+sphere { <0, 0, 9>, 3
+finish { ambient 0.2 diffuse 0.8 phong 1 }
+pigment { red 1 }
+}
+light_source { <-9, 9, 0> rgb 1 }
+}}
+- [[POVRay Short Code Contest, Round 3|http://astronomy.swin.edu.au/~pbourke/raytracing/scc3/final/]]などのサンプルを見てみると面白いかもしれません。
+'
+    }
+
+    MIN_COLS = 50
+    MIN_ROWS = 7
+    MAX_COLS = 100
+    MAX_ROWS = 50
+    def plg_povray
+      if ! povray_exist?
+	return [:div, {:class=>'povray'},
+	  [:p, 'No povray command.']
+	]
+      end
+
+      # Generate a povray file.
+      content = ''
+      content = yield if block_given?
+
+      pngfilename, stapath = povray_generate(content)
+
+      # @povray_num is global for an action.
+      @povray_num = 0 if ! defined?(@povray_num)
+      @povray_num += 1
+      action = "#{@req.base}.#{@povray_num}.povray"
+
+      cols = 0
+      rows = 1	# Add an empty line.
+      content.each_line {|line|
+	len = line.chomp.length
+	cols = len if cols < len
+	rows += 1
+      }
+      cols = MIN_COLS if cols < MIN_COLS
+      rows = MIN_ROWS if rows < MIN_ROWS
+      cols = MAX_COLS if MAX_COLS < cols
+      rows = MAX_ROWS if MAX_ROWS < rows
+
+      status = [:div, {:class=>'status'}]
+      begin
+	sta = stapath.read
+	st, et = sta.to_a
+	status << [:p, 'Start : ', Time.at(st.to_i).ymdax] if st
+	status << [:p, 'End : ', Time.at(et.to_i).ymdax] if et
+	status << [:p, 'Past : ', Time.at(et.to_i).ymdax] if et
+      rescue
+	status << [:p, 'The rendering is started.']
+      end
+
+      div = [:div, {:class=>'povray'},
+	[:img, {:src=>"#{@req.base}.files/#{pngfilename}"}],
+	[:br],
+	[:form, {:method=>'POST', :action=>action},
+	  [:textarea, {:name=>'t', :cols=>cols, :rows=>rows}, content],
+	  [:br],
+	  [:input, {:type=>'submit', :value=>_('Update')}]],
+	[:br],
+	status]
+
+      return div
+    end
+
+    POVRAY_CMD = '/usr/bin/povray'
+#   POVRAY_CMD = '/usr/local/bin/povray'
+    MV_CMD = '/bin/mv'
+    def povray_exist?
+      return POVRAY_CMD.path.exist?
+    end
+
+    def povray_generate(content)
+      files = @site.files(@req.base)
+      base = content.md5hex
+      povfilename = "#{base}.pov"
+      pngfilename = "#{base}.png"
+
+      povpath = files.path(povfilename)
+      pngpath = files.path(pngfilename)
+      pngtmppath = "/tmp/#{pngfilename}"
+
+      msgpath = files.path("#{base}.povmsg").path
+      stapath = files.path("#{base}.povsta").path
+
+      return pngfilename, stapath if stapath.exist?	# Already started.
+
+      files.overwrite(povfilename, content)
+
+      # Render it background.
+      t = Thread.new {
+	cmd = "#{POVRAY_CMD} #{povpath} -O#{pngtmppath}"
+	#system cmd
+	stapath.open('wb') {|sta|
+	  sta.puts Time.now.to_i.to_s
+	  msgpath.open('wb') {|msg|
+	    Open3.popen3(cmd) {|stdin, stdout, stderr|
+	      while line = stderr.gets
+		msg.print line
+	      end
+	    }
+	  }
+	  sta.puts Time.now.to_i.to_s
+	}
+	system "#{MV_CMD} #{pngtmppath} #{pngpath}"
+      }
+      return pngfilename, stapath
+    end
+
+    def ext_povray
+      c_require_post
+      c_require_page_exist
+
+      num = @req.ext_args[0].to_i
+      return c_nerror(_('Error')) if num < 1
+
+      text = @req.query['t']
+      return c_nerror(_('No text.')) if text.nil? || text.empty?
+      text = text.normalize_newline
+
+      begin
+	plugin_edit(:povray, num) {|content|
+	  text
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	return mcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('povray')	# TEXTAREA
+
+      url = "#{@req.base}.html"
+      return c_notice(_('Edit text done.'), url){
+	[[:h2, _('Edit text done.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPovray < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+      page.store '{{povray
+sphere { <0, 0, 9>, 3
+finish { ambient 0.2 diffuse 0.8 phong 1 }
+pigment { red 1 }
+}
+light_source { <-9, 9, 0> rgb 1 }
+}}'
+
+      res = session
+
+      return if ! @action.povray_exist?
+
+      res = session '/test/1.html'
+      ok_xp [:div, {:class=>"povray"},
+ [:img, {:src=>"1.files/4c5c412765d503e22d83bd5fdd4a1c80.png"}], [:br],
+ [:form, {:method=>"POST", :action=>"1.1.povray"},
+  [:textarea, {:name=>"t", :cols=>50, :rows=>7},
+   "sphere { <0, 0, 9>, 3\nfinish { ambient 0.2 diffuse 0.8 phong 1 }\npigment { red 1 }\n}\nlight_source { <-9, 9, 0> rgb 1 }\n"], [:br],
+  [:input, {:type=>"submit", :value=>"Update"}]], [:br],
+ [:div, {:class=>"status"}]],
+	"//div[@class='povray']"
+
+      files = @site.files('1')
+      ok files.exist?('4c5c412765d503e22d83bd5fdd4a1c80.pov')
+    end
+  end
+end