qwikdoc 0.0.1

data/vendor/qwik/group-sweep.rb

@@ -0,0 +1,63 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/group'
+
+module QuickML
+  class Group
+    def need_alert?(now = Time.now)
+      return false if forward? || @group_config.permanent? || alerted?
+      return @db.last_article_time + @group_config[:ml_alert_time] <= now
+    end
+
+    def inactive?(now = Time.now)
+      return false if forward? || @group_config.permanent?
+      return @db.last_article_time + @group_config[:ml_life_time] < now
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/group'
+  require 'qwik/test-module-ml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestGroupSweep < Test::Unit::TestCase
+    include TestModuleML
+
+    def setup_group
+      return QuickML::Group.new(@ml_config, 'test@example.com')
+    end
+
+    def test_all
+      group = setup_group
+
+      ok_eq(false, group.forward?)
+
+#      t_make_public(QuickML::Group, :permanent?)
+#      ok_eq(false, group.permanent?)
+
+      t_make_readable(QuickML::Group, :db)
+      assert_instance_of(Time, group.db.last_article_time)
+
+      t_make_readable(QuickML::Group, :group_config)
+      ok_eq(2678400, group.group_config[:ml_life_time])
+
+      t_make_public(QuickML::Group, :alerted?)
+      ok_eq(false, group.alerted?)
+
+      ok_eq(false, group.need_alert?(Time.at(0)))
+      ok_eq(false, group.need_alert?(Time.at(1000000000)))
+    end
+  end
+end

data/vendor/qwik/group.rb

@@ -0,0 +1,157 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mail'
+require 'qwik/config'
+require 'qwik/ml-gettext'
+require 'qwik/ml-exception'
+require 'qwik/ml-generator'
+require 'qwik/mailaddress'
+
+require 'qwik/util-basic'
+require 'qwik/util-safe'
+
+require 'qwik/group-config'
+require 'qwik/group-cond'
+require 'qwik/group-member'
+
+require 'qwik/group-site'
+require 'qwik/group-sweep'
+require 'qwik/group-mail'
+require 'qwik/group-sendmail'
+require 'qwik/group-confirm'
+
+module QuickML
+  class Group
+    include GetText
+
+    # ============================== initialize
+    def initialize (config, address, creator = nil, message_charset = nil)
+      @config = config
+      @address = address
+      @name, domain = Group.get_name(@address)
+      @return_address = Group.generate_return_address(@address,
+						      @config.use_qmail_verp)
+
+      # init_db
+      @db = GroupDB.new(@config.sites_dir, @name)
+      init_site		# initialize for GroupSite
+      @db.set_site(@site)
+
+      @added_members = []
+
+      @logger = @config.logger
+      @catalog = @config.catalog
+
+      init_group_config
+      init_members
+      init_count
+      init_charset
+
+      @message_charset = message_charset || @charset
+      @logger.log "[#{@name}]: New ML by #{creator}" if newly_created?
+    end
+
+    attr_reader :name
+    attr_reader :address
+    attr_reader :return_address
+    attr_reader :count
+    attr_reader :charset
+
+    def close_dummy
+      @logger.log("[#{@name}]: ML will be closed")
+    end
+
+    def close
+      @db.delete(:Members)
+      @db.delete(:Count)
+      @db.delete(:Alerted)
+      @db.delete(:Charset)
+      @db.delete(:Config)
+      @db.delete(:WaitingMembers)
+      @db.delete(:WaitingMessage)
+      @logger.log("[#{@name}]: ML Closed")
+    end
+
+    private
+
+    def self.get_name(address)
+      raise InvalidMLName if /@.*@/ =~ address
+      name, host = address.split('@')
+      raise InvalidMLName if ! valid_name?(name)
+      return name, host
+    end
+
+    def self.valid_name? (name)
+      # Do not allow '_' and '.' for the name.
+      return /\A[0-9a-zA-Z-]+\z/ =~ name
+    end
+
+    def self.generate_return_address(address, use_qmail_verp = false)
+      name, domain = Group.get_name(address)
+
+      # e.g. <foo=return=@quickml.com-@[]>
+      return "#{name}=return=@#{domain}-@[]" if use_qmail_verp
+
+      # e.g. <foo=return@quickml.com>
+      return "#{name}=return@#{domain}"
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-module-ml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestGroup < Test::Unit::TestCase
+    include TestModuleML
+
+    def setup_group
+      return QuickML::Group.new(@ml_config, 'test@example.com')
+    end
+
+    def test_class_method
+      c = QuickML::Group
+
+      # test_get_name
+      ok_eq(["test", "example.com"], c.get_name('test@example.com'))
+
+      # test_vaild_name
+      ok_eq(true,  !!c.valid_name?('t'))
+      ok_eq(true,  !!c.valid_name?('t-t'))
+      ok_eq(false, !!c.valid_name?('t_t'))
+      ok_eq(false, !!c.valid_name?('t.t'))
+      ok_eq(false, !!c.valid_name?('test@example.com'))
+      ok_eq(false, !!c.valid_name?('test@qwik@jp'))
+      ok_eq(true,  !!c.valid_name?('test'))
+      ok_eq(false, !!c.valid_name?('te.st'))
+
+      # test_generate_return_address
+      ok_eq("test=return@example.com",
+	    c.generate_return_address('test@example.com'))
+      ok_eq("test=return=@example.com-@[]",
+	    c.generate_return_address('test@example.com', true))
+    end
+
+    def test_all
+      group = setup_group
+
+      # test_attr
+      ok_eq('test', group.name)
+      ok_eq('test@example.com', group.address)
+      ok_eq("test=return@example.com", group.return_address)
+      ok_eq(0, group.count)
+      ok_eq(nil, group.charset)
+    end
+  end
+end

