qwik2md 0.1.0

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

@@ -0,0 +1,180 @@
+# 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-search'
+require 'qwik/site-index'
+
+module Qwik
+  class Action
+    D_PluginSearch = {
+      :dt => 'Search plugin',
+      :dd => 'You can show a search form.',
+      :dc => '* Example
+ {{search}}
+{{search}}
+'
+    }
+
+    D_PluginSearch_ja = {
+      :dt => '検索プラグイン',
+      :dd => '検索窓を作れます。',
+      :dc => '* 例
+ {{search}}
+{{search}}
+'
+    }
+
+    # ============================== search
+    def plg_side_search_form
+      return [
+	[:h2, _('Search')],
+	plg_search_form,
+#	plg_search_word_cloud
+      ]
+    end
+
+    def plg_search_form(focus = false)
+      return search_form(focus)
+    end
+    alias plg_search plg_search_form
+
+    def search_form(focus = false, query = nil)
+      query_attr = {:name=>'q'}
+      query_attr[:class] = 'focus' if focus
+      query_attr[:value] = query if query
+      return [:form, {:action=>'.search'},
+	[:input, query_attr],
+	[:input, {:type=>'submit', :value=>_('Search')}]]
+    end
+
+    def act_search
+      query = search_get_query
+      if query.nil?
+	return search_form_page
+      end
+
+      ar = @site.search(query)
+      if ar.empty?
+	return search_notfound_page(query)
+      end
+
+      return search_result(@site, ar, query)
+    end
+    alias ext_search act_search
+
+    def search_get_query
+      query = @req.query['q']
+      return query if query && ! query.empty?
+
+      query = @req.base
+      return query if query && ! query.empty? && query != "FrontPage"
+      #return query if query && ! query.empty?
+
+      return nil
+    end
+
+    def search_form_page(title = _('Search'), notice = nil, query = nil)
+      body = []
+      body << [:h2, notice] if notice
+      body << [:div, {:class => 'form'}, search_form(true, query)]
+      return c_notice(title) { body }
+    end
+
+    # called also from act-isearch.rb
+    def search_notfound_page(query)
+      return search_form_page(_('Search result'), _('No match.'), query)
+    end
+
+    def search_result(site, ar, query = nil)
+      ul = [:ul]
+      ar.each {|key, line, i|
+	page = site[key]
+	url = page.url
+	ul << [:li,
+	  [:h3, [:a, {:href => url}, page.get_title]], 
+	  [:span, {:class => 'content'}, line],
+	  [:div, [:a, {:href => url}, url]]]
+      }
+      div = []
+      div << [:div, {:class => 'day'},
+	[:div, {:class => 'section'},
+          [:div, {:class=>'form'}, search_form(true, query)]]]
+      div << [:div, {:class => 'day'},
+	[:div, {:class => 'section'},
+	  [:div, {:class => 'search_result'}, ul]]]
+      title = _('Search result') + ": " + query
+      return c_plain(title) { div }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSearch < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_search_form
+      ok_wi([:form, {:action=>'.search'},
+	      [:input, {:name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{search_form}}")
+      ok_wi([:form, {:action=>'.search'},
+	      [:input, {:name=>'q', :class=>'focus'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{search_form(true)}}")
+    end
+
+    def test_search
+      t_add_user
+
+      # test_act_search
+      res = session('/test/.search')
+      ok_xp([:form, {:action=>'.search'},
+	      [:input, {:class=>'focus', :name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    '//form')
+
+      res = session("/test/.search?q=nosuchkey")
+      assert_text('Search result', 'h1')
+      ok_in(['No match.'], '//h2')
+
+      page = @site.create_new
+      page.store('This is a keyword.')
+      res = session("/test/.search?q=keyword")
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'1.html'}, '1']], 
+		[:span, {:class=>'content'}, 'This is a keyword.'],
+		[:div, [:a, {:href=>'1.html'},"1.html"]]]],
+	    "//div[@class='search_result']")
+
+      res = session("/test/keyword.search")	# Both OK.
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'1.html'}, '1']],
+		[:span, {:class=>'content'}, 'This is a keyword.'],
+		[:div, [:a, {:href => '1.html'},"1.html"]]]],
+	    "//div[@class='search_result']")
+
+      page = @site.create_new	# 2.txt
+      page.store("漢字")
+      res = session("/test/.search?q=字")
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'2.html'}, '2']], 
+		[:span, {:class=>'content'}, "漢字"],
+		[:div, [:a, {:href=>'2.html'}, '2.html']]]],
+	    "//div[@class='search_result']")
+
+      res = session("/test/字.search")		# Both OK.
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'2.html'}, '2']],
+		[:span, {:class=>'content'}, "漢字"],
+		[:div, [:a, {:href=>'2.html'}, '2.html']]]],
+	    "//div[@class='search_result']")
+    end
+  end
+end

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

