keystone 0.0.29

data/lib/keystone/core_ext.rb

@@ -0,0 +1,18 @@
+module Keystone
+  module CoreExt
+    require 'keystone/core_ext/blank'
+    require 'keystone/core_ext/uri'
+    require 'keystone/core_ext/tempfile'
+    require 'keystone/core_ext/dir'
+    require 'keystone/core_ext/ipaddr'
+    require 'keystone/core_ext/object'
+    require 'keystone/core_ext/array'
+  end
+end
+
+
+
+
+
+
+

data/lib/keystone/core_ext/array.rb

@@ -0,0 +1,29 @@
+class Array
+  #
+  # TODO 
+  # active_supportに同様のメソッドが無いかどうかの確認
+  #
+  def split_by(num)
+    return [] if self.size < 1
+    ret = [[]]
+    counter = 0
+    self.each do |val|
+      (counter = 0;ret << []) if counter >= num
+      ret[-1] << val
+      counter += 1
+    end
+    return ret
+  end
+  
+  if RUBY_VERSION < '1.8.7'
+    def sample(count=1)
+      if count == 1
+        return at( rand( size ) )
+      elsif count < 1
+        return nil
+      else
+        return sort_by{rand}[0..count-1]
+      end
+    end
+  end
+end

data/lib/keystone/core_ext/blank.rb

@@ -0,0 +1,44 @@
+class Object
+  # copy from activesupport
+  def blank?
+    respond_to?(:empty?) ? empty? : !self
+  end
+end
+
+class NilClass #:nodoc:
+  def blank?
+    true
+  end
+end
+
+class FalseClass #:nodoc:
+  def blank?
+    true
+  end
+end
+
+class TrueClass #:nodoc:
+  def blank?
+    false
+  end
+end
+
+class Array #:nodoc:
+  alias_method :blank?, :empty?
+end
+
+class Hash #:nodoc:
+  alias_method :blank?, :empty?
+end
+
+class String #:nodoc:
+  def blank?
+    self !~ /\S/
+  end
+end
+
+class Numeric #:nodoc:
+  def blank?
+    false
+  end
+end

data/lib/keystone/core_ext/dir.rb

@@ -0,0 +1,16 @@
+class Dir
+
+
+  # TODO
+  # replace FileUtils.mkdir_p
+  def self.mkdir_r(dirPath)
+    folders = dirPath.split('/')
+    folderToCreate = ''
+    folders.each do |folder|
+      folderToCreate += folder + '/'
+      if !File.directory?(folderToCreate)
+        Dir.mkdir(folderToCreate)
+      end
+    end
+  end  
+end

data/lib/keystone/core_ext/ipaddr.rb

@@ -0,0 +1,18 @@
+require 'ipaddr'
+
+class IPAddr
+  def to_a
+    begin_addr = (@addr & @mask_addr)
+    case @family
+    when Socket::AF_INET
+      end_addr = (@addr | (IN4MASK ^ @mask_addr))
+    when Socket::AF_INET6
+      end_addr = (@addr | (IN6MASK ^ @mask_addr))
+    else
+      raise "unsupported address family"
+    end
+    ret = []
+    begin_addr.upto(end_addr){|addr| ret << IPAddr.new(addr,Socket::AF_INET)}
+    return ret
+  end
+end

data/lib/keystone/core_ext/object.rb

@@ -0,0 +1,34 @@
+class Object
+  # http://www.yohasebe.com/pages/trans-seeing-metaclasses-clearly/
+  def metaclass
+    class << self
+      self
+    end
+  end
+ 
+  # http://www.yohasebe.com/pages/trans-seeing-metaclasses-clearly/
+  def meta_eval(&blk)
+    metaclass.instance_eval(&blk)
+  end
+ 
+  # http://www.yohasebe.com/pages/trans-seeing-metaclasses-clearly/
+  def meta_def(name, &blk)
+   meta_eval { define_method name, &blk }
+  end
+ 
+  # http://www.yohasebe.com/pages/trans-seeing-metaclasses-clearly/
+  def class_def(name, &blk)
+    class_eval { define_method name, &blk }
+  end
+  
+  # 1.8.7  エミュレート
+  # TODO version 指定
+  def tap
+    yield(self)
+    self
+  end
+  
+  def tapp
+    self.tap{|obj| p obj}
+  end
+end

