qwik2md 0.1.0

data/vendor/qwik/lib/qwik/util-sendmail.rb

@@ -0,0 +1,273 @@
+#
+# 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.
+#
+
+require 'socket'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mail'
+require 'qwik/util-charset'
+
+module Qwik
+  class Sendmail
+    def initialize(host, port, test=false)
+      @host, @port = host, port
+      @test = test
+    end
+
+    def send(mail)
+      Sendmail.send(@host, @port, mail[:from], mail[:to], mail[:subject],
+		    mail[:content], @test)
+    end
+
+    # FIXME: This method is too ad hoc.
+    def self.send(host, port, from, to, subject, body, test)
+      efrom    = QuickML::Mail.encode_field(from.to_s)
+      eto      = QuickML::Mail.encode_field(to.to_s)
+      esubject = QuickML::Mail.encode_field(subject)
+      body = body.set_sourcecode_charset.to_mail_charset
+      message =
+"From: #{efrom}
+To: #{eto}
+Subject: #{esubject}
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+#{body}
+"
+      if test
+	$smtp_sendmail = [host, port, efrom, eto, message]
+	return message	# for debug
+      end
+
+      require 'net/smtp'
+      Net::SMTP.start(host, port) {|smtp|
+	smtp.send_mail(message, from, to)
+      }
+      return nil
+    end
+  end
+end
+
+class Sendmail
+  def self.send_mail (smtp_host, smtp_port, logger, mail)
+    validate_mail(mail)
+
+    msg = build_message(mail)
+
+    result = nil
+    begin
+      config = Sendmail.prepare_config(smtp_host, smtp_port, true)
+      s = Sendmail.open_socket(config)
+
+      myhostname = config[:test] ? 'sender' : Socket.gethostname
+
+      Sendmail.send_to_socket(config, s, myhostname, msg,
+			      mail[:mail_from], mail[:recipient])
+      result = s
+    rescue => e
+      logger.log "Error: Unable to send mail: #{e.class}: #{e.message}"
+    end
+
+    if $test
+      $quickml_sendmail = [smtp_host, smtp_port,
+	mail[:mail_from], mail[:recipient], msg]
+    end
+
+    return result	# Only for test
+  end
+
+  private
+
+  def self.validate_mail(mail)
+    if mail[:mail_from].nil? ||
+	mail[:recipient].nil? ||
+	mail[:header].nil? ||
+	mail[:body].nil?
+      raise "Missing mail header."
+    end
+
+    mail[:recipient] = [mail[:recipient]] if mail[:recipient].kind_of?(String)
+  end
+
+  def self.build_message(mail)
+    return mail[:header].map {|field|
+      key, value = field
+      "#{key}: #{value}\n"
+    }.join+"\n"+mail[:body]
+  end
+
+  def self.prepare_config(smtp_host, smtp_port,
+			  use_xverp = false, test = false)
+    test = true if defined?($test) && $test
+    config = {
+      :smtp_port => smtp_port,
+      :smtp_host => smtp_host,
+      :use_xverp => use_xverp,
+      :xverp_available => false,
+      :test => test,
+    }
+    return config
+  end
+
+  def self.open_socket(c)
+    klass = c[:test] ? MockSmtpServer : TCPSocket
+    s = $ml_sm = klass.open(c[:smtp_host], c[:smtp_port]) # $ml_sm is for test
+    return s
+  end
+
+  def self.send_to_socket(c, s, myhostname, message, mail_from, recipients)
+    recipients = [recipients] if recipients.kind_of?(String)
+
+    send_command(c, s, nil, 220)
+
+    send_command(c, s, "EHLO #{myhostname}", 250)
+
+    if c[:use_xverp] and c[:xverp_available] and (not mail_from.empty?)
+      send_command(c, s, "MAIL FROM: <#{mail_from}> XVERP===", 250)
+    else
+      send_command(c, s, "MAIL FROM: <#{mail_from}>", 250)
+    end
+
+    recipients.each {|recipient|
+      send_command(c, s, "RCPT TO: <#{recipient}>", 250)
+    }
+
+    send_command(c, s, 'DATA', 354)
+
+    message.each_line {|line|
+      line.sub!(/\r?\n/, "")
+      line.sub!(/^\./, '..')
+      line << "\r\n"
+      s.print(line)
+    }
+
+    send_command(c, s, '.', 250)
+    send_command(c, s, 'QUIT', 221)
+
+    s.close
+  end
+
+  def self.send_command (c, s, command, code)
+    s.print(command + "\r\n") if command
+    begin
+      line = s.gets
+      c[:xverp_available] = true if /^250-XVERP/.match(line)
+    end while line[3] == ?-
+
+    return_code = line[0, 3].to_i
+    if return_code == code
+      line
+    else
+      raise "smtp-error: #{command} => #{line}"
+    end
+  end
+end
+
+def Sendmail(*args)
+  Sendmail.send_mail(*args)
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  require 'qwik/testunit'
+  require 'qwik/mock-sendmail'
+  require 'pp'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSendmail < Test::Unit::TestCase
+    def test_all
+      sm = Qwik::Sendmail.new('127.0.0.1', '25', true)
+      mail = {
+	:from    => 'from@example.com',
+	:to      => 'to@example.com',
+	:subject => 'subject',
+	:content => 'content',
+      }
+      assert_equal "From: from@example.com
+To: to@example.com
+Subject: subject
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+content
+",
+	sm.send(mail)
+
+      mail = {
+	:from    => 'from@example.com',
+	:to      => 'to@example.com',
+	:subject => '題名',
+	:content => '本文',
+      }
+      assert_equal "From: from@example.com
+To: to@example.com
+Subject: =?ISO-2022-JP?B?GyRCQmpMPhsoQg==?=
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+\e$BK\\J8\e(B
+",
+	sm.send(mail)
+    end
+  end
+end
+
+if defined?($test) && $test
+  class TestSendmail < Test::Unit::TestCase
+    def test_all
+      c = Sendmail
+
+      # test_build_message
+      is "\n", c.build_message(:header=>[], :body=>'')
+      is "a: b\n\nc", c.build_message(:header=>[['a', 'b']], :body=>'c')
+      is "a: b\n\nc", c.build_message(:header=>[[:a, 'b']], :body=>'c')
+
+      # test_send
+      mail = {
+	:mail_from => '',
+	:recipient => '',
+	:header => [],
+	:body => '',
+      }
+      so = Sendmail('localhost', 25, nil, mail)
+      is "EHLO sender
+MAIL FROM: <>
+RCPT TO: <>
+DATA
+
+.
+QUIT",
+	so.buffer.join("\n")
+
+      mail = {
+	:mail_from => 'alice@example.com',
+	:recipient => 'bob@example.com',
+	:header => [
+	  ['To', 'bob@example.com'],
+	  ['From', 'alice@example.com'],
+	  ['Subject', 'test'],
+	],
+	:body => 'This is a test.',
+      }
+      so = Sendmail('localhost', 25, false, mail)
+      is "EHLO sender
+MAIL FROM: <alice@example.com>
+RCPT TO: <bob@example.com>
+DATA
+To: bob@example.com
+From: alice@example.com
+Subject: test
+
+This is a test.
+.
+QUIT",
+	so.buffer.join("\n")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/util-string.rb

@@ -0,0 +1,202 @@
+# 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.
+
+require 'digest/md5'
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'base64'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-charset'
+
+class String
+  def xchomp
+    return self.chomp("\n").chomp("\r")
+  end
+
+  # Used from parser.rb
+  def chompp
+    return self.sub(/[\n\r]+\z/, '')
+  end
+
+  def normalize_eol
+    return self.xchomp+"\n"
+  end
+
+  def normalize_newline
+    return self.gsub("\r\n", "\n").gsub("\r", "\n")
+  end
+
+  def sub_str(pattern, replace)
+    return sub(Regexp.new(Regexp.escape(pattern)), replace)
+  end
+
+  def md5
+    return Digest::MD5.digest(self)
+  end
+
+  def md5hex
+    return Digest::MD5.hexdigest(self)
+  end
+
+  def base64
+    return Base64.encode64(self).chomp
+  end
+
+  # ============================== escape
+  # Copied from cgi.rb
+  def escape
+    return self.gsub(/([^ a-zA-Z0-9_.-]+)/n) {
+      '%' + $1.unpack('H2' * $1.size).join('%').upcase
+    }.tr(' ', "+")
+  end
+
+  def unescape
+    return self.tr("+", ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n) {
+      [$1.delete('%')].pack('H*')
+    }
+  end
+
+  def unescapeHTML
+    return self.gsub(/&(.*?);/n) {
+      match = $1.dup
+      case match
+      when /\Aamp\z/ni	then "&"
+      when /\Aquot\z/ni	then "'"
+      when /\Agt\z/ni	then ">"
+      when /\Alt\z/ni	then "<"
+      else
+	"&#{match};"
+      end
+    }
+  end
+
+  def mb_length
+    case self.charset || self.guess_charset
+    when 'UTF-8';       return self.split(//u).length
+    when 'Shift_JIS';   return self.split(//s).length
+    when 'EUC-JP';      return self.split(//e).length
+    end
+    return self.length
+  end
+
+  def mb_substring(s,e)
+    case self.charset || self.guess_charset
+    when 'UTF-8';       return self.split(//u)[s...e].to_s
+    when 'Shift_JIS';   return self.split(//s)[s...e].to_s
+    when 'EUC-JP';      return self.split(//e)[s...e].to_s
+    end
+    return self[s...e]
+  end
+
+  # Copied from gonzui-0.1
+  # Use this method instead of WEBrick::HTMLUtils.escape for performance reason.
+  EscapeTable = {
+    "&" => "&amp;",
+    '"' => "&quot;",
+    '<' => "&lt;",
+    '>' => "&gt;",
+  }
+  def escapeHTML
+    string = self
+    return string.gsub(/[&"<>]/) {|x| EscapeTable[x] }
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestString < Test::Unit::TestCase
+    def test_string
+      # test_xchomp
+      assert_equal '', ''.xchomp
+      assert_equal '', "\n".xchomp
+      assert_equal '', "\r".xchomp
+      assert_equal '', "\r\n".xchomp
+      assert_equal "\n", "\n\r".xchomp
+      assert_equal 't', 't'.xchomp
+      assert_equal 't', "t\r".xchomp
+      assert_equal 't', "t\n".xchomp
+
+      # test_chompp
+      assert_equal '', "\n\r".chompp
+      assert_equal '', "\n\r\n\r".chompp
+
+      # test_normalize_eol
+      assert_equal "\n", ''.normalize_eol
+      assert_equal "\n", "\n".normalize_eol
+      assert_equal "t\n", 't'.normalize_eol
+      assert_equal "t\n", "t\n".normalize_eol
+
+      # test_normalize_newline
+      assert_equal "\n", "\n".normalize_newline
+      assert_equal "\n", "\r".normalize_newline
+      assert_equal "\n", "\r\n".normalize_newline
+      assert_equal "\n\n", "\n\r".normalize_newline
+      assert_equal "\na\n", "\ra\r".normalize_newline
+      assert_equal "\na\n", "\r\na\r\n".normalize_newline
+      assert_equal "\n\na\n\n", "\n\ra\n\r".normalize_newline
+
+      # test_sub_str
+      assert_equal 'a:b', 'a*b'.sub_str('*', ':')
+
+      # test_md5
+      assert_instance_of String, 't'.md5
+      assert_equal 16, 't'.md5.length
+      assert_equal "\343X\357\244\211\365\200b\361\r\3271ked\236", 't'.md5
+      assert_instance_of String, 't'.md5hex
+      assert_equal 32, 't'.md5hex.length
+      assert_equal 'e358efa489f58062f10dd7316b65649e', 't'.md5hex
+      assert_equal 'dA==', 't'.base64
+    end
+
+    def test_escape
+      # test_escape
+      assert_equal('A', 'A'.escape)
+      assert_equal("+", ' '.escape)
+      assert_equal('%2B', "+".escape)
+      assert_equal('%21', "!".escape)
+      assert_equal("ABC%82%A0%82%A2%82%A4+%2B%23", "ABCあいう +#".escape)
+
+      # test_unescape
+      assert_equal('A', '%41'.unescape)
+      assert_equal(' ', "+".unescape)
+      assert_equal("!", '%21'.unescape)
+      assert_equal("ABCあいう +#", "ABC%82%A0%82%A2%82%A4+%2B%23".unescape)
+
+      # test_escapeHTML
+      assert_equal("&lt;", "<".escapeHTML)
+      assert_equal("&gt;", ">".escapeHTML)
+      assert_equal("&amp;", "&".escapeHTML)
+      assert_equal("&lt;a href=&quot;http://e.com/&quot;&gt;e.com&lt;/a&gt;",
+		   '<a href="http://e.com/">e.com</a>'.escapeHTML)
+
+      # test_unescapeHTML
+      assert_equal("<", "&lt;".unescapeHTML)
+      assert_equal(">", "&gt;".unescapeHTML)
+      assert_equal("&", "&amp;".unescapeHTML)
+      assert_equal("<a href='http://e.com/'>e.com</a>",
+		   "&lt;a href=&quot;http://e.com/&quot;&gt;e.com&lt;/a&gt;".unescapeHTML)
+    end
+
+    def test_mb_length
+      str = "日本語文字列"
+      assert_equal(6,str.mb_length)
+
+      str = "English"
+      assert_equal(7,str.mb_length)
+    end
+
+    def test_mb_substring
+      str = "日本語文字列"
+      assert_equal("本語文",str.mb_substring(1,4))
+
+      str = "English"
+      assert_equal("ngl",str.mb_substring(1,4))
+    end
+  end
+end

data/vendor/qwik/lib/qwik/util-time.rb

@@ -0,0 +1,125 @@
+# 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.
+
+require 'parsedate'
+
+class Time
+  def md
+    return strftime('%m-%d')	# 01-01
+  end
+
+  def ymd_s
+    return strftime('%Y%m%d')	# 20000101
+  end
+
+  def ymd
+    return strftime('%Y-%m-%d')	# 2000-01-01
+  end
+
+  def ymdx
+    return strftime('%Y-%m-%d %X')	# 2000-01-01 12:34:56
+  end
+
+  def ymdax
+    return strftime("%Y-%m-%d(%a) %X")	# 2000-01-01(Sat) 12:34:56
+  end
+
+  def format_date
+    day = %w(日 月 火 水 木 金 土)	# 2000-01-01 (土) 12:34:56
+    return strftime("%Y-%m-%d #DAY# %H:%M:%S").sub(/#DAY#/, "(#{day[wday]})")
+  end
+
+  def rfc1123_date
+    return strftime('%a, %d %b %Y %H:%M:%S GMT') # Sat, 01 Jan 2000 12:34:56 GMT
+  end
+
+  def rfc_date
+    return strftime('%Y-%m-%dT%H:%M:%S')	# 2000-01-01T12:34:56
+  end
+
+  # ============================== date
+  def self.date_parse(tag)
+    if /\A(\d\d\d\d)-(\d\d)-(\d\d)\z/ =~ tag
+      return Time.local($1.to_i, $2.to_i, $3.to_i)
+    end
+    return nil
+  end
+
+  def self.date_abbr(now, date)
+    year  = date.year
+    month = date.month
+    mday  = date.mday
+    return date.ymd if now.year != date.year
+    return date.md
+  end
+
+  def self.date_emphasis(now, date, title)
+    diff = date - now
+    day = 60*60*24
+    if diff < -day	# past
+      return [:span, {:class=>'past'}, title]
+    elsif diff < day*7	# This week.
+      return [:strong, title]
+    elsif diff < day*30	# This month.
+      return [:em, title]
+    else
+      return [:span, {:class=>'future'}, title]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true 
+end
+
+if defined?($test) && $test
+  class TestUtilTime < Test::Unit::TestCase
+    def test_time
+      t = Time.gm(2000, 1, 1, 12, 34, 56)
+      assert_equal '01-01', t.md
+      assert_equal '20000101', t.ymd_s
+      assert_equal '2000-01-01', t.ymd
+      assert_equal '2000-01-01 12:34:56', t.ymdx
+      assert_equal "2000-01-01(Sat) 12:34:56", t.ymdax
+      assert_equal "2000-01-01 (土) 12:34:56", t.format_date
+      assert_equal 'Sat, 01 Jan 2000 12:34:56 GMT', t.rfc1123_date
+      assert_equal '2000-01-01T12:34:56', t.rfc_date
+    end
+  end
+
+  def test_date
+    # test_date_parse
+    time = Time.date_parse('1970-01-01')
+    assert_equal(-32400, time.to_i)
+
+    # test_date_abbr
+    now = Time.local(1970, 1, 1)
+    t2 = Time.local(1970, 1, 2)
+    abbr = Time.date_abbr(now, t2)
+    assert_equal '01-02', abbr
+
+    t2 = Time.local(1971, 1, 1)
+    abbr = Time.date_abbr(now, t2)
+    assert_equal '1971-01-01', abbr
+
+    # test_date_emphasis
+    now = Time.local(1970, 2, 1)
+    past = Time.local(1970, 1, 30)
+    span = Time.date_emphasis(now, past, 't')
+    assert_equal [:span, {:class=>'past'}, 't'], span
+
+    tomorrow = Time.local(1970, 2, 2)
+    span = Time.date_emphasis(now, tomorrow, 't')
+    assert_equal [:strong, 't'], span
+
+    nextweek = Time.local(1970, 2, 9)
+    span = Time.date_emphasis(now, nextweek, 't')
+    assert_equal [:em, 't'], span
+
+    nextmonth = Time.local(1970, 3, 3)
+    span = Time.date_emphasis(now, nextmonth, 't')
+    assert_equal [:span, {:class=>'future'}, 't'], span
+  end
+end