data/vendor/qwik/helper.rb

@@ -0,0 +1,6 @@
+# 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.
+
+dir = File.expand_path(File.dirname(__FILE__) + '/../../lib')
+$LOAD_PATH.unshift(dir) if !$LOAD_PATH.include?(dir)

data/vendor/qwik/html-generator.rb

@@ -0,0 +1,104 @@
+# 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.
+
+module HtmlGeneratorUnit
+  def a(arg=[], title=nil, &block)
+    if arg.kind_of?(String)
+      ha = {:href=>arg}
+      ha.update(:title=>title) if title
+      return make(:a, ha, &block)
+    end
+    make(:a, arg, &block)
+  end
+
+  def img(src='', alt='')
+    make(:img, {:src=>src, :alt=>alt})
+  end
+
+  def text(name='', value=nil, size=nil, maxsize=nil)
+    hash = {:name=>name, :value=>value, :size=>size, :maxsize=>maxsize}
+    hash.delete_if {|k, v| v.nil? }
+    make(:input, hash)
+  end
+
+  def password(name='', value=nil, size=nil)
+    hash = {:type=>'password', :name=>name, :value=>value, :size=>size}
+    hash.delete_if {|k, v| v.nil? }
+    make(:input, hash)
+  end
+
+  def form(a=nil, b=nil, c=nil, &block)
+    ar = []
+    if a.is_a? Hash
+      ar << a
+    else
+      ar << {:method=>a} if a
+      ar << {:action=>b} if b
+      ar << {:enctype=>c} if c
+    end
+    make(:form, ar, &block)
+  end
+
+  def hidden(a='', b=nil)
+    ar = []
+    if a.is_a? Hash
+      ar << a
+    else
+      ar << {:type=>'hidden'}
+      ar << {:name=>a}
+      ar << {:value=>b} if b
+    end
+    make(:input, ar)
+  end
+
+  def select(name='', *args)
+    ar = []
+    args.each {|arg|
+      ar << make(:option, {:name=>arg}){arg}
+    }
+    make(:select, {:name=>name}){ar}
+  end
+
+  def textarea(name='', cols=nil, rows=nil, &block)
+    hash = {:name=>name, :cols=>cols, :rows=>rows}
+    hash.delete_if {|k, v| v.nil? }
+    make(:textarea, hash){
+      block.call
+    }
+  end
+
+  def submit(value=nil, name=nil)
+    hash = {:type=>'submit', :name=>name, :value=>value}
+    hash.delete_if {|k, v| v.nil? }
+    make(:input, hash)
+  end
+
+  def radio(a='', b=nil, c=nil)
+    ar = []
+    if a.is_a? Hash
+      a.update(:type=>'radio')
+      ar << a
+    else
+      ar << {:type=>'radio'}
+      ar << {:name=>a}
+      ar << {:value=>b} if b
+      ar << {:checkd=>'checkd'} if c
+    end
+    make(:input, ar)
+  end
+
+  def contenttype(content='')
+    make(:meta, {'http-equiv'=>'Content-Type', :content=>content})
+  end
+
+  def stylesheet(url='', media=nil)
+    hash = {:rel=>'stylesheet', :type=>'text/css', :href=>url, :media=>media}
+    hash.delete_if {|k, v| v.nil? }
+    make(:link, hash)
+  end
+
+  def refresh(sec=0, url='')
+    make(:meta, {'http-equiv'=>'Refresh', :content=>"#{sec}; url=#{url}"})
+  end
+end

data/vendor/qwik/html-to-wabisabi.rb

