qwikdoc 0.0.1

data/vendor/qwik/act-attach.rb

@@ -0,0 +1,304 @@
+# 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-file'
+
+module Qwik
+  class Action
+    def act_attach
+      if @req.query['c'] == 'del'
+	c_require_member
+	filename = @req.query['f']
+	return attach_delete(filename) if @req.is_post?	# delete it
+	return attach_delete_confirm(filename)	# confirm before delete
+      end
+
+      args = @req.path_args
+      if 0 < args.length	# has target file
+	filename = args.join('/')
+	filename.set_url_charset
+	filename = Filename.decode(filename)
+	if ! @site.attach.exist?(filename)
+	  return c_notfound(_('No such file'))
+	end
+	return attach_send_file(filename)	# send it
+      end
+
+      content = @req.query['content']
+      return attach_put_file(filename, content) if content
+
+      # show attach form and the list of files
+      return attach_form_and_list
+    end
+    alias ext_attach act_attach
+
+    def attach_send_file(filename)
+      @res.set_content_type(Filename.extname(filename))
+      file = @site.attach.path(filename)
+      return c_simple_send(file.to_s)
+    end
+
+    def attach_put_file(filename, content)
+      c_require_member
+      c_require_post
+
+      filename = content.filename
+      basename = Action.get_basename(filename)
+      basename.set_url_charset
+      basename = Filename.decode(basename)
+      res = basename
+      res = @site.attach.fput(basename, content)
+
+      attach_rewrite_page(res)
+
+      backpage = '.attach'
+
+      return c_notice(_('File attachment completed')) {
+	[[:p, [:strong, res], ' : ', _('The file is saved.')],
+	  [:p, [:a, {:href=>backpage}, _('Go back')]]]
+      }
+    end
+
+    def self.get_basename(filename)
+      basename = filename.sub(/\A.*[\/\\]([^\/\\]+)\z/) { $1 }
+      return basename
+    end
+
+    def attach_rewrite_page(basename)
+      page = @site[@req.base]
+      v = page.load
+      if /\{\{ref\}\}/ =~ v
+	v.sub!(/\{\{ref\}\}/){ "{{ref(#{basename})}}" }	# only once
+	page.store(v)
+      end
+    end
+
+    def attach_form_and_list
+      c_require_member
+
+      div = []
+      div << [:div, {:class=>'msg'},
+	[:p, _('Attach a file')],
+	attach_form]
+
+      list = attach_file_list
+
+      if list
+	div << [:br]
+	div << [:div, {:class=>'msg'},
+	  [:p, _('File list')],
+	  [:ul, list]]
+      end
+
+      return c_notice(_('Attach file')) { div }
+    end
+
+    def attach_form(a=nil)
+      return [:form, {:action=>a, :method=>'post',
+	  :enctype=>'multipart/form-data'},
+	[:input, {:type=>'file', :name=>'content'}],
+	[:br],
+	[:input, {:type=>'submit', :value=>'attach'}]]
+    end
+
+    def attach_file_list
+      base = c_relative_to_root('.attach')
+      list = []
+      @site.attach.each {|file|
+	encoded = Filename.encode(file)
+	list << [:li, [:a, {:href=>"#{base}/#{encoded}"}, file.to_page_charset],
+	  [:span, {:class=>'delete'},
+	    ' (', [:a, {:href=>"#{base}?c=del&f=#{encoded}"}, _('Delete')], ')']]
+      }
+      return nil if list.length == 0
+      return list
+    end
+
+    def attach_delete_confirm(filename)
+      return c_notice(_('Confirm file deletion')) {
+	[:form, {:method=>'POST', :action=>'.attach'},
+	  [:p, _("Push 'Delete' to delete a file")],
+	  [:input, {:type=>'hidden', :name=>'c', :value=>'del'}],
+	  [:input, {:type=>'hidden', :name=>'f', :value=>filename}],
+	  [:p, [:input, {:type=>'submit', :value=>_('Delete')}]]]
+      }
+    end
+
+    def attach_delete(filename)
+      c_require_post
+      url = '.attach'
+      begin
+	filename.set_url_charset
+	filename = Filename.decode(filename)
+	@site.attach.delete(filename)
+      rescue FileNotExist
+	return c_nerror(_('Already deleted.'), url)
+      rescue FailedToDelete
+	return c_nerror(_('Failed to delete.'), url)
+      end
+      return c_notice(_('The file has been deleted.')) {
+	[:p, [:a, {:href=>url}, _('Go back')]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActAttach < Test::Unit::TestCase
+    include TestSession
+
+    def test_attach
+      # Only member can access attach form.
+      res = session('/test/.attach')
+      ok_title('Members Only')
+
+      t_add_user
+
+      # Check directory.
+      ok_eq('.test/data/test', @site.path.to_s)
+      attach_path = @site.path+'.attach'
+      ok_eq('.test/data/test/.attach', attach_path.to_s)
+
+      filename = 't.txt'
+      file = attach_path+filename
+      file.unlink if file.exist?
+
+      # See form.
+      res = session('/test/.attach')
+      ok_title('Attach file')
+      ok_xp([:form, {:method=>'post', :action=>nil,
+		:enctype=>'multipart/form-data'},
+	      [:input, {:type=>'file', :name=>'content'}],
+	      [:br],
+	      [:input, {:value=>'attach', :type=>'submit'}]],
+	    "//div[@class='msg']/form")
+
+      # Try to get a file.  But there is no file yet.
+      res = session('/test/.attach/t.txt')
+      ok_title('No such file')
+
+      d = @dir+'.attach'
+      d.erase_all_for_test if d.exist?
+
+      # Put a file.
+      res = session('POST /test/.attach') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't'))
+      }
+      ok_title('File attachment completed')
+
+      # Get the file.
+      res = session('/test/.attach/t.txt')
+      ok_eq('text/plain', res['Content-Type'])
+      ok_eq('t', res.body)
+
+      # Put a file with same file name again.
+      # The file is saved as another filename.
+      res = session('POST /test/.attach') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't2'))
+      }
+      ok_title('File attachment completed')
+
+      # Show the list of attached files.
+      res = session('/test/.attach')
+      ok_title('Attach file')
+      ok_xp([:form, {:method=>'post', :action=>nil,
+		:enctype=>'multipart/form-data'},
+	      [:input, {:type=>'file', :name=>'content'}],
+	      [:br],
+	      [:input, {:value=>'attach', :type=>'submit'}]],
+	    "//div[@class='msg']/form")
+      ok_xp([:a, {:href=>'/test/.attach/1-t.txt'}, '1-t.txt'], '//ul/li/a[1]')
+      ok_xp([:a, {:href=>'/test/.attach?c=del&f=1-t.txt'}, 'Delete'],
+	    '//ul/li/a[2]')
+      ok_xp([:a, {:href=>'/test/.attach/t.txt'}, 't.txt'], '//ul/li[2]/a[1]')
+      ok_xp([:a, {:href=>'/test/.attach?c=del&f=t.txt'}, 'Delete'],
+	    '//ul/li[2]/a[2]')
+
+      # Show a form to delete the file.
+      res = session('/test/.attach?c=del&f=t.txt')
+      ok_title('Confirm file deletion')
+
+      # Delete it.
+      res = session('POST /test/.attach?c=del&f=t.txt')
+      ok_title('The file has been deleted.')
+
+      # Try to delete it again.  But the file is already deleted.
+      res = session('POST /test/.attach?c=del&f=t.txt')
+      ok_title('Already deleted.')
+
+      # Try to get file agin.  But the file is already deleted.
+      res = session('/test/.attach/t.txt')
+      ok_title('No such file')
+    end
+
+    def test_attach_with_rewrite
+      t_add_user
+
+      file = @site.attach.path('t.txt')
+      file.unlink if file.exist?
+
+      # See the page.
+      ok_wi([], '{{ref}}')
+
+      page = @site['1']
+      ok_eq('{{ref}}', page.load)
+
+      # Put a file.
+      res = session('POST /test/1.attach') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't'))
+      }
+      ok_title('File attachment completed')
+      ok_eq('{{ref(t.txt)}}', page.load)
+
+      res = session('/test/1.html')
+      ok_xp([:div, {:class=>"section"},
+	      [[:div, {:class=>'ref'},
+		  [:a, {:href=>'.attach/t.txt'}, 't.txt']]]],
+	    "//div[@class='section']")
+    end
+
+    def test_attach_with_dir
+      t_add_user
+
+      d = @dir+'.attach'
+      d.erase_all_for_test if d.exist?
+
+      # Try to get a file.
+      res = session('/test/.attach/.thumb/t.jpg')
+      ok_title('No such file')
+
+      thumb_dir = d+'.thumb'
+      thumb_dir.check_directory
+      thumb = thumb_dir+'t.jpg'
+      thumb.put('dummy')
+
+      res = session('/test/.attach/.thumb/t.jpg')
+      ok_eq('dummy', res.body)
+      ok_eq('image/jpeg', @res['Content-Type'])
+    end
+
+    def test_attach_to_page
+      t_add_user
+
+      page = @site.create_new
+      page.store('t')
+
+      # See form.
+      res = session('/test/1.attach')
+      ok_title('Attach file')
+      ok_xp([:form, {:method=>'post', :action=>nil,
+		:enctype=>'multipart/form-data'},
+	      [:input, {:type=>'file', :name=>'content'}],
+	      [:br],
+	      [:input, {:value=>'attach', :type=>'submit'}]],
+	    "//div[@class='msg']/form")
+    end
+  end
+end

