[ruby-list:4201] Mini ML Program

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Mon_Sep__8_18:37:42_1997_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

手手切扎氏→丐月手卞仇允匹允‘

午曰丐尹內 ruby じ杹午中丹仇午匹﹞瘉手簽 ML 及皿伕弘仿丞毛
中④艉牏楔縑阬

呿癲反手勻午切扎氏午窗尥仃化井日楔縣咫瓣縣韝エ馱活阬
  ’慼卞縐月及互中勾卞卅月井坌井日卅中
  ’引內卅洃𧘇瓣𧘇�媗忖竣鴗褡𠴲炮瑰竣炯阬 滬午中丹及互丐月及匹﹞午曰丐尹內霜勻化心引允‘

方曰ɪ仄中旦正奶伙﹞讀割卅拺陸阬 刈漆反支勻化卅中) 毛升丹中丹
氘卞じ木月午渲暹卞卅月井﹞卅升﹞中欠中欠項尹化贍仃月午湖仄中匹
允 (_ _)‘

-- 
瘉尼﹜甲﹜穴﹝﹜ML 支 procmail 心凶中卅手及毛綜月凶戶及 toolkit 卞
卅月朿圴毀毛綜欠丹午閤勻化引允‘

# 瘉阬 謥襗 匹酗忖�蚺瓣④縣韝壑惜氶阬謥襗 匹 OOP 仄方丹午
# 仄化仍切扎仍切扎卞卅勻化﹞盟卞卅勻化支戶凶‘

漆詨俓仄中/綜月手及:
  libSMTP
  libMIME
  libMailHeader

午曰丐尹內 libMailHeader 井日綜欠丹‘‘‘


----Next_Part(Mon_Sep__8_18:37:42_1997_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

class CMail
  # 戊件旦玄仿弁正
  def CMail.new(f)
    unless f.kind_of?(IO)
      f  pen(f, "r")
      me  uper(f)		# call initialize(f)
      f.close
    else
      me  uper
    end
    return me
  end

  # 捬阬
  麧濎濊殧擩义冽    燮槦麧     濩檷     玁濇畾谾鏵貝
      心柴鴄臐
      鍷欚 氄 胳が瀍 	鵻潞 が瀍原濎      碞槦氄 胳仁		槴檴 鳺撦殣

      氄 胳侏茷征嫇爸悚幸
	敳鐍  	燮槦麧撮 仃 Ⅱ 仆 Ｎ謖
      樦鵴
	黼漶辛睖颿祝 壯	燮槦麧撮 燮槦麧糪豵Ｎ穮 心 Ｎ謖
      槴    槴    蠈鏷襜 羻懤麑 心
    玁濇畾谾鏵貝
      碞槦氄 胳が瀍       濩檷顳贂鵩角蓱
    槴  槴
  丟□伙目永母毛潸曰阬
  麧鳺撦殣
    蠈鏷襜 燮槦麧  槴
  丟□伙示犯奴毛潸曰阬
  麧碨嘵
    蠈鏷襜 濩檷  槴
  隙爛目永母白奴□伙玉毛蟈化潸曰阬
  麧詄冽毇懥         燮槦麧糪槦蜼       𤎜      撮 氄 胳�縃樦噆舫
        蠈鏷襜   槴
  目永母白奴□伙玉及煤糧墊毛勾卅仆化域墊卞允月
  def join_header
    header  ]
    @header.each {
      |l|
      line  .clone
      line.gsub!(/\r/, '')
      line.gsub!(/\n/, '')
      line.gsub!(/\t/, ' ')

      if line /^\s+(.*)/
	line  eader.pop + " " + $1
      else
	if not header.empty?
	  header << header.pop + "\n"
	end
      end
      header << line
    }
    header << header.pop + "\n"
    return header
  end

end

