tmail 1.1.1

data/lib/tmail/version.rb

@@ -0,0 +1,38 @@
+#
+# version.rb
+#
+#--
+# Copyright (c) 1998-2003 Minero Aoki <aamine@loveruby.net>
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#
+# Note: Originally licensed under LGPL v2+. Using MIT license for Rails
+# with permission of Minero Aoki.
+#++
+
+module TMail #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 1
+    MINOR = 1
+    TINY  = 1
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/meta/icli.yaml

@@ -0,0 +1,16 @@
+---
+rubyforge:
+  project  : tmail
+  username : transami
+
+  release:
+    store     : pkg
+    package   : tmail
+    notelog   : log/Note.txt
+    changelog : log/Release.txt
+
+  publish: {}
+
+  announce:
+    message: README
+

data/meta/tmail-1.1.1.roll

@@ -0,0 +1,24 @@
+---
+title   : TMail
+brief   : Ruby Mail Handler
+contact : Mikel Lindsaar <raasdnil AT gmail.com>
+email   : tmail-talk@rubyforge.org
+authors :
+  - Minero Aoki
+  - Mikel Lindsaar
+
+description:
+  TMail is a Ruby-based mail handler. It allows you
+  to compose stadards compliant emails in a
+  very Ruby-way.
+
+formats: [tgz, gem]
+
+#platforms: [ruby, unix, mswin32]
+
+lib_path:
+  - lib/tmail
+
+gem_path:
+  - lib
+

data/sample/data/multipart

@@ -0,0 +1,23 @@
+Date: Tue, 26 Jan 1999 23:17:34 +0900
+From: aamine@dp.u-netsurf.ne.jp
+To: ruby-list@netlab.co.jp
+Mime-Version: 1.0
+Content-Type: multipart/mixed;
+  boundary="Multipart_Tue_Jan_26_23:14:41_1999-1"
+Content-Transfer-Encoding: 7bit
+
+this is preamble
+
+--Multipart_Tue_Jan_26_23:14:41_1999-1
+Content-Type: text/plain; charset=iso-2022-jp
+
+this is multi part body 1
+
+--Multipart_Tue_Jan_26_23:14:41_1999-1
+Content-Type: text/plain; charset=iso-2022-jp
+
+multi part body, 2
+
+--Multipart_Tue_Jan_26_23:14:41_1999-1--
+
+epilogue

data/sample/data/normal

@@ -0,0 +1,29 @@
+Received: from hoyogw.netlab.co.jp (daemon@hoyogw.netlab.co.jp [202.218.249.220])
+  by serv1.u-netsurf.ne.jp (8.8.8/3.6W-2.66(99/03/09)) with ESMTP id RAA10692
+  for <aamine@dp.u-netsurf.ne.jp>; Thu, 18 Mar 1999 17:35:23 +0900 (JST)
+Received: from hoyogw.netlab.co.jp (matz@localhost [127.0.0.1])
+  by hoyogw.netlab.co.jp (8.9.1a+3.1W/3.7W/1.3) with SMTP id RAA13204;
+  Thu, 18 Mar 1999 17:21:58 +0900
+Received: from blade.nagaokaut.ac.jp (sinara@blade.nagaokaut.ac.jp [133.44.36.60])
+  by hoyogw.netlab.co.jp (8.9.1a+3.1W/3.7W/1.3) with ESMTP id RAA13036
+  for <ruby-list@netlab.co.jp>; Thu, 18 Mar 1999 17:20:28 +0900
+Received: (from sinara@localhost)
+  by blade.nagaokaut.ac.jp (8.8.8/8.8.8/Debian/GNU) id RAA22078;
+  Thu, 18 Mar 1999 17:20:49 +0900
+Posted: Thu, 18 Mar 1999 17:20:49 +0900
+Reply-To: ruby-list@netlab.co.jp
+Subject: [ruby-list:12994] Re: Sieve of Eratosthenes (Re: [ruby-dev:6094])
+Message-Id: <199903180820.RAA22078@blade.nagaokaut.ac.jp>
+In-Reply-To: message of "Wed, 17 Mar 1999 18:42:07 +0900"
+  <199903170941.SAA12014@blade.nagaokaut.ac.jp>
+Mime-Version: 1.0
+Content-Type: text/plain; charset = iso-2022-jp
+Content-Transfer-Encoding: 7bit
+Date: Thu, 18 Mar 1999 17:21:54 +0900
+To: ruby-list@netlab.co.jp (ruby mailing list)
+From: (this is comment) local@dom1.dom2
+Subject: this is a test subject
+
+line 1
+line 2
+line 3

data/sample/data/sendtest

@@ -0,0 +1,5 @@
+To: Minero Aoki <aamine@harmony.softica.or.jp>
+From: Minero Aoki <aamine@harmony.softica.or.jp>
+Subject: Sendmail test by tmail
+
+This is mail sent by tmail.

data/sample/data/simple

