qwikdoc 0.0.1

data/vendor/qwik/act-getpass.rb

@@ -0,0 +1,295 @@
+# -*- 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/mail'
+require 'qwik/util-sendmail'
+
+module Qwik
+  class Action
+    # Send password by e-mail.
+    def pre_act_getpass
+      mail = @req.query['mail']
+
+      if mail.nil?
+	user = @req.user
+	if ! @site.is_open? && user && ! @site.member.exist?(user)
+	  raise RequireMember
+	end
+
+	return getpass_show_form
+      end
+
+      if ! MailAddress.valid?(mail)
+	return c_nerror(_('Invalid mail address')) {
+	  [[:p, [:em, mail], [:br],
+	      _('The mail address format is wrong.'), [:br],
+	      _('Please confirm the input again.')],
+	    [:p, [:a, {:href=>'.getpass'}, _('Please access again.')]]]
+	}
+      end
+
+      if ! @site.is_open? && ! @site.member.exist?(mail)
+	ml = @site.ml_address
+	return getpass_not_member(mail, ml)
+      end
+
+      passmail = generate_password_mail(mail)
+      sendmail = Sendmail.new(@config.smtp_host, @config.smtp_port,
+			      @config.test)
+      begin
+	sendmail.send(passmail)
+      rescue
+	return c_nerror(_('Send Password Error')) {
+	  [[:p, _('Send failed because of system error.')],
+	    [:p, _('Please contact the administrator.')],
+	    [:p, [:a, {:href=>'.login'}, _('Go back to Login screen')]]]
+	}
+      end
+
+      return c_notice(_('Send Password done')) {
+	[[:p, {:style=>'margin: 1.5em 0'},
+	    _('I send the password to this mail address.'), [:br],
+	    _('Please check your mailbox.')],
+	  [:p, {:style=>'margin: 1.5em 0'}, [:em, mail]],
+	  [:hr],
+	  [:p, [:a, {:href=>'.login'}, _('Go back to Login screen')]]]
+      }
+    end
+
+    def getpass_show_form
+      c_notice(_('Get Password')) {
+	[[:h2, _('You will receive the password by e-mail.')],
+	  [:p, _('Please input your mail address.')],
+	  getpass_form,
+	  [:p, [:a, {:href=>'.login'}, _('Go back to Login screen')]]]
+      }
+    end
+
+    def getpass_form(form_style='text-align: center; margin: 32px 0 48px;',
+		     div_style='margin: 16px 0 8px', klass='focus')
+      return [:form, {:action=>'.getpass',
+	  :style=>form_style},
+	[:div, {:style=>div_style},
+	  [:em, _('Mail address'), ': '], 
+	  [:input,
+	    {:name=>'mail', :size=>'40', :istyle=>'3', :class=>klass}]],
+	[:div, {:class=>'rightbutton'},
+	  [:input, {:type=>'submit', :value=>_('Send')}]]]
+    end
+
+    def getpass_not_member(user, ml)
+      c_nerror(_('Members Only')) {
+	  [[:p, _('You input this e-mail address as user ID.'), [:br],
+	    [:strong, user]],
+	  [:p, _('This user with this ID is not a member of this group.'), [:br],
+	    [:strong, ml]],
+	  [:p, _('Only the member of this group can get a password.')],
+	  [:p, [:a, {:href=>'.getpass'}, _('Go back')]]]
+	}
+    end
+
+    private
+
+    def generate_password_mail(user)
+      password   = @memory.passgen.generate(user)
+
+      msg = ''
+      msg << _('This is your user name and password: ')+"#{@site.host_url}\n"
+      msg << "\n"
+      msg << _('Username')+":	#{user}\n"
+      msg << _('Password')+":	#{password}\n"
+      msg << "\n"
+      msg << _('Please access login page')+" #{@site.site_url}.login\n"
+      msg << "\n"
+      msg << _('You can input the user name and password from this URL automatically.')+"\n"
+      msg << "#{@site.site_url}.login?user=#{user}&pass=#{password}\n"
+
+      mail = {
+	:from    => @site.ml_address,
+	:to      => user,
+	:subject => _('Your password:')+" #{@site.host_url}",
+	:content => msg,
+      }
+      return mail
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/test-module-public'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActGetPass < Test::Unit::TestCase
+    include TestSession
+
+    def test_private_site
+      # Try to see a get password page, but you can't.
+      res = session '/test/.getpass'
+      ok_title 'Members Only'
+
+      # But you can see the page without login.
+      res = session('/test/.getpass') {|req|
+	req.cookies.clear
+      }
+      ok_title 'Get Password'
+
+      t_add_user
+      eq ",user@e.com,\n", @site['_SiteMember'].load
+      eq false, @site.is_open?
+
+      # See get password page.
+      res = session '/test/.getpass'
+      ok_title 'Get Password'
+      ok_in ['Get Password'], 'h1'
+      ok_xp [:input, {:istyle=>'3', :size=>'40', :class=>'focus',
+	  :name=>'mail'}], '//input'
+      ok_xp [:input, {:value=>'Send', :type=>'submit'}], '//input[2]'
+
+      # Invalid mail address
+      res = session '/test/.getpass?mail=wrong@mail@address'
+      ok_title 'Invalid mail address'
+
+      # You can not get pass if you are not a member.
+      res = session '/test/.getpass?mail=guest@example.com'
+      ok_title 'Members Only'
+
+      # Input your mail address
+      res = session '/test/.getpass?mail=user@e.com'
+      ok_title 'Send Password done'
+      ok_in ['user@e.com'], 'em'
+      eq ['test@q.example.com', 'user@e.com'], $smtp_sendmail[2..3]
+      assert_match /user@e.com/, $smtp_sendmail[4]
+      assert_match /95988593/, $smtp_sendmail[4]
+      header =
+"From: test@q.example.com
+To: user@e.com
+Subject: Your password: http://example.com
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+"
+      body = 'This is your user name and password: http://example.com
+
+Username:	user@e.com
+Password:	95988593
+
+Please access login page http://example.com/test/.login
+
+You can input the user name and password from this URL automatically.
+http://example.com/test/.login?user=user@e.com&pass=95988593
+
+'.set_sourcecode_charset
+      eq header+body.to_mail_charset, $smtp_sendmail[4]
+
+      # Input your mail address in Japanese mode.
+      res = session('/test/.getpass?mail=user@e.com') {|req|
+	req.accept_language = ['ja']
+      }
+      ok_title '�p�X���[�h���M����'
+      ok_in ['user@e.com'], 'em'
+      eq ['test@q.example.com', 'user@e.com'], $smtp_sendmail[2..3]
+      assert_match /user@e.com/, $smtp_sendmail[4]
+      assert_match /95988593/, $smtp_sendmail[4]
+      header =
+"From: test@q.example.com
+To: user@e.com
+Subject: =?ISO-2022-JP?B?GyRCJVElOSVvITwlSRsoQiA=?=: http://example.com
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+"
+      body =
+'���̃T�C�g�ɂ����郆�[�U���ƃp�X���[�h�ł� : http://example.com
+
+���[�U��:	user@e.com
+�p�X���[�h:	95988593
+
+���O�C���y�[�W�ɃA�N�Z�X���Ă������� : http://example.com/test/.login
+
+���LURL�ɃA�N�Z�X����ƁA�����I�Ƀ��[�U�[���ƃp�X���[�h����͂��܂��B
+http://example.com/test/.login?user=user@e.com&pass=95988593
+
+'.set_sourcecode_charset
+      str = header+body.to_mail_charset
+      eq str, $smtp_sendmail[4]
+    end
+
+    def nu_test_obsolete_format
+      t_add_user
+      res = session '/test/GetPass.html'
+      ok_in ['Get Password'], 'title'
+    end
+
+    def test_open_site
+      t_site_open
+
+      # You can see the page.
+      res = session '/test/.getpass'
+      ok_title 'Get Password'
+
+      # You can get any pass.
+      res = session '/test/.getpass?mail=user@e.com'
+      ok_title 'Send Password done'
+
+      res = session '/test/.getpass?mail=guest@example.com'
+      ok_title 'Send Password done'
+    end
+  end
+
+  class TestPasswordMailGenerator < Test::Unit::TestCase
+    include TestSession
+    include TestModulePublic
+
+    def test_getpass_mail
+      res = session '/test/'
+
+      # test_generate_password_mail
+      t_make_public(Qwik::Action, :generate_password_mail)
+      mail = @action.generate_password_mail 'user@e.com'
+      eq({:from=>"test@q.example.com", :to=>"user@e.com",
+	   :subject=>"Your password: http://example.com",
+	   :content=>"This is your user name and password: http://example.com\n\nUsername:\tuser@e.com\nPassword:\t95988593\n\nPlease access login page http://example.com/test/.login\n\nYou can input the user name and password from this URL automatically.\nhttp://example.com/test/.login?user=user@e.com&pass=95988593\n"
+	 }, mail)
+
+      @action.instance_eval {
+	cf = @memory.catalog
+	catalog = cf.get_catalog('ja')
+	set_catalog(catalog)
+      }
+
+      mail = @action.generate_password_mail 'user@e.com'
+      $KCODE = "s"
+      eq({:from=>"test@q.example.com", :to=>"user@e.com",
+	   :subject=>"�p�X���[�h : http://example.com",
+	   :content=>"���̃T�C�g�ɂ����郆�[�U���ƃp�X���[�h�ł� : http://example.com\n\n���[�U��:\tuser@e.com\n�p�X���[�h:\t95988593\n\n���O�C���y�[�W�ɃA�N�Z�X���Ă������� : http://example.com/test/.login\n\n���LURL�ɃA�N�Z�X����ƁA�����I�Ƀ��[�U�[���ƃp�X���[�h����͂��܂��B\nhttp://example.com/test/.login?user=user@e.com&pass=95988593\n"
+	 }, mail)
+    end
+
+    def test_mail_example_org
+      site = @site
+      page = site.create '_SiteConfig'
+      page.store(':siteurl: http://example.org/
+:siteml: info@example.org
+')
+
+      res = session '/test/'
+      ok_title 'Members Only'
+
+      t_add_user
+      res = session '/test/'
+      ok_title 'FrontPage'
+
+      t_make_public Qwik::Action, :generate_password_mail
+      mail = @action.generate_password_mail 'user@e.com'
+      eq({:from=>"info@example.org",
+	   :to=>"user@e.com",
+	   :subject=>"Your password: http://example.org",
+	   :content=>"This is your user name and password: http://example.org\n\nUsername:\tuser@e.com\nPassword:\t95988593\n\nPlease access login page http://example.org/.login\n\nYou can input the user name and password from this URL automatically.\nhttp://example.org/.login?user=user@e.com&pass=95988593\n"}, mail)
+    end
+
+  end
+end

data/vendor/qwik/act-history.rb

@@ -0,0 +1,136 @@
+# 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-backup'
+
+module Qwik
+  class Action
+    D_ExtHistory = {
+      :dt => 'History mode',
+      :dd => 'You can see the history of the page interactively.',
+      :dc => "* How to
+Go edit page, follow 'Time machine' link in the right side.
+You see the interactive history of the page.
+"
+    }
+
+    D_ExtHistory_ja = {
+      :dt => '�y�[�W�̗��j���[�h',
+      :dd => '�y�[�W�̗��j���C���^���N�e�B�u�Ɍ��邱�Ƃ��ł��܂��B',
+      :dc => "* �g����
+�ҏW��ʂ̉E���Ɂu�^�C���}�V�[���v�Ƃ��������N������܂��B
+���̃����N���A�y�[�W�̕ҏW�������C���^���N�e�B�u�Ɍ��邱�Ƃ��ł��܂��B
+"
+    }
+
+
+
+    def plg_show_history
+      return if @req.user.nil?
+      return if ! defined?(@req.base) || @req.base.nil?
+      return page_attribute('history', _('Show history'))
+    end
+
+    def ext_history
+      c_require_pagename
+      c_require_member
+      return c_notice(_('Announcement')) {
+	[[:h2, _('Announcement')],
+	  [:p, "TimeMachine function is disabled for server issue."]]
+      }
+    end
+
+    def nu_ext_history
+      c_require_pagename
+      c_require_member
+      #c_require_page_exist
+      # You can see the history of the deleted page.
+
+      return c_nerror('no path args') if 0 < @req.path_args.length
+      return c_nerror('no ext args')  if 0 < @req.ext_args.length
+
+=begin
+      divs = []
+      key = @req.base
+      @site.backupdb.each_by_key(key) {|v, time|
+	res = [:div, {:class=>'period'}, c_res(v)]
+	divs << [:div, {:class=>'era', :id=>time.to_i.to_s}, res]
+      }
+=end
+
+      key = @req.base
+      list = backup_list(@site, key)
+
+      divs = list.map {|v, time|
+	v = @site.backupdb.get(key, time)
+	[:div, {:class=>'era', :id=>time.to_s},
+	  [:div, {:class=>'period'}, c_res(v)]]
+      }
+
+      return history_show(@req.base, divs)
+    end
+
+    def history_show(pagename, divs)
+      ar = []
+
+      ar << [:style, "@import '.theme/css/wema.css';"]
+
+      handle = [:div, {:class=>'wema', :id=>'curosr',
+	  :style=>'left:0px;top:0px;'},
+	[:div, {:class=>'menubar'},
+	  [:span, {:class=>'handle'}, 'handle'],
+	  [:span, {:class=>'close'}, [:a, {:href=>'#'}, ' X ']]], # noop
+	[:div, {:class=>'cont'},
+	  [:span, {:id=>'indicator'}, _('Move this')]]]
+      ar << handle
+
+      section = []
+      section << [:div, {:id=>'eratable'}, '']
+      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 = _('Time machine')+" | #{pagename}"
+
+      return c_plain(title) { ar }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActHistory < Test::Unit::TestCase
+    include TestSession
+
+    def test_act_history
+      t_add_user
+
+      ok_wi [:span, {:class=>'attribute'},
+	[:a, {:href=>'1.history'}, 'Show history']],
+	'{{show_history}}'
+
+      page = @site['1']
+      page.store('* t1')	# store the first
+      page.store('* t2')	# store the second
+
+      res = session '/test/1.html'
+      ok_in ['t2'], '//title'
+
+      res = session '/test/1.history'
+#      ok_in ['Time machine | 1'], '//title'
+    end
+  end
+end

data/vendor/qwik/act-html.rb

@@ -0,0 +1,204 @@
+# 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
+    MAX_PAGE_SIZE = 100 * 1024
+
+    def ext_html
+      c_require_page_exist
+      c_require_member if Action.private_page?(@req.base)
+
+      page = @site[@req.base]
+      if MAX_PAGE_SIZE < page.size
+        return c_nerror(_('Page too big.')) {
+          [:div,
+           [:p, _('The page is too big to show.')],
+           [:p, _('Max is 100K bytes. Please truncate it.')],
+           [:p, [:a, {:href=>"#{@req.base}.edit"}, _('Edit')]]]
+        }
+      end
+
+      if ! c_login?
+	c_set_html
+
+	if @config.test		# Only for test.
+	  @res.body = view_page_cache_generate(@req.base)
+	  return
+	end
+
+	pagename = @req.base
+	dirpath = @site.cache_path
+	file = Action.html_page_cache_path(dirpath, pagename)
+
+	if view_page_cache_need_generate?(file)
+	  view_page_cache_generate(pagename)
+	end
+
+	c_simple_send(file.to_s, 'text/html; charset=Shift_JIS')
+	return
+      end
+
+      #c_make_log('view')	# do not check.
+      #c_monitor('view')
+      surface_view(@req.base)	# common-surface.rb
+
+      users = @config[:wysiwyg_users]
+      if users && users.split(/,\s/).include?(@req.user)
+	head = @res.body.get_path('//head')
+	head << [:meta, {'http-equiv'=>'Refresh',
+	    :content=>"0; url=#{@req.base}.wysiwyg"}]
+      end
+    end
+
+    def self.private_page?(pagename)
+      return pagename[0] == ?_
+    end
+
+    def view_page_cache_need_generate?(file)
+      return true if ! file.exist?
+      return true if file.mtime < @site.last_page_time
+      return true if @req.header['cache-control'] == ['no-cache']
+      return false
+    end
+
+    # called from act-archive
+    def view_page_cache_generate(pagename)
+      w = surface_view_generate(pagename)
+      str = w.format_xml	# format xml with "\n"
+      dirpath = @site.cache_path
+      Action.html_page_cache_store(dirpath, pagename, str)
+      return w
+    end
+
+    def self.html_page_cache_store(dirpath, pagename, str)
+      Action.html_page_cache_path(dirpath, pagename).write(str)	# Write to file.
+    end
+
+    def self.html_page_cache_path(dirpath, pagename)
+      return (dirpath+"#{pagename}.html").cleanpath
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActHtml < Test::Unit::TestCase
+    include TestSession
+
+    def test_private_page?
+      eq false, Qwik::Action.private_page?('t')
+      eq true,  Qwik::Action.private_page?('_t')
+    end
+
+    def test_protect_underbar
+      t_add_user
+
+      page = @site.create '_t'
+      page.store '*t'
+
+      res = session '/test/_t.html'	# with login
+      ok_title 't'
+
+      res = session('/test/_t.html') {|req|
+	req.cookies.clear
+      }
+      ok_title 'Login'
+    end
+
+    def test_ext_html
+      t_add_user
+      t_site_open
+
+      page = @site['1']
+      eq nil, page
+      
+      res = session '/test/1.html'
+      eq 404, @res.status
+      ok_title 'Page not found.'
+
+      page = @site.create_new
+      page.store 't'
+
+      res = session '/test/1.html'
+      ok_in ['t'], "//div[@class='section']/p"
+
+      # test_cache
+      res = session('/test/') {|req|
+	req.cookies.clear
+      }
+      # You can see the page.
+      ok_title 'FrontPage'
+      # But you are not logged in.
+      ok_in ['Login'], "//div[@class='adminmenu']//a"
+      eq 'text/html; charset=Shift_JIS', @res.headers['Content-Type']
+
+      t_without_testmode {
+	res = session('/test/') {|req|		# Do it again
+	  req.cookies.clear
+	}
+	assert_instance_of(File, res.body)	# The body is a cached content.
+	str = res.body.read
+	res.body.close		# Important.
+	assert_match(/FrontPage/, str)
+	eq 'text/html; charset=Shift_JIS', res.headers['Content-Type']
+      }
+    end
+
+    def test_wysiwyg_users
+      t_add_user
+      t_site_open
+
+      page = @site.create_new
+
+      res = session '/test/1.html'
+      ok_xp nil, '//meta'
+
+      @config[:wysiwyg_users] = "a@e.com, #{DEFAULT_USER}, b@e.com"
+
+      res = session('/test/1.html')
+      ok_xp [:meta, {:content=>'0; url=1.wysiwyg', 'http-equiv'=>'Refresh'}],
+	'//meta'
+    end
+
+    def test_guest_in_public_mode
+      t_site_open
+
+      page = @site.create_new
+
+      res = session('/test/1.html') {|req| req.cookies.clear }
+      ok_title '1'
+
+      res = session('/test/1.html') {|req| req.cookies.clear }
+      ok_title '1'
+
+    end
+
+    def test_big_page
+      t_site_open
+
+      page = @site.create_new
+      page.store("a" * (100 * 1024 + 1))
+
+      res = session('/test/1.html') {|req| req.cookies.clear }
+      ok_title "Page too big."
+    end
+
+    def test_superpre_sharp_mark
+      t_add_user
+      page = @site.create_new
+      page.store '{{{
+#t
+}}}'
+      session '/test/1.html'
+      ok_in ["#t\n"], "//div[@class='section']/pre"
+    end
+  end
+end