#!/usr/bin/perl
# $Id: imail.pl.txt,v 1.1.1.1 2000/12/30 08:16:28 terada Exp $
# i-modeにメールを転送するscript
#

# メールの転送先
$to = $ARGV[0];

# ヘッダか本文かの見分け(0:ヘッダ、1:本文)
$flag = 0;

# path to sendmail
$SENDMAIL = '/usr/sbin/sendmail' ;

# maximum body size (in byte)
$MAX_SIZE = 500 ;


while(<STDIN>){
  ### header に対する処理
  if(/^From:/i && $flag == 0){
    $header = $header . $_ ;	# From: を取り出す
  }
  if(/^Subject:/i && $flag == 0){
    $header = $header . $_ ;	# Subject: を取り出す
  }
  # ヘッダの終り
  if(/^\n/ && $flag == 0){
    $flag = 1;
    $header = $header . $_ ;
  }

  ### body に対する処理
  if($flag == 1){
    # 署名を削除する
    if(/^--/) {
      last ;
    }
    chop($_);			# 改行を取り除く
    s/^>.*//s;			# 引用を取り除く
    s/\t/ /g;			# タブをスペースに変換
    s/^ *//;			# 空行を削除
    $body = $body . $_ ;
  }
  
}


if (length $body <= $MAX_SIZE && length $body > 0) {
  open(SENDMAIL, "|${SENDMAIL} $to") ;
  print SENDMAIL $header . $body . "\n" ;
#  print $header . $body . "\n" ;
  close(SENDMAIL) ;
}