@@ -0,0 +1,14 @@
+To: これはデコード済 <aamine@dp.u-netsurf.ne.jp>
+From: =?iso-2022-jp?B?GyRCJDMkbCRPJSglcyUzITwlSSQ1JGwkRiQkJD8bKEI=?=
+ <myself@softica.or.jp>
+Received: from fromdom.fromdom by bydom.bydom
+ via VIAPATH with SMTP id <msgid@tmail> for addr@spec
+ ; 23 Mar 1999 22:05:33 +0900
+Mime-Version: 1.0
+Content-Type: text/plain; charset=iso-2022-jp
+Content-Transfer-Encoding: 7bit
+Subject: this is a test subject
+
+body line 1
+body line 2
+body line 3

data/sample/data/test

@@ -0,0 +1,27 @@
+Received: from hoyogw.netlab.co.jp (matz@localhost [127.0.0.1])
+	by hoyogw.netlab.co.jp (8.9.1a+3.1W/3.7W/1.3)
+	with SMTP id RAA13204;
+	Thu, 18 Mar 1999 17:21:58 +0900
+Received: from fromdom.fromdom by bydom.bydom
+	via VIAPATH with SMTP id <msgid@tmail> for addr@spec;
+	23 Mar 1999 22:05:33 +0900
+Date: Thu, 18 Mar 1999 17:21:54 +0900
+To: ����ϥǥ����ɺ� <"aamine@"@dp.u-netsurf.ne.jp> (Minero Aoki)
+Cc:
+Bcc: =?iso-2022-jp?B?GyRCJDMkbCRPJUclMyE8JUk6URsoQg==?=
+ =?iso-2022-jp?B?PGFhbWluZUBkcC51LW5ldHN1cmYubmUuanA+?=
+From: =?iso-2022-jp?B?GyRCJDMkbCRPJSglcyUzITwlSSQ1JGwkRiQkJD8bKEI=?=
+ (From comment) (comment2) <myself@softica.or.jp>
+Posted: Thu, 18 Mar 1999 17:20:49 +0900
+Reply-To: ruby-list@netlab.co.jp
+Subject: [ruby-list:12994] Re: Sieve of Eratosthenes
+Message-Id: <199903180820.RAA22078@blade.nagaokaut.ac.jp>
+In-Reply-To: "Wed, 17 Mar 1999 18:42:07 +0900"
+  <199903170941.SAA12014@blade.nagaokaut.ac.jp>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=iso-2022-jp
+Content-Transfer-Encoding: 7bit
+
+line 1
+line 2
+line 3

data/sample/extract-attachements.rb

@@ -0,0 +1,33 @@
+#
+# extract-attachments.rb  -- Extracts attachment(s) from the message.
+#
+# Usage: ruby extract-attachments.rb mail mail...
+#
+
+require 'tmail'
+
+def main
+  idx = 1
+  ARGV.each do |fname|
+    TMail::Mail.load(fname).parts.each do |m|
+      m.base64_decode
+      File.open("#{idx}.#{ext(m)}", 'w') {|f|
+        f.write m.body
+      }
+      idx += 1
+    end
+  end
+end
+
+CTYPE_TO_EXT = {
+  'image/jpeg' => 'jpeg',
+  'image/gif'  => 'gif',
+  'image/png'  => 'png',
+  'image/tiff' => 'tiff'
+}
+
+def ext( mail )
+  CTYPE_TO_EXT[mail.content_type] || 'txt'
+end
+
+main

data/sample/from-check.rb

@@ -0,0 +1,26 @@
+#
+# checking mail From: header
+#
+
+require 'tmail'
+
+unless ARGV[0] then
+  $stderr.puts "usage: ruby fromcheck.rb <mhdir>"
+  exit 1
+end
+
+table = {}    # from-addr-spec => [count, friendly-from]
+ld = TMail::MhLoader.new( ARGV[0] )
+ld.each_port do |port|
+  mail = TMail::Mail.new( port )
+  addr, = mail.from_addrs
+  if addr then
+    (table[addr.spec] ||= [0, mail.friendly_from])[0] += 1
+  end
+end
+
+table.to_a.sort {|a,b|
+    b[1][0] <=> a[1][0]
+}.each_with_index do |(spec,(n,from)), i|
+  printf "%3d %-33s %d\n", i+1, from, n
+end

data/sample/multipart.rb

@@ -0,0 +1,26 @@
+#
+# MIME multipart parsing test
+#
+
+require 'tmail'
+
+mail = TMail::Mail.load( ARGV[0] || 'data/multipart' )
+
+puts '========= preamble =============='
+puts mail.body
+puts
+
+puts '========== parts ================'
+mail.parts.each_with_index do |i,idx|
+  puts "<#{idx+1}>"
+  puts i
+  puts
+end
+
+puts '========= epilogue =============='
+puts mail.epilogue
+puts
+
+puts "========= re-struct ============="
+puts mail.decoded
+puts

data/sample/parse-bench.rb