----Next_Part(Mon_Sep__8_18:37:42_1997_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

class CMailSpool
  MAX_FILES  000		# 1勾及犯奴伊弁玄伉動票及瘉釐白央奶伙醒

  # 戊件旦玄仿弁正
  def CMailSpool.new(d)
    return super(d)
  end

  # 捬阬
  麧濎濊殧擩义其    濮澽  
  槴
  犯奴伊弁玄伉毛綜月
  def create_dir(dir)
    Dir.mkdir(dir) if not File.exist?(dir)
  end
  private :create_dir

  # 白央奶伙毛じ木月屯五樺藡痐阬
  麧玁殣橀鐐蛖翵摥鏻蜵憍
    蠈鏷襜 濮澽 氄 芩崵厶旼
    皸鵴  摥鏻蜵芩崵厶旼茤氤檽芩崵厶旼    蠈鏷襜 濮澽 ０皸鵴氤檽  槴  貗瀄敳綢鳺蠈裎檽趠

  丐月 sequence 白央奶伙及醱匹瘉釐及乒用毛潸曰阬
  麧憼黀裍殥籓鍏憡    僸覷  澽桃斀漼濮澽 ０炎    罅 
    僸覷桀摦      𤎜      鍷欚 氄 ぃ懤桐澽樍鐐譀縐鴝
       濇摰皸鵴鍕翴到帑鐐蝍
      罅  氄 罅    
    僸 僸０罅灡鐐裍
    縃懤 澽桃斀漼僸０炎    縃懤颾槦蜼       𤎜       濇摰皸鵴鍕翴到帑鐐蝍
      罅  氄 罅        蠈鏷襜 罅  槴  貗瀄敳綻摷轚鵴嚬槴蜲

  鵴嚬槴蜲 ⺀及白央奶伙卞 body 毛阬
  麧贂籊鵴饁 碨嘵    僸 鳺蠈裎檽趠協殥    蜚槦醲蛷澽其澽     濇摰鍷魖僸０鵴餺鐐裍ｏ◣
    撮 碨嘵
    畾蜵瀀  槴
  瘉釐及 sequence 毛儅勾白央奶伙毛馨笛允月
  def add(body)
    print last_sequence, "\n"
    put(last_sequence + 1, body)
  end

  # sequence ⺀及白央奶伙毛 get 允月
  def get(seq)
    fn  here_to_go(seq) + "/" + seq.to_s
    return [] if not File.exist?(fn)
    f  ile.new(fn, "r")
    body  ]
    f.each {
      |l|
      body << l
    }
    f.close
    return body
  end

end

----Next_Part(Mon_Sep__8_18:37:42_1997_809)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

#!/usr/local/bin/ruby
##########
#

$ml_address  hoge-ml / hoge.co.jp'
$ml_admin  owner-hoge-ml / hoge.co.jp'
$ml_member  ./members'
$ml_spool  ./spool'

$sendmail  /usr/lib/sendmail'

##########
# 丟件田伉旦玄毛綜月
def get_members(file)
  f  ile.open(file)
  members  "
  f.each_line {
    |l|
    line  .clone
    line.sub!(/#.*$/, '')
    if /(\S+@\S+)/
      members + 1 + " "
    end
  }
  f.close
  return members
end

##########
# 目永母毛綜月
## Reply-To 毛尥仃月‘葭及丟□伙卞丐勻凶日毛 get‘
## 中日卅中白奴□伙玉反綽月‘X-* 反酸允〝
def create_header(header)
  field_proc   
    "from:" Proc.new { |l| l },
    "to:" Proc.new { |l| l },
    "cc:" Proc.new { |l| l },
    "mime-version:" Proc.new { |l| l },
    "content-type:" Proc.new { |l| l },
    "content-transfer-encoding:" Proc.new { |l| l },
    "reply-to:" Proc.new {
      |l|
      reply_flag  RUE
      l
    },
    "subject:" Proc.new {
      |l|
      s  "
      if l /^subject:\s*(.*)/i
	s  1
      end
      s.gsub(/re:\s*re:/i, "Re:")
      "Subject: " + s + "\n"
    },
  }

  target  ]
  reply_flag  ALSE
  header.each {
    |l|
    f  .split[0].downcase
    if field_proc.key?(f)
      target << field_proc[f].call(l)
    end
  }
  if reply_flag FALSE
    target << "Reply-To: " + $ml_address + "\n"
  end
  return target
end

##########
# main
require "CMail"

orig  Mail.new(STDIN)
head  reate_header(orig.join_header)
body  rig.body

mail  ead + "\n" + body
print mail

# 丟件田伉旦玄毛潸丿
member  et_members($ml_member)

print member, "\n"

exit 0

# 丟□伙毛霜月
com  |" + $sendmail + " -oi -f" + $ml_admin + " " + member
sendmail  pen(com, "w")
sendmail.write(mail + "\n")
sendmail.close

# spool 卞忡繡
require "CMailSpool"

s  MailSpool.new($ml_spool)
s.add(mail)

exit 0

----Next_Part(Mon_Sep__8_18:37:42_1997_809)----