IOWA 1.0.0

data/external/test_support.rb

@@ -0,0 +1,95 @@
+# A support module for the test suite.  This provides a win32 aware
+# mechanism for doing fork/exec operations.  It requires win32/process
+# to be installed, however.
+#
+module IWATestSupport
+	@run_modes = []
+
+	def self.create_process(args)
+		@fork_ok = true unless @fork_ok == false
+		pid = nil
+		begin
+			raise NotImplementedError unless @fork_ok
+			unless pid = fork
+				Dir.chdir args[:dir]
+				exec(*args[:cmd])
+			end
+		rescue NotImplementedError
+			@fork_ok = false
+			begin
+				require 'rubygems'
+			rescue Exception
+			end
+
+			begin
+				require 'win32/process'
+			rescue LoadError
+				raise "Please install win32-process to run all tests on a Win32 platform.  'gem install win32-process' or http://rubyforge.org/projects/win32utils"
+			end
+			cwd = Dir.pwd
+			Dir.chdir args[:dir]
+			pid = Process.create(:app_name => args[:cmd].join(' '))
+			Dir.chdir cwd
+		end
+		pid
+	end
+
+	def self.test_dir(dir)
+		File.dirname(File.expand_path(dir))
+	end
+
+	def self.cd_to_test_dir(dir)
+		Dir.chdir(File.dirname(File.expand_path(dir)))
+	end
+
+	def self.set_src_dir
+		$:.unshift File.expand_path(File.join(File.dirname(__FILE__),'../src'))
+	end
+
+	@announcements = {}
+	def self.announce(section,msg)
+		unless @announcements.has_key?(section)
+			puts "\n\n"
+			puts msg,"#{'=' * msg.length}\n\n"
+			@announcements[section] = true
+		end
+	end
+
+	def self.run_modes
+		if @run_modes.empty?
+			@run_modes << :webrick
+
+			# Test for Mongrel
+			has_mongrel = true
+			begin
+				require 'mongrel'
+			rescue
+				has_mongrel = false
+			end
+			@run_modes << :mongrel if has_mongrel
+
+			# Test for EventMachine
+			has_em = true
+			begin
+				require 'eventmachine'
+			rescue
+				has_em = false
+			end
+			if has_em
+				@run_modes << :hybrid
+				@run_modes << :httpmachine
+			end
+		end
+		@run_modes
+	end
+
+	def self.fastest_runmode
+		[:hybrid,:mongrel].select {|mode| run_modes.include? mode}.first
+	end
+
+	def self.safest_runmode
+		:webrick
+	end
+
+end
+

data/external/tmail/README

@@ -0,0 +1,7 @@
+This is a version of tmail that has been modified to be pure ruby only.
+If tmail already exists on the system, this version should not be installed.
+The IOWA installer will detect this.
+
+The full, original Tmail package can be found at
+
+ http://i.loveruby.net/en/projects/tmail/

data/external/tmail/tmail.rb

@@ -0,0 +1,4 @@
+require 'tmail/info'
+require 'tmail/mail'
+require 'tmail/mailbox'
+require 'tmail/obsolete'

data/external/tmail/tmail/address.rb

@@ -0,0 +1,222 @@
+#
+# address.rb
+#
+# Copyright (c) 1998-2004 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU Lesser General Public License version 2.1.
+#
+
+require 'tmail/encode'
+require 'tmail/parser'
+
+module TMail
+
+  class Address
+
+    include TextUtils
+
+    def Address.parse(str)
+      Parser.parse :ADDRESS, str
+    end
+
+    def address_group?
+      false
+    end
+
+    def initialize(local, domain)
+      if domain
+        domain.each do |s|
+          raise SyntaxError, 'empty word in domain' if s.empty?
+        end
+      end
+      @local = local
+      @domain = domain
+      @name   = nil
+      @routes = []
+    end
+
+    attr_reader :name
+
+    def name=(str)
+      @name = str
+      @name = nil if str and str.empty?
+    end
+
+    alias phrase  name
+    alias phrase= name=
+
+    attr_reader :routes
+
+    def inspect
+      "#<#{self.class} #{address()}>"
+    end
+
+    def local
+      return nil unless @local
+      return '""' if @local.size == 1 and @local[0].empty?
+      @local.map {|i| quote_atom(i) }.join('.')
+    end
+
+    def domain
+      return nil unless @domain
+      join_domain(@domain)
+    end
+
+    def spec
+      s = self.local
+      d = self.domain
+      if s and d
+        s + '@' + d
+      else
+        s
+      end
+    end
+
+    alias address  spec
+
+
+    def ==(other)
+      other.respond_to? :spec and self.spec == other.spec
+    end
+
+    alias eql? ==
+
+    def hash
+      @local.hash ^ @domain.hash
+    end
+
+    def dup
+      obj = self.class.new(@local.dup, @domain.dup)
+      obj.name = @name.dup if @name
+      obj.routes.replace @routes
+      obj
+    end
+
+    include StrategyInterface
+
+    def accept(strategy, dummy1 = nil, dummy2 = nil)
+      unless @local
+        strategy.meta '<>'   # empty return-path
+        return
+      end
+
+      spec_p = (not @name and @routes.empty?)
+      if @name
+        strategy.phrase @name
+        strategy.space
+      end
+      tmp = spec_p ? '' : '<'
+      unless @routes.empty?
+        tmp << @routes.map {|i| '@' + i }.join(',') << ':'
+      end
+      tmp << self.spec
+      tmp << '>' unless spec_p
+      strategy.meta tmp
+      strategy.lwsp ''
+    end
+
+  end
+
+
+  class AddressGroup
+
+    include Enumerable
+
+    def address_group?
+      true
+    end
+
+    def initialize(name, addrs)
+      @name = name
+      @addresses = addrs
+    end
+
+    attr_reader :name
+    
+    def ==(other)
+      other.respond_to? :to_a and @addresses == other.to_a
+    end
+
+    alias eql? ==
+
+    def hash
+      map {|i| i.hash }.hash
+    end
+
+    def [](idx)
+      @addresses[idx]
+    end
+
+    def size
+      @addresses.size
+    end
+
+    def empty?
+      @addresses.empty?
+    end
+
+    def each(&block)
+      @addresses.each(&block)
+    end
+
+    def to_a
+      @addresses.dup
+    end
+
+    alias to_ary to_a
+
+    def include?(a)
+      @addresses.include? a
+    end
+
+    def flatten
+      set = []
+      @addresses.each do |a|
+        if a.respond_to? :flatten
+          set.concat a.flatten
+        else
+          set.push a
+        end
+      end
+      set
+    end
+
+    def each_address(&block)
+      flatten.each(&block)
+    end
+
+    def add(a)
+      @addresses.push a
+    end
+
+    alias push add
+    
+    def delete(a)
+      @addresses.delete a
+    end
+
+    include StrategyInterface
+
+    def accept(strategy, dummy1 = nil, dummy2 = nil)
+      strategy.phrase @name
+      strategy.meta ':'
+      strategy.space
+      first = true
+      each do |mbox|
+        if first
+          first = false
+        else
+          strategy.meta ','
+        end
+        strategy.space
+        mbox.accept strategy
+      end
+      strategy.meta ';'
+      strategy.lwsp ''
+    end
+
+  end
+
+end   # module TMail