@@ -0,0 +1,68 @@
+#
+# parser benchmark
+#
+
+require 'tmail'
+
+
+if ARGV.empty? then
+  $stderr.puts "usage: #{$0} <mhdir> <mhdir>..."
+  exit 0
+end
+ARGV.each do |dname|
+  unless File.directory? dname then
+    $stderr.puts "not directory: #{dname}"
+    exit 1
+  end
+end
+
+$stdout.sync = true
+
+$count   = 0
+$failnum = 0
+$dirfail = 0
+$fieldname = ''
+$dirname   = ''
+$port  = nil
+
+begin
+  ARGV.each do |dirname|
+    $dirname = dirname
+
+    TMail::MhLoader.new( dirname ).each do |port|
+      begin
+        t = TMail::Mail.new( port )
+        $port = port
+
+        t.each_header do |key, field|
+          $fieldname = key
+          next if /received/i === key
+          if ::TMail::StructH === field then
+            field.instance_eval { parse unless @parsed }
+          end
+        end
+      rescue TMail::SyntaxError
+        $stderr.puts "fail in #{$count+1}, field #{$fieldname}"
+        $stderr.puts $!.to_s
+        $failnum += 1
+        $dirfail += 1
+
+        if $failnum % 10 == 0 then
+          puts 'fail = ' + $failnum.to_s
+          #raise
+        end
+      end
+
+      $count += 1
+      puts "end #{$count}" if $count % 50 == 0
+    end
+
+    puts "directory #{dirname} end, fail=#{$dirfail}"
+    $dirfail = 0
+  end
+rescue
+  puts "at #{$port.inspect}, non ParseError raised"
+  raise
+end
+
+puts "parse #{$count} files, fail=#{$failnum}"

data/sample/parse-test.rb

@@ -0,0 +1,19 @@
+#
+# parser test
+#
+
+require 'tmail'
+
+puts "testing parser --------------------------------"
+puts
+
+TMail::Mail.load( 'data/normal' ).each_header do |key, field|
+  if field.respond_to? :parse, true then
+    field.instance_eval {
+      parse
+      @written = true
+    }
+  end
+  printf "%s ok\n", field.name
+  # puts field.decoded
+end

data/sample/sendmail.rb

@@ -0,0 +1,94 @@
+#
+# sendmail.rb
+#
+
+require 'tmail'
+require 'net/smtp'
+require 'nkf'
+require 'etc'
+require 'socket'
+require 'getopts'
+
+
+def usage( status, msg = nil )
+  output = (status == 0 ? $stdout : $stderr)
+  output.puts msg if msg
+  output.print(<<EOS)
+Usage: cat msg | #{File.basename $0} [-j|--ja] [-s <subject>] [-f <from>] <to>
+
+  -h,--host=addr     SMTP server address. (default=localhost)
+  -s,--subject=sbj   subject of the message. (default=(none))
+  -f,--from=from     from address.
+  -j,--ja            handle japanese message. (default=off)
+
+EOS
+  exit status
+end
+
+def main
+  getopts('j', 'ja', 'h:', 'host:',
+          's:', 'subject:', 'f:', 'from:',
+          'help') or usage(1)
+
+  smtphost = $OPT_host || $OPT_h || 'localhost'
+  subject = $OPT_subject || $OPT_s
+  from = $OPT_from || $OPT_f || guess_from_address()
+  usage(1, 'Sender address not given')  unless from
+  to = ARGV
+  usage(1, 'Receipt address(es) not given') if to.empty?
+  ja_locale = $OPT_ja || $OPT_j
+
+  send_mail smtphost, setup_mail(from, to, subject, $stdin.read, ja_locale)
+end
+
+def setup_mail( from, to, subject, body, ja_locale )
+  mail = TMail::Mail.new
+  mail.date = Time.now
+  mail.from = from
+  mail.to = to
+  mail.subject = subject if subject
+  mail.mime_version = '1.0'
+  if ja_locale
+    mail.body = NKF.nkf('-j', body)
+    mail.set_content_type 'text', 'plain', 'charset' => 'iso-2022-jp'
+  else
+    mail.body = body
+    mail.set_content_type 'text', 'plain'
+  end
+  mail
+end
+
+def send_mail( host, mail )
+  msg = mail.encoded
+  $stderr.print msg if $DEBUG
+
+  smtp = Net::SMTP.new(host, 25)
+  smtp.set_debug_output $stderr if $DEBUG
+  smtp.start {
+    smtp.send_mail msg, mail.from_address, mail.destinations
+  }
+end
+
+def guess_from_address
+  user = getlogin()
+  unless user
+    $stderr.puts 'cannot get user account; abort.'
+    exit 1
+  end
+  if domain = (Socket.gethostname || ENV['HOSTNAME'] || ENV['HOST'])
+    user + '@' + domain
+  else
+    user
+  end
+end
+
+def getlogin
+  begin
+    require 'etc'
+    Etc.getlogin
+  rescue LoadError
+    ENV['LOGNAME'] || ENV['USER']
+  end
+end
+
+main