data/vendor/qwik/act-backup.rb

@@ -0,0 +1,236 @@
+# -*- 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/wabisabi-diff'
+
+module Qwik
+  class Action
+    D_ExtBackup = {
+      :dt => 'Backup pages',
+      :dd => 'You can see backup of the page.',
+      :dc => "* How to
+Go edit page, follow 'Backup' link in the right side.
+You see the backup list of the page.
+"
+    }
+
+    D_ExtBackup_ja = {
+      :dt => '�y�[�W�E�o�b�N�A�b�v',
+      :dd => '�y�[�W�̃o�b�N�A�b�v�����邱�Ƃ��ł��܂��B',
+      :dc => "* �g����
+�ҏW��ʂ̉E���Ɂu�o�b�N�A�b�v�v�Ƃ��������N������܂��B
+���̃����N���A�y�[�W�̃o�b�N�A�b�v���X�g�����邱�Ƃ��ł��܂��B
+"
+    }
+
+    def plg_backup_list
+      return if @req.user.nil?
+      return if ! defined?(@req.base) || @req.base.nil?
+      return page_attribute('backup', _('Show backup'))
+    end
+
+    def ext_backup
+      c_require_pagename
+      c_require_member
+      #c_require_page_exist # does not require the page is exist
+      # because you can see the list of the page that is already deleted.
+      c_require_no_path_args
+
+      args = @req.ext_args
+      if 0 < args.length # has target
+	return backup_show(@site, @req.base, args)
+      end
+
+      return backup_list_page(@site, @req.base)
+    end
+
+    def backup_show(site, key, args)
+      page = site[key]
+
+      return c_nerror('only one time stamp') if 1 < args.length
+      time = args.shift
+      return c_nerror('should be number') unless /\A[0-9]+\z/ =~ time
+
+      # Is the backup exist?
+      time = Time.at(time.to_i)
+      unless site.backupdb.exist?(key, time)
+	return c_notfound('not found')
+      end
+
+      str = site.backupdb.get(key, time)	# Get the old content.
+=begin
+# Do not show diffs for now. (2009/9/1)
+      list = backup_list(site, key)		# Get the list.
+
+      # Get the index of the content.
+      index = nil
+      list.each_with_index {|a, i|
+	if a[1] == time.to_i
+	  index = i
+	end
+      }
+      return c_notfound('no data?') if index.nil?
+
+      msg = ''
+      if index == 0
+	msg = [:p, _('This is the first page.')]
+      else
+	# FIXME: fix diff function. (2009/9/1)
+	diff = backup_diff(list, index-1, index)
+	msg = [:div, {:class=>'differ'}, *diff]
+      end
+
+      return c_plain("#{key} @ #{time.ymdax}") {
+	[[:div, {:class=>'day'},
+	    [:h2, _('Difference from the previous page')],
+	    [:div, {:class=>'section'}, msg]],
+	  [:div, {:class=>'day'},
+	    [:h2, _('Original data')],
+	    [:div, {:class=>'section'},
+	      [:pre, str]]]]
+      }
+=end
+
+      return c_plain("#{key} @ #{time.ymdax}") {
+	[[:div, {:class=>'day'},
+	    [:h2, _('Original data')],
+	    [:div, {:class=>'section'},
+	      [:pre, str]]]]
+      }
+    end
+
+    def backup_list(site, key)
+      list = []
+      site.backupdb.each_by_key(key) {|v, time|
+	list << [v, time.to_i]
+      }
+      return list
+    end
+
+    def backup_diff(list, last, now)
+      s1, t1 = list[last]
+      s2, t2 = list[now]
+      return DiffGenerator.generate(s1, s2)
+    end
+
+    def backup_list_page(site, key)
+      list = backup_list(site, key)
+
+      ul = list.map {|v, time|
+	[:li, [:a, {:href=>"#{key}.#{time}.backup"},
+	    Time.at(time).format_date]]
+      }
+      if 0 < ul.length
+	ul.last << ' '+_('<-')+' '+ _('Newest')
+      end
+
+      return c_plain(_('Backup list')) {
+	[:div, {:class=>'day'},
+	  [:div, {:class=>'section'},
+	    [:ul, ul]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActBackup < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_backup_list
+      ok_wi [:span, {:class=>'attribute'},
+	[:a, {:href=>'1.backup'}, 'Show backup']],
+	'{{backup_list}}'
+    end
+
+    def test_act_backup2
+      #return if $0 != __FILE__
+
+      # Only members can see the page.
+      res = session '/test/1.html'
+      ok_title 'Members Only'
+      res = session '/test/1.backup'
+      ok_title 'Members Only'
+
+      t_add_user
+
+      # You can see backup page even if the page does not exist.
+      res = session '/test/1.html'
+      ok_title 'Page not found.'
+      res = session '/test/1.backup'
+      ok_in ['Backup list'], '//title'
+
+      page = @site.create_new
+      page.put_with_time('t', 0)
+
+      res = session '/test/1.html'
+      ok_title '1'
+      res = session '/test/1.backup'
+      ok_in ['Backup list'], '//title'
+
+      # Error check.
+      res = session '/test/1.backup/0'
+      ok_title 'Incorrect path arguments.'
+      res = session '/test/1.100.200.backup'
+      ok_title 'only one time stamp'
+      res = session '/test/1.hoge.backup'
+      ok_title 'should be number'
+
+      list = @action.backup_list(@site, '1')
+#      eq 't', list[0][0]
+#      eq '',  list[1][0]
+      eq nil, list[2]
+
+      t1 = list[0][1]
+      res = session "/test/1.#{t1}.backup"
+      assert_text(/\A1 @ /, 'title')
+      assert_text 't', 'pre'
+
+      # Edit the page again.
+      page.put_with_time 't2', 1
+
+      list = @action.backup_list(@site, '1')
+#      eq 't',  list[0][0]
+#      eq 't2', list[1][0]
+#      eq '',   list[2][0]
+      eq nil,  list[3]
+
+      diff = @action.backup_diff(list, 0, 1)
+#      eq [[:del, 't'], [:br], [:ins, 't2'], [:br]], diff
+
+      t2 = list[1][1]
+      res = session "/test/1.#{t2}.backup"
+      assert_text(/\A1 @ /, 'title')
+      assert_text('t2', 'pre')
+#      ok_in [[:del, 't'], [:br], [:ins, 't2'], [:br]],
+#	"//div[@class='differ']"
+
+      # Edit the page again. The 3rd times.
+      page.put_with_time('t3', 2)
+
+      list = @action.backup_list(@site, '1')
+#      eq 't',  list[0][0]
+#      eq 't2', list[1][0]
+#      eq 't3', list[2][0]
+#      eq '',   list[3][0]
+      eq nil,  list[4]
+
+      diff = @action.backup_diff(list, 1, 2)
+#      eq [[:del, 't2'], [:br], [:ins, 't3'], [:br]], diff
+
+      t3 = list[2][1]
+      res = session "/test/1.#{t3}.backup"
+      assert_text 't3', 'pre'
+#      ok_in [[:del, 't2'], [:br], [:ins, 't3'], [:br]],
+#		"//div[@class='differ']"
+    end
+  end
+end