data/external/tmail/tmail/base64.rb

@@ -0,0 +1,52 @@
+#
+# base64.rb
+#
+# Copyright (c) 1998-2004 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU Lesser General Public License version 2.1.
+#
+
+module TMail
+
+  module Base64
+
+    module_function
+
+    def rb_folding_encode(str, eol = "\n", limit = 60)
+      [str].pack('m')
+    end
+
+    def rb_encode(str)
+      [str].pack('m').tr( "\r\n", '' )
+    end
+
+    def rb_decode(str, strict = false)
+      str.unpack('m')
+    end
+
+    begin
+      require 'tmail/base64.so'
+      alias folding_encode c_folding_encode
+      alias encode         c_encode
+      alias decode         c_decode
+      class << self
+        alias folding_encode c_folding_encode
+        alias encode         c_encode
+        alias decode         c_decode
+      end
+    rescue LoadError
+      alias folding_encode rb_folding_encode
+      alias encode         rb_encode
+      alias decode         rb_decode
+      class << self
+        alias folding_encode rb_folding_encode
+        alias encode         rb_encode
+        alias decode         rb_decode
+      end
+    end
+
+  end
+
+end

data/external/tmail/tmail/compat.rb

@@ -0,0 +1,39 @@
+unless Enumerable.method_defined?(:map)
+  module Enumerable
+    alias map collect
+  end
+end
+
+unless Enumerable.method_defined?(:select)
+  module Enumerable
+    alias select find_all
+  end
+end
+
+unless Enumerable.method_defined?(:reject)
+  module Enumerable
+    def reject
+      result = []
+      each do |i|
+        result.push i unless yield(i)
+      end
+      result
+    end
+  end
+end
+
+unless Enumerable.method_defined?(:sort_by)
+  module Enumerable
+    def sort_by
+      map {|i| [yield(i), i] }.sort.map {|val, i| i }
+    end
+  end
+end
+
+unless File.respond_to?(:read)
+  def File.read(fname)
+    File.open(fname) {|f|
+      return f.read
+    }
+  end
+end

data/external/tmail/tmail/config.rb

@@ -0,0 +1,50 @@
+#
+# config.rb
+#
+# Copyright (c) 1998-2004 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU Lesser General Public License version 2.1.
+#
+
+module TMail
+
+  class Config
+
+    def initialize(strict)
+      @strict_parse = strict
+      @strict_base64decode = strict
+    end
+
+    def strict_parse?
+      @strict_parse
+    end
+
+    attr_writer :strict_parse
+
+    def strict_base64decode?
+      @strict_base64decode
+    end
+
+    attr_writer :strict_base64decode
+
+    def new_body_port(mail)
+      StringPort.new
+    end
+
+    alias new_preamble_port  new_body_port
+    alias new_part_port      new_body_port
+  
+  end
+
+  DEFAULT_CONFIG        = Config.new(false)
+  DEFAULT_STRICT_CONFIG = Config.new(true)
+
+  def Config.to_config(arg)
+    return DEFAULT_STRICT_CONFIG if arg == true
+    return DEFAULT_CONFIG        if arg == false
+    arg or DEFAULT_CONFIG
+  end
+
+end