qwikdoc 0.0.1

data/vendor/qwik/act-christel.rb

@@ -0,0 +1,112 @@
+# -*- coding: cp932 -*-
+# 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_christel = {
+      :dt => 'Takigawa Christel plugin',
+      :dd => 'You can embed Takigawa Christel image.',
+      :dc => "
+Follow [[PluginChristel.describe]]"
+    }
+
+    D_PluginChristel = {
+      :dt => 'Takigawa Christel plugin',
+      :dd => 'You can embed Takigawa Christel image.',
+      :dc => "* Example
+{{christel
+This is Takigawa Christel plugin.
+}}
+ {{christel
+ This is Takigawa Christel plugin.
+ }}
+
+{{christel
+You can embed images.
+http://qwik.jp/.theme/i/login_qwik_logo.gif
+}}
+ {{christel
+ You can embed images.
+ http://qwik.jp/.theme/i/login_qwik_logo.gif
+ }}
+
+{{christel(640)
+You can see bigger one.
+}}
+ {{christel(640)
+ You can see bigger one.
+ }}
+"
+    }
+
+    D_PluginChristel_ja = {
+      :dt => '���N���X�e���v���O�C��',
+      :dd => '���N���X�e������ɑ��ɂ���ׂ��Ă��炢�܂��B',
+      :dc => "* Example
+{{christel
+���N���X�e���v���O�C���ł�
+}}
+ {{christel
+ ���N���X�e���v���O�C���ł�
+ }}
+
+{{christel
+�摜�����ߍ��߂܂�
+http://qwik.jp/.theme/i/login_qwik_logo.gif
+}}
+ {{christel
+ �摜�����ߍ��߂܂�
+ http://qwik.jp/.theme/i/login_qwik_logo.gif
+ }}
+
+{{christel(640)
+�傫�����Ă݂܂���
+}}
+ {{christel(640)
+ �傫�����Ă݂܂���
+ }}
+"
+    }
+
+    def plg_christel(width = 320)
+      width = width.to_i.to_s
+      content = yield
+      message, image_url = content.to_a
+      message.chomp!
+      image_url.chomp! if image_url
+      query_str = {
+	:m => message.set_page_charset.to_euc,
+	:u => image_url
+      }.to_query_string
+      url = "http://gedo-style.com/crstl/crstl.php?#{query_str}"
+      return [:img, {:src=>url, :width=>width}]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActChristel < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      ok_wi([:img, {:width=>'320',
+		:src=>"http://gedo-style.com/crstl/crstl.php?m=a"}],
+	    "{{christel\na\n}}")
+      ok_wi([:img, {:width=>'320',
+		:src=>"http://gedo-style.com/crstl/crstl.php?m=a&u=b"}],
+	    "{{christel\na\nb\n}}")
+      ok_wi([:img, {:width=>'640',
+		:src=>"http://gedo-style.com/crstl/crstl.php?m=a"}],
+	    "{{christel(640)\na\n}}")
+    end
+  end
+end

data/vendor/qwik/act-chronology.rb