@@ -0,0 +1,149 @@
+#encoding: sjis
+# 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 << 'compat' unless $LOAD_PATH.include? 'compat'
+#require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/htree-to-wabisabi'
+require 'qwik/wabisabi-template'
+require 'qwik/util-string'
+
+module Qwik
+  class HtmlToWabisabi
+    def self.parse(str)
+      html = "<html>"+str+"</html>"
+      html = html.normalize_newline
+
+      htree = HTree(html)
+      first_child = htree.children[0]
+      wabisabi = first_child.to_wabisabi
+      wabisabi = wabisabi.inside
+      return wabisabi
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHtmlToWabisabi < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, Qwik::HtmlToWabisabi.parse(s))
+    end
+
+    def test_ref
+      #ok(["\240"], "&nbsp;")
+      #ok(["?"], "&nbsp;")
+      ok(["<"], "&lt;")
+      ok([">"], "&gt;")
+    end
+
+    def test_html_parser
+      ok([], '')
+      ok(['a'], 'a')
+
+      # Div element can contain another div element.
+      ok([[:div, 't1', [:div, 't2']]], "<div>t1<div>t2")
+
+      # Span element can not contain div element.
+      ok([[:span, 't1'], [:div, 't2']], "<span>t1<div>t2")
+
+      # Fix the order.
+      ok([[:b, [:i, 't']]], "<b><i>t</i></b>")
+
+      # You can use incomplete html also.
+      ok([[:ul, [:li, 't1'], [:li, 't2']]], "<ul><li>t1<li>t2")
+
+      # test_long_html
+      html = <<'EOT'
+<H2>�����ꗗ�ȈՔ�</H2>
+<P>�ڍׂȐ�����<A href="TextFormat.html">TextFormat</A>������񂭂������B</P>
+<H3>���o��2</H3>
+<H4>���o��3</H4>
+<H5>���o��4</H5>
+<H6>���o��5</H6>
+<UL>
+<LI>�ӏ������x��1
+<UL>
+<LI>�ӏ������x��2
+<UL>
+<LI>�ӏ������x��3</LI></UL></LI></UL></LI></UL>
+<OL>
+<LI>�������X�g1
+<OL>
+<LI>�������X�g2
+<OL>
+<LI>�������X�g3</LI></OL></LI></OL></LI></OL><PRE>���`�ς݃e�L�X�g�B</PRE>
+<BLOCKQUOTE>
+<P>���p�B</P></BLOCKQUOTE>
+<DL>
+<DT>Wiki
+<DD>�������݉”\��Web�y�[�W
+<DT>QuickML
+<DD>�ȒP�ɍ��郁�[�����O���X�g�V�X�e��</DD></DL>
+<TABLE>
+<TBODY>
+<TR>
+<TD>����1-1</TD>
+<TD>����1-2</TD>
+<TD>����1-3</TD></TR>
+<TR>
+<TD>����2-1</TD>
+<TD>����2-2</TD>
+<TD>����2-3</TD></TR></TBODY></TABLE>
+<P><EM>����</EM>�A<STRONG>����ɋ���</STRONG>�A<DEL>��������</DEL> <IMG alt=new src="http://example.com/.theme/new.png"> <A href="FrontPage.html">FrontPage</A> <A href="http://www.yahoo.co.jp/">Yahoo!</A></P><PLUGIN param='1' method='recent'></PLUGIN>
+EOT
+
+      result = [[:h2, "�����ꗗ�ȈՔ�"], "\n",
+	[:p, "�ڍׂȐ�����",
+	  [:a, {:href=>'TextFormat.html'}, 'TextFormat'],
+	  "������񂭂������B"], "\n",
+	[:h3, "���o��2"], "\n",
+	[:h4, "���o��3"], "\n",
+	[:h5, "���o��4"], "\n",
+	[:h6, "���o��5"], "\n",
+	[:ul,  "\n",
+	  [:li,   "�ӏ������x��1\n",
+	    [:ul,    "\n",
+	      [:li, "�ӏ������x��2\n",
+		[:ul, "\n", [:li, "�ӏ������x��3"]]]]]], "\n",
+	[:ol,  "\n",
+	  [:li,   "�������X�g1\n",
+	    [:ol, "\n", [:li, "�������X�g2\n",
+		[:ol, "\n", [:li, "�������X�g3"]]]]]],
+	[:pre, "���`�ς݃e�L�X�g�B"], "\n",
+	[:blockquote, "\n", [:p, "���p�B"]], "\n",
+	[:dl, "\n",
+	  [:dt, "Wiki\n"],
+	  [:dd, '�������݉”\��Web�y�[�W'+"\n"],
+	  [:dt, "QuickML\n"],
+	  [:dd, "�ȒP�ɍ��郁�[�����O���X�g�V�X�e��"]], "\n",
+	[:table, "\n",
+	  [:tbody, "\n",
+	    [:tr, "\n",
+	      [:td, "����1-1"], "\n",
+	      [:td, "����1-2"], "\n",
+	      [:td, "����1-3"]], "\n",
+	    [:tr, "\n",
+	      [:td, "����2-1"], "\n",
+	      [:td, "����2-2"], "\n",
+	      [:td, "����2-3"]]]], "\n",
+	[:p,
+	  [:em, "����"],  "�A",
+	  [:strong, "����ɋ���"],  "�A",
+	  [:del, "��������"],  ' ',
+	  [:img, {:alt=>'new', :src=>'http://example.com/.theme/new.png'}],  ' ',
+	  [:a, {:href=>'FrontPage.html'}, 'FrontPage'],  ' ',
+	  [:a, {:href=>'http://www.yahoo.co.jp/'}, "Yahoo!"]],
+	[:plugin, {:method=>'recent', :param=>'1'}], "\n"]
+
+      ok(result, html)
+    end
+  end
+end