@@ -0,0 +1,51 @@
+# 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-search"
+
+module Qwik
+  class Action
+    def plg_search_word_cloud
+      list = @site.get_search_words
+      [:span] + list.map{|em| 
+        w = em.word.to_s.escape
+	if em.nil?
+	  em = Word.new(w, 1, Time.new)
+	end
+        [[:span, {:class => "search_word#{em.count}"},
+          [:a, {:href => ".search?q=#{w}"}, em.word]],
+	 [:span, {:class => "search_word_delete"},
+          [:a, {:href => ".delete?q=#{w}"},
+           [:img, {:src => ".theme/css/delete.png",:border =>"0",
+              :alt => "del"}]]]]
+      }
+    end
+
+    # search word delete action
+    def act_delete
+      query = search_get_query
+      if query
+        @site.delete_search_word(query)
+      end
+      return c_notice("Deleted",@req.header["referer"]) { "deleted" }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSearchWords < Test::Unit::TestCase
+    include TestSession
+
+    def test_dummy
+    end
+  end
+end
+
+

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

@@ -0,0 +1,83 @@
+# 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-getpass'
+require 'qwik/mailaddress'
+
+module Qwik
+  class Action
+    def act_sendpass
+      c_require_member
+
+      return sendpass_show_form if ! @req.is_post?
+
+      status = {}
+      members = @site.member.list
+      @req.query.each {|mail, v|
+	if ! MailAddress.valid?(mail) || v != 'on'
+	  status[mail] = _('Wrong format.')
+	  next
+	end
+
+	if ! members.include?(mail)
+	  status[mail] = _('Not a member.')
+	  next
+	end
+
+	passmail = generate_password_mail(mail)
+	sendmail = Sendmail.new(@config.smtp_host, @config.smtp_port,
+				@config.test)
+	begin
+	  sendmail.send(passmail)
+	  status[mail] = _('Succeeded.')
+	rescue
+	  status[mail] = _('Failed.')
+	end
+      }
+
+      ar = []
+      status.each {|mail, result|
+	ar << [:li, mail, ' : ', result.to_s]
+      }
+      return c_notice(_('Send Password done')) {
+	[:ul, ar]
+      }
+    end
+
+    def sendpass_show_form
+      members = @site.member.list.sort
+      return c_notice(_('Send Password')) {
+	[[:h2, _('You can send password for the members.')],
+	  [:p, _('Please select members to send password.')],
+	  [:form, {:action=>'.sendpass', :method=>'post',
+	      :style=>'text-align: center; margin: 32px 0 48px;'},
+	    [:ul, members.map {|member|
+		[:li, [:input, {:type=>'checkbox', :name=>member}, ' '+member]]
+	      }
+	    ],
+	    [:input, {:type=>'submit', :value=>_('Send Password')}]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/test-module-public'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSendPass < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      res = session '/test/.sendpass'
+      ok_title 'Send Password'
+    end
+  end
+end

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

@@ -0,0 +1,89 @@
+# Copyright (C) 2003-2009 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-status"
+
+module Qwik
+  class Action
+    def site_delete_unused_config_files
+      files1 = %w{
+,members
+,count
+,config
+,charset
+,alerted
+,forward
+,permanent
+,unlimited
+,waiting-members
+,waiting-message
+}
+
+        files1.each {|f1, i|
+          p1 = (sitepath + f1)
+          if p1.exist?
+            p1.unlink
+            li << "deleted. "
+            li << [:a, {:href=>"/#{sitename}/"}, "/#{sitename}/"]
+            ul << li
+          end
+        }
+    end
+
+    def act_site
+      c_require_login
+      return c_nerror("You are not administrator.") if ! is_administrator?
+
+      farm = @memory.farm
+      ul = [:ul]
+
+      farm.list.each {|sitename|
+#        next unless /\A[0-9]/ =~ sitename
+
+#        site = farm.get_site(sitename)
+        sitepath = "#{@config.sites_dir}/#{sitename}".path
+
+        li = [:li]
+        li << [:a, {:href=>"/#{sitename}/"}, "/#{sitename}/"]
+        ul << li
+      }
+
+      div = [:div, {:class => 'day'},
+	[:div, {:class => 'section'}, 
+          [:h2, _("Site list.")], ul]]
+
+      return c_plain(_("Site list. __qwik_page_generate_time__ sec. past.")) {
+	div
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require "pp"
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSite < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      file = @config.etc_dir.path + "administrator.txt"
+      file.write("")
+
+      res = session("/test/.site")
+      ok_title("You are not administrator.")
+
+      file.write("user@e.com\n")
+
+      res = session("/test/.site")
+      ok_title "Site list. __qwik_page_generate_time__ sec. past."
+    end
+  end
+end