data/lib/keystone/core_ext/tempfile.rb

@@ -0,0 +1,14 @@
+require 'tempfile'
+
+class Tempfile
+  def self.open_with_block(name = nil, dir = nil)
+    name ||= (0..8).map{rand(36).to_s(36)}.join
+    args = dir ? [name, dir] : [name]
+    tmp = Tempfile.open *args
+    begin
+      yield tmp
+    ensure
+      tmp.close true
+    end
+  end
+end

data/lib/keystone/core_ext/uri.rb

@@ -0,0 +1,14 @@
+class Uri
+  #
+  def self.escape_raw(st)
+    st.gsub(/([^a-zA-Z0-9_\-\.~])/) { "%#{$1.unpack('H*')[0].scan(/../).join('%').upcase }" }
+  end
+
+  #
+  # usage
+  # @search_tag = Uri.unescape_raw(params[:tag]).toutf8
+  #
+  def self.unescape_raw(st)
+    st.tr('+',' ').gsub(/%([A-Fa-f0-9][A-Fa-f0-9])/) { [$1.hex].pack('C') }
+  end
+end

data/lib/keystone/mail.rb

@@ -0,0 +1,8 @@
+module Keystone::Mail
+  autoload :Message,          'keystone/mail/message'
+  autoload :MessageIso2022jp, 'keystone/mail/message_iso2022jp'
+  autoload :MessageSjis,      'keystone/mail/message_sjis'
+  autoload :Receive,          'keystone/mail/receive'
+  autoload :MessageFactory,   'keystone/mail/message_factory'
+  autoload :Send,             'keystone/mail/send'
+end

data/lib/keystone/mail/address.rb