@@ -0,0 +1,149 @@
+# 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-timeline'
+
+module Qwik
+  class Action
+    D_ExtChronology = {
+      :dt => 'Chronology of site',
+      :dd => "You can see when the pages are created and updated.",
+      :dc => "* How to
+Please go [[.chronology]] page to see the chronology of this site.
+"
+    }
+
+    D_ExtChronology_ja = {
+      :dt => '�N�\�@�\ ',
+      :dd => "�T�C�g�̃y�[�W�����쐬����A�ҏW����Ă����̂����ꗗ�ł��܂��B",
+      :dc => '* �g����
+[[.chronology]]�y�[�W�ŁA���̃T�C�g�̔N�\���\�����܂��B
+'
+    }
+
+    def act_chronology
+      c_require_pagename
+     #c_require_member
+
+      timeline = @site.timeline
+      timeline.calc_history
+      divs = chronology_make_divs(timeline)
+      return chronology_show(divs)
+    end
+    alias act_time_walker act_chronology	# Obsolete
+
+    CHRONOLOGY_WIDTH  = 950
+    CHRONOLOGY_HEIGHT = 550
+
+    def chronology_make_divs(timeline)
+#      height = 
+
+      times = timeline.times
+      pages_history = timeline.pages_history
+      page_min = timeline.page_min
+      site_min = timeline.site_min
+      site_duration = timeline.site_duration
+
+      return [:p, "No files here."] if times.nil?
+      page_num = times.length	# Total page number
+      return [:p, "No files here."] if page_num == 0
+
+      h_span = CHRONOLOGY_HEIGHT / page_num
+      x_offset = 60
+      y_offset = 50
+
+      divs = []
+      num = 0
+      pages_history.each {|key|
+	ar = times[key]
+
+	pm_time = page_min[key]
+
+	x = 10
+	y = y_offset + CHRONOLOGY_HEIGHT * num / page_num
+
+	page = @site[key]
+	next if page.nil?
+	title = page.get_title
+	url = page.url
+
+	divs << [:div, {:title=>"#{title} | #{pm_time.ymd}",
+	    :class=>'time_title',
+	    :style=>"position:absolute;left:#{x}px;top:#{y}px;height:#{h_span}px;"},
+	  [:a, {:href=>url}, title]]
+
+	num += 1
+	ar.each {|time|
+	  past_time = time - site_min
+	  x = x_offset + (CHRONOLOGY_WIDTH-x_offset) * past_time / site_duration
+	  divs << [:div, {:title=>"#{title} | #{time.ymd}",
+	      :class=>'time_update',
+	      :style=>"left:#{x}px;top:#{y}px;width:10px;height:#{h_span}px;"},
+	    [:a, {:href=>url}, '_']]
+	}
+      }
+
+      return divs
+    end
+
+    def chronology_show(divs)
+      ar = []
+
+      ar << [:style, "@import '.theme/css/wema.css';"]
+
+      ar << [:style, "
+.time_update {
+  margin: 0;
+  padding: 0;
+  position: absolute;
+  background-color: #6dd;
+  border: 1px outset #9ff;
+}
+.time_update a {
+  margin: 0;
+  padding: 0;
+}
+"]
+
+      section = []
+      section << [:div, {:id=>"chronology"}, '']
+      section << divs
+      section << [:div, {:id=>'lines'}, '']
+      ar << [:div, {:class=>'day'},
+	[:div, {:class=>'section'},
+	  section]]
+
+      ar << [:script,
+	{:type=>'text/javascript', :src=>'.theme/js/wema.js'}, '']
+      ar << [:script,
+	{:type=>'text/javascript',:src=>'.theme/js/history.js'}, '']
+
+      title = _('Chronology') + " | #{@site.sitename}"
+      return c_plain(title) { ar }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActChronology < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+      page.store '* t1'		# Store this page first
+      page.store '* t2'		# Store this page second
+
+      res = session '/test/.chronology'
+      ok_in ['Chronology | test'], '//title'
+    end
+  end
+end

data/vendor/qwik/act-code.rb

@@ -0,0 +1,155 @@
+# -*- 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.
+
+begin
+  require 'GD'
+  $have_gd = true
+rescue LoadError
+  $have_gd = false
+end
+
+module Qwik
+  class Action
+    D_code = {
+      :dt => 'Code input plugin',
+      :dd => 'You can input code on the page.',
+      :dc => "
+Follow [[PluginCode.describe]]"
+    }
+
+    D_PluginCode = {
+      :dt => 'Code input plugin',
+      :dd => 'You can input code on the page.',
+      :dc => "* Examples
+ {{code
+ puts \"hello, world!\"
+ puts \"hello, qwik users!\"
+ }}
+{{code
+puts \"hello, world!\"
+puts \"hello, qwik users!\"
+}}
+{{code
+#include <stdio.h>
+
+void main(){
+  printf(\"hello, world!\\n\");
+}
+}}
+"
+    }
+
+    D_PluginCode_ja = {
+      :dt => '�R�[�h�E�v���O�C��',
+      :dd => '�y�[�W���ɃR�[�h�����߂��ނƂ��Ɏg���܂��B',
+      :dc => "* ��
+ {{code
+ puts \"hello, world!\"
+ puts \"hello, qwik users!\"
+ }}
+{{code
+puts \"hello, world!\"
+puts \"hello, qwik users!\"
+}}
+{{code
+#include <stdio.h>
+
+void main(){
+  printf(\"hello, world!\\n\");
+}
+}}
+"
+    }
+
+    def plg_code(filename=nil, base_linenum=1)
+      content = ''
+      content = yield if block_given?
+      pre = [:pre]
+      content.each_with_index {|line, index|
+	line.chomp!
+	linenum = index + base_linenum.to_i
+	klass = 'line '
+	klass += if linenum % 2 == 0 then 'even' else 'odd' end
+	style = "background:url(.num/#{linenum}.png) no-repeat;"
+	pre << [:span, {:class=>klass, :style=>style}, line]
+	pre << "\n"
+      }
+      return [:div, {:class=>'code'}, pre]
+    end
+
+    def act_num
+      return c_nerror if ! $have_gd
+      args = @req.path_args
+      return c_nerror if args.nil? || args.empty?
+      filename = args.first
+      return c_nerror unless /\A([0-9]+)\.png\z/ =~ filename
+      str = $1
+      return c_nerror if 10 < str.length
+      files = @site.files('FrontPage')
+      if ! files.exist?(filename)
+	png = Action.generate_png(str)
+	files.put(filename, png)
+      end
+      path = files.path(filename)
+      return c_simple_send(path, 'image/png')
+    end
+
+    def self.generate_png(str)
+      return nil if ! $have_gd
+      font, fw, fh = GD::Font::TinyFont, 5, 8
+      str = str.to_s
+      width = fw * str.length
+      height = fh
+      img = GD::Image.new(width, height)
+      white = img.colorAllocate(255, 255, 255)
+      color = img.colorAllocate(127, 127, 127)
+      img.transparent(white)
+      img.string(font, 0, 0, str, color)
+      return img.pngStr
+    end
+  end
+end
+
+if $0 == __FILE__
+  $LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActCode < Test::Unit::TestCase
+    include TestSession
+
+    def test_code
+      res = session
+      ok_wi [:div, {:class=>"code"},
+	[:pre, [:span, {:style=>"background:url(.num/1.png) no-repeat;",
+	      :class=>"line odd"}, "t"], "\n"]],
+	"{{code\nt\n}}"
+    end
+
+    def test_num
+      return unless $have_gd
+
+      t_add_user
+
+      res = session('/test/.num/1.png')
+      eq 'image/png', res['Content-Type']
+      str = res.body
+      eq "\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\000\005\000\000\000\010\001\003\000\000\000\v?\247x\000\000\000\006PLTE\377\377\377\177\177\177br\365\207\000\000\000\001tRNS\000@\346\330f\000\000\000\024IDAT\010\231c``P`H\000b\020,``\000\000\t\300\001Q2\2179L\000\000\000\000IEND\256B`\202", str
+
+      res = session('/test/.num/1234567890.png')
+      str = res.body
+#      eq "\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\0002\000\000\000\010\001\003\000\000\000\201\020>9\000\000\000\006PLTE\377\377\377\177\177\177br\365\207\000\000\000\001tRNS\000@\346\330f\000\000\000=IDAT\010\231c`\200\002e\t\177\3433\211\f\f)KN8\004Mj`P\350\364\v\350\331\324\300\240\310\3720cRP\003\203\222\212\247\247\220P\003C\371\f7C\236D\230.\006\000\352y\016\246.\260\314\346\000\000\000\000IEND\256B`\202", str
+    end
+
+    def test_generate_png
+      return if $0 != __FILE__		# Only for separated test.
+      png = Qwik::Action.generate_png(1234567890)
+      # 'tmp.png'.path.write(png)
+#      eq "\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\0002\000\000\000\010\001\003\000\000\000\201\020>9\000\000\000\006PLTE\377\377\377\177\177\177br\365\207\000\000\000\001tRNS\000@\346\330f\000\000\000=IDAT\010\231c`\200\002e\t\177\3433\211\f\f)KN8\004Mj`P\350\364\v\350\331\324\300\240\310\3720cRP\003\203\222\212\247\247\220P\003C\371\f7C\236D\230.\006\000\352y\016\246.\260\314\346\000\000\000\000IEND\256B`\202", png
+    end
+  end
+end

data/vendor/qwik/act-comment.rb

@@ -0,0 +1,554 @@
+# -*- 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? '..'
+
+module Qwik
+  class Action
+    D_PluginComment = {
+      :dt => 'Comment plugin',
+      :dd => 'You can show comment field.',
+      :dc => "
+* Multiline comment plugin
+You can show a multi line comment field.
+{{mcomment}}
+ {{mcomment}}
+Add (1) to args, then you see the newest comment on the top.
+ {{mcomment(1)}}
+* Hiki like comment plugin
+You can show a Hiki like comment field.
+ {{hcomment}}
+{{hcomment}}
+Add (1) to args, then you see the newest comment on the top.
+ {{hcomment(1)}}
+* Old comment plugin
+This plugin is obsolete.  Please use 'mcomment' plugin instead.
+ {{comment}}
+{{comment}}
+"
+    }
+
+    D_PluginComment_ja = {
+      :dt => '�R�����g�E�v���O�C��',
+      :dd => '�R�����g���͗���\�����܂��B',
+      :dc => "
+* �����s�R�����g�E�v���O�C��
+�����s���͂ł���R�����g�E�v���O�C���ł��B
+{{mcomment}}
+ {{mcomment}}
+���̂悤�ɁA(1)���‚���ƁA�V�����R�����g����ԏ�ɂ‚��悤�ɂȂ�܂��B
+ {{mcomment(1)}}
+* Hiki���R�����g�E�v���O�C��
+Hiki�̃R�����g�E�v���O�C���Ƃقړ����g�������ł��܂��B
+{{hcomment}}
+ {{hcomment}}
+���l�ɁA(1)���‚���ƁA�V�����R�����g����ԏ�ɂ‚��悤�ɂȂ�܂��B
+ {{hcomment(1)}}
+* ���R�����g�E�v���O�C��
+�Â��d�l�̃R�����g�v���O�C���ł��̂ŁA���p�͐������܂���B
+�umcomment�v�v���O�C���𐄏����܂��B
+{{comment}}
+ {{comment}}
+"
+    }
+
+    # ============================== comment
+    def plg_comment
+      action = "#{@req.base}.comment"
+      user = @req.user
+      return [:div, {:class=>'comment'},
+	[:form, {:action=>action},
+	  [:dl,
+	    [:dt, _('User')],
+	    [:dd, [:em, user]],
+	    [:dt, _('Message')],
+	    [:dd, [:textarea, {:name=>'msg', :cols=>'40', :rows=>'7'}, '']],
+	    [:dd, [:input, {:type=>'submit', :value=>'POST'}]]]]]
+    end
+
+    def ext_comment
+      user = MailAddress.obfuscate(@req.user)
+      ymdx = @req.start_time.ymdx
+
+      msg = "\n" + @req.query['msg']
+      msg = msg.normalize_newline
+      msg = msg.gsub("\n", '{{br}}')
+      content = ":#{user} (#{ymdx}):#{msg}\n"
+
+      page = @site[@req.base]
+      page.add(content)
+      c_make_log('comment')	# COMMENT
+      url = @req.base+'.html'
+      return c_notice(_('Message has been added.'), url) {
+	[[:h2, _('Message has been added.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+
+    # ============================== Hiki style comment
+    def plg_hcomment(style='0')
+      action = @req.base+'.hcomment'
+
+      style = style.to_i
+      style = 0 if style != 1
+
+      # @hcomment_num is global for an action.
+      @hcomment_num = 0 if !defined?(@hcomment_num)
+      @hcomment_num += 1
+      num = @hcomment_num
+
+      return [:div, {:class=>'hcomment'},
+	[:form, {:method=>'POST', :action=>action},
+	  _('Name'), ': ', [:input, {:name=>'name', :size=>10}], ' ',
+	  _('Comment'), ': ', [:input, {:name=>'msg', :size=>50}], ' ',
+	  [:input, {:type=>'submit', :name=>'comment', :value=>_('Submit')}],
+	  [:input, {:type=>'hidden', :name=>'comment_no', :value=>num}],
+	  [:input, {:type=>'hidden', :name=>'style', :value=>style}]]]
+    end
+
+    def ext_hcomment
+      #c_require_login	# Guest can post.
+      c_require_login	# Guest cannot post.
+      c_require_post
+
+      date = @req.start_time.ymdx
+      user = @req.query['name']
+      user = _('Anonymous') if user.nil? || user.empty?
+      msg = @req.query['msg']
+      return c_nerror('no message') if msg.nil? || msg.empty?
+      content = "- #{date} '''#{user}''' : #{msg}\n"
+
+      comment_no = @req.query['comment_no'].to_i
+      comment_no = 1 if comment_no < 1
+      style = @req.query['style'].to_i
+      style = 0 if style != 1
+
+      page = @site[@req.base]
+      str = page.load
+      md5 = str.md5hex
+
+      new_str, written = hcomment_add_to_page(str, comment_no, style, content)
+
+      return c_nerror(_('Failed')) if !written
+
+      begin
+	page.put_with_md5(new_str, md5)
+      rescue PageCollisionError
+	return hcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('hcomment') # COMMENT
+
+      url = @req.base+'.html'
+      return c_notice(_('Add a comment.'), url){
+	[[:h2, _('Message has been added.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+
+    def hcomment_error(msg, url)
+	return c_nerror(msg){
+	  [[:h2, msg],
+	    [:p, msg],
+	    [:p, _('Go back and input again.')],
+	    [:dl,
+	      [:dt, _('Name')], [:dd, user],
+	      [:dt, _('Comment')], [:dd, msg],
+	    [:p, [:a, {:href=>url}, _('Go back')]]]]
+      }
+    end
+
+    def hcomment_add_to_page(str, comment_no, style, content)
+      new_str = ''
+      num = 1
+      written = false
+      str.each {|line|
+	if /\A\{\{hcomment/ =~ line && !written
+	  if num == comment_no
+	    new_str << content if style == 0 # new comment is on the bottom.
+	    new_str << line
+	    new_str << content if style == 1 # new comment is on the top.
+	    written = true
+	  else
+	    new_str << line
+	    num += 1
+	  end
+	else
+	  new_str << line
+	end
+      }
+      return new_str, written
+    end
+
+    # ============================== Multiline comment
+    def plg_nomore_mcomment(style='0', cols='50', rows='4')
+      # Just show the content. No more post.
+      content = ''
+      content = yield if block_given?
+      messages = mcomment_construct_messages(content)
+      div = [:div, {:class=>'mcomment'}]
+      div += messages
+      return div
+    end
+
+    def plg_mcomment(style='0', cols='50', rows='4')
+      # @mcomment_num is global for an action.
+      @mcomment_num = 0 if !defined?(@mcomment_num)
+      @mcomment_num += 1
+      num = @mcomment_num
+      style = style.to_i
+      style = 0 if style != 1
+      action = "#{@req.base}.#{num}.#{style}.mcomment"
+
+      content = ''
+      content = yield if block_given?
+      messages = mcomment_construct_messages(content)
+
+      div = [:div, {:class=>'mcomment'}]
+      div += messages if style == 0
+
+      form = [:form, {:method=>'POST', :action=>action},
+	[:p, _('Name'), ': ', [:input, {:name=>'u', :size=>'30'}]],
+	[:p, _('Comment'), ': ',
+	  [:textarea, {:name=>'m', :cols=>cols, :rows=>rows}, '']],
+	[:input, {:type=>'submit', :value=>_('Submit')}]]
+
+      form = [:form, {:method=>'POST', :action=>action},
+	[:table,
+	  [:tr,
+	    [:th, _('Name')],
+	    [:td, [:input, {:name=>'u', :size=>'30'}]]],
+	  [:tr,
+	    [:th, _('Comment')],
+	    [:td, [:textarea, {:name=>'m', :cols=>cols, :rows=>rows}, '']]],
+	  [:tr,
+	    [:th, ''],
+	    [:td, [:input, {:type=>'submit', :value=>_('Submit')}]]]]]
+
+      div << form
+
+      div += messages if style == 1
+      return div
+    end
+
+    def mcomment_construct_messages(content)
+      messages = []
+      content.each {|line|
+	line.chomp!
+	dummy, date, user, msg = line.split('|', 4)
+	date = Time.at(date.to_i).ymd
+	msg ||= ''
+	msg.gsub!(/\\n/, "\n")
+	mm = []
+	msg.each {|m|
+	  mm << m
+	  mm << [:br]
+	}
+	messages << [:div, {:class=>'msg'},
+	  [:dl, [:dt, [:span, {:class=>'date'}, date],
+	      [:span, {:class=>'user'}, user]], [:dd, *mm]]]
+      }
+      return messages
+    end
+
+    def ext_mcomment
+      #c_require_login	# Guest can also post comment.
+      c_require_login	# Guest cannot post.
+      c_require_post
+      c_require_page_exist
+
+      date = @req.start_time.to_i
+
+      num = @req.ext_args[0].to_i
+      return c_nerror(_('Error')) if num < 1
+
+      style = @req.ext_args[1].to_i
+      style = 0 if style != 1
+
+      user = @req.query['u']
+      user = _('Anonymous') if user.nil? || user.empty?
+
+      msg = @req.query['m']
+      return c_nerror(_('No message.')) if msg.nil? || msg.empty?
+      msg = msg.normalize_newline
+      msg.gsub!("\n", "\\n")
+
+      comment = "|#{date}|#{user}|#{msg}\n"
+
+      begin
+	plugin_edit(:mcomment, num) {|content|
+	  if style == 0
+	    content += comment
+	  else
+	    content = comment + content
+	  end
+	  content
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	return mcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('mcomment')	# COMMENT
+
+      url = "#{@req.base}.html"
+      return c_notice(_('Add a comment.'), url){
+	[[:h2, _('Message has been added.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+
+    def mcomment_error(msg, url)
+	return c_nerror(msg){
+	  [[:h2, msg],
+	    [:p, msg],
+	    [:p, _('Go back and input again.')],
+	    [:dl,
+	      [:dt, _('Name')], [:dd, user],
+	      [:dt, _('Comment')], [:dd, msg],
+	    [:p, [:a, {:href=>url}, _('Go back')]]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActComment < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_comment
+      t_add_user
+      ok_wi([:div, {:class=>'comment'},
+	      [:form, {:action=>'1.comment'},
+		[:dl,
+		  [:dt, 'User'],
+		  [:dd, [:em, 'user@e.com']],
+		  [:dt, 'Message'],
+		  [:dd, [:textarea,
+		      {:rows=>'7', :name=>'msg', :cols=>'40'}, '']],
+		  [:dd, [:input, {:value=>'POST', :type=>'submit'}]]]]],
+	    '{{comment}}')
+    end
+
+    def test_comment
+      t_add_user
+
+      page = @site.create_new
+      page.store '{{comment}}'
+
+      res = session('/test/1.html')
+      ok_xp([:textarea, {:cols=>'40', :rows=>'7', :name=>'msg'}, ''],
+	    '//textarea')
+
+      # The 1st comment.
+      res = session('/test/1.comment?msg=Hi')
+      ok_title('Message has been added.')
+
+      res = session('/test/1.html')
+      ok_xp([:dl, [:dt, 'user@e... (1970-01-01 09:00:00)'], [:dd, [:br], 'Hi']],
+	    "//div[@class='section']/dl[2]")
+
+      page = @site['_SiteChanged']
+      assert_match(/^,[.0-9]+,user@e.com,comment,1$/, page.load)
+
+      # The 2nd comment.
+      res = session('/test/1.comment?msg=hello%0aworld')
+      ok_title('Message has been added.')
+
+      res = session('/test/1.html')
+      ok_xp([:dl,
+	      [:dt, 'user@e... (1970-01-01 09:00:00)'],
+	      [:dd, [:br], 'Hi'],
+	      [:dt, 'user@e... (1970-01-01 09:00:00)'],
+	      [:dd, [:br], 'hello', [:br], 'world']],
+	    '//div[@class="section"]/dl[2]')
+
+      page = @site['_SiteChanged']
+      assert_match(/^,[.0-9]+,user@e.com,comment,1$/, page.load)
+    end
+
+    def test_plg_hcomment
+      ok_wi([:div, {:class=>'hcomment'},
+	      [:form, {:action=>'1.hcomment', :method=>'POST'},
+		'Name', ': ', [:input, {:size=>10, :name=>'name'}], ' ',
+		'Comment', ': ', [:input, {:size=>50, :name=>'msg'}], ' ',
+		[:input, {:value=>'Submit', :type=>'submit', :name=>'comment'}],
+		[:input, {:value=>1, :type=>'hidden', :name=>'comment_no'}],
+		[:input, {:value=>0, :type=>'hidden', :name=>'style'}]]],
+	    '{{hcomment}}')
+    end
+
+    def test_ext_hcomment
+      t_add_user
+
+      page = @site.create_new
+      page.store("{{hcomment}}\n")
+      res = session('POST /test/1.hcomment?name=n&msg=m&comment_no=1&style=0')
+      ok_eq("- 1970-01-01 09:00:00 '''n''' : m\n{{hcomment}}\n",
+	    page.load)
+
+      page.store("{{hcomment(1)}}\n")
+      res = session('POST /test/1.hcomment?name=n&msg=m&comment_no=1&style=1')
+      ok_eq("{{hcomment(1)}}\n- 1970-01-01 09:00:00 '''n''' : m\n",
+	    page.load)
+    end
+
+    def test_plg_mcomment
+      ok_wi([:div, {:class=>'mcomment'},
+	      [:form, {:method=>'POST', :action=>'1.1.0.mcomment'},
+		[:table,
+		  [:tr, [:th, 'Name'],
+		    [:td, [:input, {:size=>'30', :name=>'u'}]]],
+		  [:tr,
+		    [:th, 'Comment'],
+		    [:td, [:textarea,
+			{:cols=>'50', :rows=>'4', :name=>'m'}, '']]],
+		  [:tr, [:th, ''],
+		    [:td, [:input, {:value=>'Submit', :type=>'submit'}]]]]]],
+	    "{{mcomment}}")
+      ok_wi([:div, {:class=>'mcomment'},
+	      [:div, {:class=>'msg'},
+		[:dl, [:dt,
+		    [:span, {:class=>'date'}, '1970-01-01'],
+		    [:span, {:class=>'user'}, 'u']],
+		  [:dd, 'm', [:br]]]],
+	      [:form, {:method=>'POST', :action=>'1.1.0.mcomment'},
+		[:table,
+		  [:tr, [:th, 'Name'],
+		    [:td, [:input, {:size=>'30', :name=>'u'}]]],
+		  [:tr,[:th, 'Comment'],
+		    [:td, [:textarea,
+			{:cols=>'50', :rows=>'4', :name=>'m'}, '']]],
+		  [:tr, [:th, ''],
+		    [:td, [:input, {:value=>'Submit', :type=>'submit'}]]]]]],
+	    "{{mcomment
+|0|u|m
+}}")
+      ok_wi([:div, {:class=>'mcomment'},
+	      [:form, {:method=>'POST', :action=>'1.1.1.mcomment'},
+		[:table,
+		  [:tr, [:th, 'Name'],
+		    [:td, [:input, {:size=>'30', :name=>'u'}]]],
+		  [:tr, [:th, 'Comment'],
+		    [:td, [:textarea,
+			{:cols=>'50', :rows=>'4', :name=>'m'}, '']]],
+		  [:tr, [:th, ''],
+		    [:td, [:input, {:value=>'Submit', :type=>'submit'}]]]]],
+	      [:div, {:class=>'msg'},
+		[:dl, [:dt,
+		    [:span, {:class=>'date'}, '1970-01-01'],
+		    [:span, {:class=>'user'}, 'u']],
+		  [:dd, 'm', [:br]]]]],
+	    "{{mcomment(1)
+|0|u|m
+}}")
+    end
+
+    def test_ext_mcomment
+      t_add_user
+
+      page = @site.create_new
+      page.store("{{mcomment}}\n")
+      res = session('POST /test/1.html')
+      ok_xp([:div, {:class=>'mcomment'},
+	      [:form, {:method=>'POST', :action=>'1.1.0.mcomment'},
+		[:table,
+		  [:tr, [:th, 'Name'],
+		    [:td, [:input, {:size=>'30', :name=>'u'}]]],
+		  [:tr, [:th, 'Comment'],
+		    [:td, [:textarea,
+			{:cols=>'50', :rows=>'4', :name=>'m'}, '']]],
+		  [:tr, [:th, ''],
+		    [:td, [:input, {:value=>'Submit', :type=>'submit'}]]]]]],
+	    "//div[@class='mcomment']")
+
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m")
+      eq "{{mcomment
+|0|u|m
+}}
+", page.load
+
+      res = session("POST /test/1.1.0.mcomment?u=u2&m=m2")
+      eq "{{mcomment
+|0|u|m
+|0|u2|m2
+}}
+", page.load
+
+      page.store("{{mcomment(1)}}
+")
+      res = session("POST /test/1.1.1.mcomment?u=u&m=m")
+      eq "{{mcomment(1)
+|0|u|m
+}}
+", page.load
+
+      res = session("POST /test/1.1.1.mcomment?u=u2&m=m2")
+      eq "{{mcomment(1)
+|0|u2|m2
+|0|u|m
+}}
+", page.load
+
+      page.store("{{mcomment}}
+{{mcomment}}
+")
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m")
+      eq "{{mcomment
+|0|u|m
+}}
+{{mcomment}}
+", page.load
+
+      res = session("POST /test/1.2.0.mcomment?u=u2&m=m2")
+      eq "{{mcomment
+|0|u|m
+}}
+{{mcomment
+|0|u2|m2
+}}
+", page.load
+    end
+
+    def test_ext_mcomment2
+      t_add_user
+
+      page = @site.create_new
+      page.store("{{mcomment}}\n")
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m\n")
+      eq '{{mcomment
+|0|u|m\n
+}}
+', page.load
+
+      page.store("{{mcomment}}\n")
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m\r\n")
+      eq '{{mcomment
+|0|u|m\n
+}}
+', page.load
+
+      page.store("{{mcomment}}\n")
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m\r")
+      eq '{{mcomment
+|0|u|m\n
+}}
+', page.load
+
+      page.store("{{mcomment}}\n")
+      res = session("POST /test/1.1.0.mcomment?u=u&m=m\n\r")
+      eq '{{mcomment
+|0|u|m\n\n
+}}
+', page.load
+    end
+  end
+end