[ruby-list:24018] ML server (Re: SMTP server (mail filter proxy))

いわおかです。

On Wed, Jul 26, 2000 at 09:57:08AM +0900, Hideto ISHIBASHI wrote:
> いまは qmail+ezmlm で ML を運用しています。そこで、

そういえば、以前も話題になったかと思うんですが、ruby で ML server
を書かれてる方はいらっしゃいませんでしょうか？

とりあえず、ヘッダを書き変えるだけでアーカイブとかの機能は全く無い
ものを使ってはいるんですが、、、

いわおか

# 簡単すぎてあまり意味は無いと思いますが、一応公開。

#!/usr/local/bin/ruby
#
#	Simple ML filter by [e-mail] Nov.17,1999
#				revised for qmail Dec.2,1999
#
#       $Id: mlserv.rb,v 1.4 2000/07/26 01:36:44 iwaoka Exp $
#
# entries for /etc/aliases:
#	hoge-ml:		"|/this/script MLname \"COMMENT\""
#	hoge-recipients:	:include: /member/list/file
#	hoge-request:		administrator

#SENDMAIL = "/usr/sbin/sendmail -oi"
SENDMAIL = "/var/qmail/bin/sendmail"
MLNAME = ARGV[0]
COMMENT = ARGV[1]
SERVER = `hostname`.chop
#DOMAIN = SERVER
DOMAIN = SERVER.sub(/^[^.]*\./, '')

REPLYTO = MLNAME + "@" + DOMAIN
ERRORSTO = MLNAME + "-request@" + DOMAIN

class Mail

  def initialize(f)
    unless defined? f.gets
      f = open(f, "r")
      opened = true
    end

    @header = []
    @body = []
    begin
      i = 0
      while f.gets()
	next if /^From /	# skip From-line
	break if /^$/		# end of header
	if /^\s+/ 
	    @header[i - 1] += $_
	else
	    @header.push($_)
	end
      end
  
      return unless $_

      while f.gets()
	break if /^From /
	@body.push($_)
      end
    ensure
      f.close if opened
    end
  end

  def header
    return @header
  end

  def body
    return @body
  end
end

mail = Mail.new(STDIN)

rplto = nil
mail.header.each {|line| rplto = true if line =~ /^Reply-[Tt]o/}

#sendmail = open("|"+SENDMAIL+" -f"+MLNAME+"-request@"+SERVER+" "+MLNAME+"-recipients@"+SERVER, "w")
sendmail = open("|"+SENDMAIL+" -f"+MLNAME+"-request "+ENV["USER"]+"-"+MLNAME+"-recipients@"+SERVER, "w")
#sendmail = STDOUT
mail.header.each do |line|
    next if line =~ /^X-M[lL]|X-Mail-Count|Received|Return-Path|Return-Receipt-To|Precedence/
    if line =~ /^Subject/
	line.sub!(/\[[^\]]*\]\s*/, '') if line =~ '\['+MLNAME+'.*\]'
	line.sub!(/^(Subject:\s*)/, '\1['+MLNAME+'] ')
	line.sub!(/([Rr][Ee]:\s*)([Rr][Ee]:\s*)+/, '\1')
    end
    sendmail.print line
    if line =~ /^Date/
	sendmail.print "Precedence: list\nX-Ml-Name: ", MLNAME, " (", COMMENT, ") ", "\n"
	sendmail.print "X-Ml-Server: Ruby Simple ML filter\n"
    end
    if line =~ /^To/
	sendmail.print "Reply-To: ", REPLYTO, "\n" unless rplto
	sendmail.print "Errors-To: ", ERRORSTO, "\n"
    end
end

sendmail.print "\n"
sendmail.print mail.body
sendmail.close