@@ -0,0 +1,92 @@
+require 'net/smtp'
+
+if __FILE__ ==$0
+  $: << '../..'
+  require 'keystone'
+end
+
+module Keystone
+  module Mail
+    class Address
+        attr_accessor :name,:address
+
+        def initialize(name,address)
+          @name = name
+          @address = address
+        end
+
+        def KmMailAddress::get_addresses(line)
+          ret = []
+          addrs = line.to_s.split(',')
+          addrs.each{|item|
+            addr,name = parse_mail_address(item)
+            ret.push(KmMailAddress.new(name,addr))
+          }
+          return ret
+        end
+
+        def KmMailAddress::parse_mail_address(line)
+          # =?ISO-2022-JP?B?GyRCODZFRCVGJTklSBsoQg==?= <harada@kanamei.co.jp>
+          # test@mail-ko2.kanamei.co.jp
+          # <orz@softbank.ne.jp>
+          # "=?ISO-2022-JP?B?GyRCNjZLXBsoQg==?=" <hashimoto@kanamei.co.jp>
+
+          #=?ISO-2022-JP?B?GyRCODZFRCQ5JDIhPCE8ITwhPCE8ITwhPCE8ITwhPCE8ITwhPBsoQg==?=
+          #=?ISO-2022-JP?B?GyRCITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8GyhC?=
+          #=?ISO-2022-JP?B?GyRCITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8ITwhPCE8GyhC?=
+          #=?ISO-2022-JP?B?GyRCITwhPCE8ITwhPCE8ITwkSiQsJCRGfEtcOGxMPhsoQkZ1Y2sbJEIlRhsoQg==?=
+          #=?ISO-2022-JP?B?GyRCJTklSBsoQg==?= <harada@kanamei.co.jp>, 
+          #test@mail-ko2.kanamei.co.jp
+
+          #"=?ISO-2022-JP?B?GyRCJEokLCE8ITwhPCE8ITwhPCE8GyhC?= =?ISO-2022-JP?B?GyRCITwhPCE8ITwhPCE8ITwhPCE8ITwbKEI=?= =?ISO-2022-JP?B?GyRCITwkJEw+QTAlRiU5JUgkJiQyGyhC?= =?ISO-2022-JP?B?GyRCITwhPCE8ITwhPCRKJHMkLiRkJE0bKEI=?=" <test@mail-ko2.kanamei.co.jp>
+          #"=?UTF-8?B?44Gq44GM44O844O844O844O844O844O844O844O844O8?==?UTF-8?B?44O844O844O844O844O844O844O844O844O844O844O8?==?UTF-8?B?44O844O844O844O844O844O844O844O844O844O844O8?==?UTF-8?B?44O844O844O844O844O844O844O844O844O844O844O8?==?UTF-8?B?44O844O844O844O844O844O844O844O844O844O844O8?==?UTF-8?B?44O844O844O844O844O844GE44GC44Gm5YWI?=
+
+          name,address = ""
+          KmClassBase::debug "line=#{line}"
+
+          if /"(.*)"\s*<(.*)>/ =~ line
+            # umaku dekinkatta
+            name = $1.strip
+            address = $2.strip
+            KmClassBase::debug "name=|#{name}|"
+          elsif /(.*)\s*<(.*)>/ =~ line
+            name = $1.strip
+            address = $2.strip
+            KmClassBase::debug "name=|#{name}|"
+            KmClassBase::debug "address=|#{address}|"
+          else
+            address = line.strip
+          end
+
+      #    if /^=\?ISO-2022-JP.*/i =~ name || 
+      #    if /^=\?UTF-8/i =~ name
+          if /^(?:(=\?ISO-2022-JP\?B\?)|(=\?UTF-8\?B\?))/i =~ name
+            KmClassBase::debug "hit!!"
+            begin
+              KmClassBase::debug "hit #{$1}"
+              name = KmMailAddress::convert(name)
+            rescue => e
+              KmClassBase::warn e.to_s
+            end
+          end
+
+          KmClassBase::debug "name_end=|#{name}|"
+          KmClassBase::debug "address_end=|#{address}|"
+          return address,name
+        end  
+
+        # TODO 場所考える（今二個ある）
+        def KmMailAddress::convert(data)
+          return Kconv.toutf8(data)
+        end
+
+        def self.create_reverse_mail_address(mail_addr)
+          puts mail_addr
+          m = mail_addr.dup.strip
+          puts "|#{m}|"
+          ar = m.split("@")
+          return ar[1].split(".").reverse.join(".") +"@"+ ar[0]
+        end      
+    end
+  end
+end

data/lib/keystone/mail/content_type.rb

@@ -0,0 +1,60 @@
+require 'net/smtp'
+
+if __FILE__ ==$0
+  $: << '../..'
+  require 'keystone'
+end
+
+module Keystone
+  module Mail
+    class ContentType
+      attr_accessor :content_type,:charset,:boundary
+      def initialize(st)
+        if /text\/plain/i =~ st
+          @content_type = :text_plain
+          if /charset="?iso-2022-jp"?/i =~ st
+            @charset = :iso_2022_jp
+          elsif /charset="?utf-8"?/i =~ st
+            @charset = :utf_8
+          end
+        elsif /multipart\/mixed/i =~ st
+          @content_type = :multipart_mixed
+          @boundary = get_boundary(st)
+        elsif /multipart\/related/i =~ st
+          @content_type = :multipart_related
+          @boundary = get_boundary(st)
+        elsif /multipart\/alternative/i =~ st
+          @content_type = :multipart_alternative
+          @boundary = get_boundary(st)
+        elsif /text\/html/i =~ st
+          @content_type = :text_html
+          if /charset="?iso-2022-jp"?/i =~ st
+            @charset = :iso_2022_jp
+          elsif /charset="?utf-8"?/i =~ st
+            @charset = :utf_8
+          end
+        else
+          if /image\/(?:jpeg|jpg)/i =~ st
+              @content_type = :image_jpeg
+          elsif /image\/png/i =~ st
+            @content_type = :image_png
+          elsif /image\/gif/i =~ st
+            @content_type = :image_gif
+          else
+            throw "this image does not support[#{st}]"
+          end
+        end
+      end
+  
+      def get_boundary(st)
+        # TODO  modify regular expression 
+          if /boundary="(.*)"/i =~ st
+            return $1
+          elsif /boundary=(.*)/i =~ st
+            return $1
+          end
+          return nil
+      end
+    end
+  end
+end

