qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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/lib/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/lib/qwik/html-to-wabisabi.rb

@@ -0,0 +1,148 @@
+# 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>をごらんください。</P>
+<H3>見出し2</H3>
+<H4>見出し3</H4>
+<H5>見出し4</H5>
+<H6>見出し5</H6>
+<UL>
+<LI>箇条書レベル1
+<UL>
+<LI>箇条書レベル2
+<UL>
+<LI>箇条書レベル3</LI></UL></LI></UL></LI></UL>
+<OL>
+<LI>順序リスト1
+<OL>
+<LI>順序リスト2
+<OL>
+<LI>順序リスト3</LI></OL></LI></OL></LI></OL><PRE>整形済みテキスト。</PRE>
+<BLOCKQUOTE>
+<P>引用。</P></BLOCKQUOTE>
+<DL>
+<DT>Wiki
+<DD>書き込み可能なWebページ
+<DT>QuickML
+<DD>簡単に作れるメーリングリストシステム</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>、<STRONG>さらに強調</STRONG>、<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'],
+	  "をごらんください。"], "\n",
+	[:h3, "見出し2"], "\n",
+	[:h4, "見出し3"], "\n",
+	[:h5, "見出し4"], "\n",
+	[:h6, "見出し5"], "\n",
+	[:ul,  "\n",
+	  [:li,   "箇条書レベル1\n",
+	    [:ul,    "\n",
+	      [:li, "箇条書レベル2\n",
+		[:ul, "\n", [:li, "箇条書レベル3"]]]]]], "\n",
+	[:ol,  "\n",
+	  [:li,   "順序リスト1\n",
+	    [:ol, "\n", [:li, "順序リスト2\n",
+		[:ol, "\n", [:li, "順序リスト3"]]]]]],
+	[:pre, "整形済みテキスト。"], "\n",
+	[:blockquote, "\n", [:p, "引用。"]], "\n",
+	[:dl, "\n",
+	  [:dt, "Wiki\n"],
+	  [:dd, '書き込み可能なWebページ'+"\n"],
+	  [:dt, "QuickML\n"],
+	  [:dd, "簡単に作れるメーリングリストシステム"]], "\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, "強調"],  "、",
+	  [:strong, "さらに強調"],  "、",
+	  [: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

data/vendor/qwik/lib/qwik/htree-diff.rb

@@ -0,0 +1,87 @@
+# 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'
+begin
+  require 'diff'
+rescue LoadError
+  require 'algorithm/diff'
+end
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-string'
+require 'qwik/htree-generator'
+
+module Qwik
+  class HTreeDiffHtmlGenerator
+    def initialize(s1, s2)
+      @s1 = s1.gsub(/\r/, "")
+      @s2 = s2.gsub(/\r/, "")
+    end
+
+    def to_txt
+      a1 = @s1.split("\n").collect! {|s| "#{s}\n"}
+      a2 = @s2.split("\n").collect! {|s| "#{s}\n"}
+      Diff.diff(a1, a2) 
+    end
+
+    def to_xml
+      g = HTree::Generator.new
+      src = @s1.split("\n").collect {|s| "#{s.escapeHTML}" }
+      si = 0
+      di = 0
+      e = []
+      to_txt.each {|action, position, elements|
+        case action
+        when :-
+          while si < position
+	    e << HTree::Text.new(src[si])
+	    e << g.br
+            si += 1
+            di += 1
+          end
+          si += elements.length
+          elements.each {|l|
+            e << g.del{l.chomp}
+	    e << g.br
+	  }
+        when :+
+          while di < position
+	    e << HTree::Text.new(src[si])
+	    e << g.br
+            si += 1
+            di += 1
+          end
+          di += elements.length
+          elements.each {|l|
+            e << g.ins{l.chomp}
+	    e << g.br
+	  }
+        end
+      }
+      while si < src.length
+	e << HTree::Text.new(src[si])
+	e << g.br
+        si += 1
+      end
+      e
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeDiffHtmlGenerator < Test::Unit::TestCase
+    def test_all
+      dhg = Qwik::HTreeDiffHtmlGenerator.new('a', 'b')
+      ok_eq([[:-, 0, ["a\n"]], [:+, 0, ["b\n"]]], dhg.to_txt)
+      ok_eq("[{elem <del> {text a}}, {emptyelem <br>}, {elem <ins> {text b}}, {emptyelem <br>}]", dhg.to_xml.inspect)
+    end
+  end
+end

data/vendor/qwik/lib/qwik/htree-format-xml.rb

@@ -0,0 +1,57 @@
+# 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? '..'
+
+module HTree
+  module Node
+    def format_xml(i=-1)
+      str = ''
+      display_xml(str)
+      str.gsub!(%r! xmlns=\"http://www.w3.org/1999/xhtml\"!, "")
+      str.gsub!(%r! xmlns=\"\"!, "")
+      if i < 0
+	str.gsub!(/\n>/, ">")
+	str.gsub!(/\n\/>/, "/>")
+      end
+      str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTree_format_xml < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      # check_extract_text
+      e = HTree::Elem.new('a', 't')
+      ok("<a>t</a>", e)
+      ok_eq('t', e.extract_text.to_s)
+
+      e = HTree::Elem.new('b', 's', e, 'u')
+      ok("<b>s<a>t</a>u</b>", e)
+      ok_eq('stu', e.extract_text.to_s)
+
+      # test_htree_format_xml
+      e = HTree::Elem.new('a')
+      ok_eq("<a/>", e.format_xml)
+      ok_eq("<a\n/>", e.format_xml(0))
+
+      e = HTree::Text.new('a')
+      ok_eq('a', e.format_xml)
+      ok_eq('a', e.format_xml(0))
+    end
+  end
+end

data/vendor/qwik/lib/qwik/htree-generator.rb

@@ -0,0 +1,144 @@
+# 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? '..'
+
+module HTree
+  module GeneratorModule
+    def method_missing(symbol, *args, &block)
+      make(symbol, *args, &block)
+    end
+
+    def p(*args, &block)
+      make(:p, *args, &block)
+    end
+
+    def make(symbol, *args, &block)
+      ar = make_ar(symbol, *args, &block)
+      Elem.new(*ar)
+    end
+
+    def make_ar(symbol, *args, &block)
+      ar = []
+
+      ar << symbol.to_s.gsub(/_/, '-') # tag name
+
+      if 0 < args.length
+	a = add_args(args)
+	ar += a
+      end
+
+      if block
+	y = block.call
+	ar += add_elems(y)
+      end
+
+      ar
+    end
+
+    def add_args(args)
+      args.flatten.map {|arg|
+	symbol_to_hash(arg)
+      }
+    end
+
+    def add_elems(args)
+      return [] if args.nil?
+      return [args] unless args.kind_of? Array
+      ar = []
+      args.each {|a|
+	next if a.nil?
+	ar << a
+      }
+      ar = [''] if ar.empty?
+      ar
+    end
+
+    def symbol_to_hash(s)
+      h = {}
+      s.each {|k, v|
+	next if v.nil?
+	h[k.to_s] = v.to_s
+      }
+      h
+    end
+  end
+
+  class Generator; include GeneratorModule; end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeGenerator < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      g = HTree::Generator.new
+
+      # test_htree_generator
+      ok("<p/>", g.p)
+      doc = HTree::Doc.new(g.p)
+      ok("<p/>", doc)
+      str = ''
+      doc.display_xml(str)
+      ok_eq("<p\n/>", str)
+
+      ok("<a/>", g.a)
+      ok("<b/>", g.b{})
+      ok("<b></b>", g.b{''})
+      ok('<img src='u'/>', g.img(:src=>'u'))
+      ok("<b>t</b>", g.b{'t'})
+      ok("<p><b>b</b></p>", g.p{g.b{'b'}})
+      ok("<p>t<p>b</p>t</p>", g.p{['t', g.p{'b'}, 't']})
+      ok('<a href='u'>t</a>', g.a(:href=>'u'){'t'})
+      ok('<font size='7'>t</font>', g.font(:size => 7){'t'})
+
+      # test_namespace
+      ok("<b>t</b>", g.make('b'){'t'})
+      ok("<n:b>t</n:b>", g.make("n:b"){'t'})
+      ok('<a href='u'>t</a>', g.make('a', :href=>'u'){'t'})
+
+      html = g.html {[
+	  g.head {[
+	      g.title {"タイトル"},
+	    ]},
+	  g.body {[
+	      g.pre {[g.b {'world'},  'hello']},
+	      g.pre {['This is ', g.b{'bold'}, ' text.']},
+	      g.pre {['This is ', g.i{'italic'}, ' text.']},
+	      g.p {['This is ', g.a(:href=>'hoge'){'anchor'}, ' text.']},
+	    ]}
+	]}
+      ok("<html><head><title>タイトル</title></head><body><pre><b>world</b>hello</pre><pre>This is <b>bold</b> text.</pre><pre>This is <i>italic</i> text.</pre><p>This is <a href=\"hoge\">anchor</a> text.</p></body></html>", html)
+
+      # test_with_underbar
+      ok("<ab/>", g.ab)
+      ok("<a-b/>", g.a_b)
+      ok("<a-b/>", g.make("a_b"))
+      ok("<a-b/>", g.make("a-b"))
+
+      # test_ordered_hash
+      ok("<a b=\"c\"/>", g.a({'b'=>'c'}))
+      ok("<a b=\"c\"/>", g.a([{'b'=>'c'}]))
+      ok("<a b=\"c\" d=\"e\"/>", g.a([{'b'=>'c'}, {'d'=>'e'}]))
+      ok("<a b=\"c\" d=\"e\"/>", g.a({'b'=>'c'}, {'d'=>'e'}))
+
+      # test_multi_attr
+      ok("<a href=\"h\" class=\"c\"/>",
+	 g.make('a', {:href=>'h'}, {:class=>'c'}))
+      ok("<a class=\"c\" href=\"h\"/>",
+	 g.make('a', {:class=>'c'}, {:href=>'h'}))
+    end
+  end
+end