[ruby-list:6412] Re: call for scripts

< ^ > P N |<>|^_>< --- | ~ ...Help
--az5kW0TMd/poaVZ8
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=mutta03411

五仁凶卞→尤℅凶欠℅匹允﹝

Tue, Feb 10, 1998 at 06:04:35PM +0900 卞云中化
Yukihiro Matsumoto 今氏菮仁:

>   伓擖丰皏擖磥豸═輶襣洶中阬掠刈℅200墊蠢蘸動票
>   # 优邰卅朿坌毛伓擖丰皏擖磥侐价瓣楔④楔牏忖峇洏╞磥エ飽阬

  丐月蠢蘸撢迕曉啦怗及丐月皿伕弘仿丞
> 
>   棵簽卅銀中杅及濩抸尥五

ruby毛襞勻化嶀中縣峇洶酗阬刈漆澎毛じ木凶仃升)﹝
mime毛扔禾□玄仄化卅中丟奶仿卞﹜mime及穴伙民由□玄匹
霜曰勾仃日木化仁月午漱月及匹﹜仇木毛銀勻化引仄凶﹝

仇氏卅氏匹中中匹允井〝

-- 
諦戲毛ボ扙中髑仆

腑禱 擦(Kikutani Makoto)  kikutani / eis.or.jp hgf03701 / niftyserve.or.jp
                          http://www.eis.or.jp/muse/kikutani/

--az5kW0TMd/poaVZ8
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=b64dec

#!/usr/local/bin/ruby
#   decode base64encoded multpart mail for non-mime-supported mailer
#   usage: b64dec [file]

require "base64.rb"

class Body
  def initialize(pn)
    @part_num  n
    @body  il
    @filename  il
    @method  il
  end

  attr("filename", TRUE)
  attr("method", TRUE)

  def append(s)
    @body + 
  end

  def decode
    begin
      if @method "base64"
	@filename  printf("part%d\.decoded", @part_num) unless @filename
	fd  pen(@filename, "w")
	printf(fd, "%s", decode64(@body))
      else
	@filename  printf("part%d", @part_num) unless @filename
	fd  pen(@filename, "w")
	printf(fd, "%s", @body)
      end
      fd.close
      printf($stderr, "%s created\n", @filename) 
    rescue
      printf($stderr, "couldn't write %s\n", @filename) 	
    end
  end
end

body  il
boundary  il
part_num  

while gets
  if /boundary(.*)\"/ # multipart boundary string has double quote
    rex  egexp.quote($1)
    boundary  ^--#{rex}/
  elsif /boundary*)/
    rex  egexp.quote($1)
    boundary  ^--#{rex}/
  elsif boundary && $_ boundary # beginning or end of multipart
    part_num + 
    if body
      body.decode
    end
    body  ody.new(part_num)
  elsif /^Content-Transfer-Encoding: (\S+)/
    body.method  1 if body && part_num > 0
  elsif /^Content-Disposition:.*filename(.*)\"/
    body.filename  1 if body
  elsif /^Content-.*:/
    # do nothing
  else
    body.append($_) if body
  end
end

--az5kW0TMd/poaVZ8--