data/lib/keystone/mail/message.rb

@@ -0,0 +1,102 @@
+require 'kconv'
+
+module Keystone
+  module Mail
+    class Message
+      attr_accessor :subject, :body, :mail_to, :mail_from, :mail_from_text
+
+      #
+      # 普通なことをしたいならTMailを使いましょう
+      #
+      def initialize(opt={})
+        @subject, @body, @mail_from_text = "", "", nil
+        set_option(opt)
+      end
+
+      def to_src
+        header = ""
+        header += "Date: #{time2str(Time.now)}\n"
+        header += create_mailfrom_header
+        header += create_mailto_header
+        header += create_subject_header
+        header += "\n"
+        header += encode_body
+        return header
+      end
+      
+      def set_option(opt)
+        @subject = opt[:subject] if opt.key?(:subject)
+        @body = opt[:body] if opt.key?(:body)
+        @body = opt[:mail_to] if opt.key?(:mail_to)
+        @body = opt[:mail_from] if opt.key?(:mail_from)
+        @mail_from_text = opt[:mail_from_text] if opt.key?(:mail_from_text)
+      end
+      
+      private
+      
+      # from tmail
+      WDAY = %w( Sun Mon Tue Wed Thu Fri Sat KeystoneBUG )
+      MONTH = %w( TMailBUG Jan Feb Mar Apr May Jun
+                           Jul Aug Sep Oct Nov Dec KeystoneBUG )
+      def time2str( tm )
+        # [ruby-list:7928]
+        gmt = Time.at(tm.to_i)
+        gmt.gmtime
+        offset = tm.to_i - Time.local(*gmt.to_a[0,6].reverse).to_i
+
+        # DO NOT USE strftime: setlocale() breaks it
+        return sprintf('%s, %s %s %d %02d:%02d:%02d %+.2d%.2d',
+                WDAY[tm.wday], tm.mday, MONTH[tm.month],
+                tm.year, tm.hour, tm.min, tm.sec,
+                *(offset / 60).divmod(60))
+      end      
+      
+      def create_mailfrom_header
+        if @mail_from_text.blank?
+          return "From: #{@mail_from}\n"
+        else
+          return to_mail_header("From", @mail_from_text).chomp + "<#{@mail_from}>\n"
+        end        
+      end
+      
+      def create_subject_header
+        to_mail_header("Subject",@subject)
+      end
+      
+      def create_mailto_header
+        if @mail_to.kind_of?(Array)
+          return "To: #{@mail_to.join(',')}\n"
+        else
+          return "To: #{@mail_to.to_s}\n"
+        end
+      end
+      
+      def encode_mime
+        raise "mime_encode must be implemented!!"
+      end
+      
+      def encode_body
+        raise "encoded_body must be implemented!!"
+      end
+      
+      def mime_header_string
+        raise "mime_header_string must be implemented!!"
+      end
+
+      private
+
+      def to_mail_header(header_name, plain_text)
+        ret = ""
+        str = plain_text.clone
+        str.gsub!(/(\r|\n)/,"")
+        str.split(//).split_by(10).each do |ar|
+          st = encode_mime(ar.join(''))
+          st = st.split(//,1).pack('m')
+          st = st.chomp
+          ret += " #{mime_header_string}#{st}?=\n"   
+        end
+        return "#{header_name}:"+ret
+      end
+    end
+  end
+end