#!/usr/local/bin/ruby

=begin

       翻訳魂メールエージェント "MailHon" ver 0.1   2000/10/04

                                                       江端智一

                      E-mail:See http://www.kobore.net/mailAddress.gif

　言うまでもありませんが、本ソフトウェアは　無保証です。本ソフトウェア
の影響によりどのような事が起ころうとも当方は一切の責任を持ちません。 

  青山和光様の作品である「翻訳魂の ruby クライアント」
(http://www.omronsoft.co.jp/SP/pcunix/clientpark.html)を使用して、オム
ロンソフト社の翻訳サーバソフト「翻訳魂」を、電子メールで利用可能とする
メールエージェントです。

   +------+        +------+        +-------+ (*1)    +------+
 +-|ユーザ| [SMTP] |メール| [SMTP] |       |[honyaku]|翻訳魂|
 | |      |<------>|      |<------>|MailHon|<------->|      |
 | |メーラ|  [POP] |サーバ|  [POP] |       |         |サーバ|
 | +------+        +------+        +-------+         +------+
 +------+

(*1)「翻訳魂」用通信プロトコル
(http://www.omronsoft.co.jp/SP/download/pcunix/sdk.html#honyaku)

  MailHonに対してメールを送ると、MailHonがそのメールを翻訳魂サーバに転
送し、翻訳魂サーバから得られた翻訳結果を、メールの送信元ユーザに自動的
に返送します。

  MailHonの使用、およびプログラム許諾条項に関しては、
        http://www.kobore.net/mailhon.txt
を御参照下さい。

=end

require "net/pop"
require "net/smtp"
require "honyaku2"
require "kconv"

property = <<PROP



-----------------------------------------------------------
この文書は オムロンソフト社翻訳ソフト「翻訳魂」
(C)OMRON SOFTWARE Co., Ltd. 1999-2000 All Rights Reserved 
を用いて生成されました。      http://www.omronsoft.co.jp/
-----------------------------------------------------------
PROP

owner = <<OWN

            「翻訳魂」メールエージェント MailHon version0.1
                        http://www.kobore.net/
OWN

# 初期化処理

begin

  # 翻訳魂サーバとのコネクション確立
  honyakuSession = Honyaku.new('honyaku', 'localhost') 

  # メールサーバとのPOPコネクション確立
  popSession = Net::POPSession.new(address = 'localhost', port = 110)

  # メールサーバとのSMTPコネクション確立
  smtpSession= Net::SMTPSession.new(address = 'localhost', port = 25)

rescue
  print "初期化処理(honyaku/pop/smtpコネクション確立)に失敗しました。\n"
  print "処理を終了します。\n"
  exit
end

# 手動割り込み用

trap("SIGINT") do
  honyakuSession.close
  print "強制終了しました。\n"
  exit
end

##### 各種変数宣言

# リターンアドレス
to = ""             

# リターンサブジェクト
subj =""            

##### 各種設定項目

# 翻訳結果の送信者アドレス
sender = 'honyaku@ebacomhp.cnd.hp.com'
from = '"MailHon Ver0.1" <honyaku@ebacomhp.cnd.hp.com>'

# 翻訳魂サーバの管理者アドレス
mailHonAdmin = 'ebata@ebacomhp.cnd.hp.com'

# popサーバアクセスのインターバルタイム
popWaitTime = 60   # 60秒


##### 無限ループの開始
loop do

  # pop処理が行なわれた場合は、trueとなる
  popPassFlag = false
  
  ##### popセッションの確立
  popSession.start('honyaku','honyaku') do |popMails|
    
    # メール(一通)の取り出し
    popMails.each do |popMail|  
      
      mailBody = ""
      popMail.pop( mailBody )
      
      mailText = ""
      mailTextFlag = false
      fromFlag = false

      mailBody.each do |line|
        
        if ( line.chop =~ /^$/ )
          mailTextFlag = true
        end
        
        # from行の取り出し
        if (( line =~ /^From: /) && ( fromFlag == false ))
          fromFlag = true
          to = $'
          print to, "\n"
        end
        
        # Subject行の取り出し
        if ( line =~ /^Subject: /)
          subj = $'
          subj = subj.chop!
        end
        
        # メール本体の取り出し
        if ( mailTextFlag == true )
          line = line.gsub(/^ */,'') # 行頭空白を全削除
          mailText += line
        end
        
      end

      # メール(一通)の削除      
      popMail.delete 
      
      ##### mailText の "<honyaku>","</honyaku>"タグで囲まれた文章の検知
      
      doc = mailText
      mailText = ""

      startPoint = 0

      while(1)
        
        honyakuHead = doc.index("<honyaku>", startPoint)
        if (honyakuHead == nil)
          break
        end
        
        honyakuTail = doc.index("</honyaku>", honyakuHead + 9)
        if (honyakuTail == nil)
          break
        end

        # 9 -> sizeof("<honyaku>") 10 -> sizeof("</honyaku>")
        mailText += doc[honyakuHead + 9 .. honyakuTail-1] + ' '
        startPoint = honyakuTail + 10

      end

      if (mailText == "")
        mailText = doc + ' ' # ' 'は、文字化け回避策
      end

      # 行頭空白を全削除
      text = mailText
      mailText = ""

      text.each do |line|
        line = line.gsub(/^ */,'') 
        mailText += line
      end

      print mailText, "\n"

      ##### mailText の 英/日文判定

      doc = ""
      if (Kconv::guess(mailText) == 0)    # 英文
        mode = "ej"
      else 
        mode = "je"                       # 日文
        mailText = Kconv.toeuc(mailText)
        mailText.each do |line1|
          doc += line1.chop!              # 改行削除
        end
        mailText = doc
      end
      
      ##### 翻訳作業の実施

      begin
        honRes = ""
        honyakuSession.trns_divide_sentence(mailText,mode).each() do |sentence|
          honRes << "\n" << "[原] " <<  sentence <<  "\n"
          if sentence.is_need_trans?
            honRes << "[訳] " << honyakuSession.translate_one(sentence) << "\n"
          else
            honRes << "[訳]" << sentence << "\n"
          end
        end

      rescue HonyakuError

        # エラーメッセージの作成
        honRes = "Error(#{$!}) #{honyakuSession::ERROR_MESSAGE[$!.to_s]}\n"
        STDERR.print honRes

        # 管理者へのエラー通知
        smtpSession.start()
        smtpSession.sendmail(honRes,sender,mailHonAdmin);

        # 終了処理
        if honyakuSession
          honyakuSession.close
        end
        exit

      rescue Errno::ECONNREFUSED

        # エラーメッセージの作成
        honRes = "Error: transration server is not running."
        STDERR.print honRes

        # 管理者へのエラー通知
        smtpSession.start()
        smtpSession.sendmail(honRes,sender,mailHonAdmin);

        # 終了処理
        if honyakuSession
          honyakuSession.close
        end
        exit

      end
      
      ##### 翻訳メールヘッダ部の作成

      # from行の作成
      from = Kconv.tojis(from)
      from = from.split(//,1).pack('m') ; from = from.chomp

      # to行の作成
      to = to.chomp
      to = Kconv.tojis(to)

      # subject行の作成
      subj = '[MailHon]' + subj
      subj = Kconv.tojis(subj)
      subj = subj.split(//,1).pack('m'); subj = subj.chomp

head = <<HEAD
Subject: =?ISO-2022-JP?B?#{subj}?=
To: #{to}
From: =?ISO-2022-JP?B?#{from}?=
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: Text/Plain; charset=iso-2022-jp
HEAD

      ##### 翻訳メールの組み立て
      src = Kconv.tojis(head) + Kconv.tojis(honRes)
      src += Kconv.tojis(property + owner)

      ##### 翻訳メールの送信
      smtpSession.start()
      smtpSession.sendmail(src, sender, to )

      popPassFlag = true # popの処理が実施された
    end

    # popの処理が実施されなかった場合は、[popWaitTime] 秒待機する
    if ( popPassFlag == false )
      sleep popWaitTime
    end

  end
end