[ruby-list:34117] SlowML 実装実験 /Re: quickml サーバ

るびべん です：

実は、別の「場」でも まつもとはん と議論になってて"root権限なしでQuickML
を運用は可能である"ということをなかなか信じてもらえません（涙）。

なので、running script で実証しますです。

まつもとさんの主張は"任意のアドレスで来るメールに一般ユーザが対応するな
んてできなはずだぞ〜"ということなんで、アドレスを取り出す（で、あなたの
投稿アドレスは”＊＊＊＊”でしょ？と打ち返す）とこまでをQuickML のオリジ
ナルスクリプトから拝借します。
（この投稿をもって、GPL2条件クリアーとさせてください＞高林さん）

$cat test.rb                                                          [~/itlas]
#!/usr/local/bin/ruby

def cr
   print "\n"
end

def xchomp! (line)
      line.gsub!(/[\r\n]/, "")
end


def get_value(key)
      field = @header.find {|field| key.downcase == field.first.downcase}
      if field then field.last else "" end
end


def push_field (key, value)
      ###@length += key.length + value.length
      ###raise TooLargeMail if @length > @max_length
      field = [key, value]  # Use Array for preserving order of the header
      @header.push(field)
end

def concat_field (value)
      lastfield = @header.last
      @header.pop
      push_field(lastfield.first, lastfield.last + "\n" + value)
end

def push_body (line)
      ###@length += line.length
      ###raise TooLargeMail if @length > @max_length
      @body << line.chomp + "\n"
end


@header=[]
@body=""

STDIN.each{|line|
        xchomp!(line)
        break if line.empty? # end of header
        if /^(\S+):\s*(.*)/=~ line
          attr = $1
          push_field(attr, $2)
        elsif attr
          concat_field(line)
        end
}

STDIN.each{|line|
        xchomp!(line)
        push_body(line)
}

from=get_value("From")

out="From: SlowML-test<[e-mail]>\n"
out << "To: "+from+"\n"
out << "Subject: Congratulations!\n"
out << "\n\n"
out << "Hi!!, "+from+"\n"
out << "I know you sent to : "+get_value("To")+"\n\n"
out << "===== the body is =====\n"
out << @body
out << "\n"

mail = open("| /usr/sbin/sendmail -t" , "w")
mail.print out

＝＝＝スクリプトはこまで：

このままだと、auto-resoponder になってますが、最後の部分で、get_value("To")
の値をみて：

ケース１）登録されてないアドレスならＭＬを作る（＝しかるべくconfigファイ
ルを設営してあげる）

ケース２）登録済みアドレスで、かつ、from: が当該ＭＬメンバーなら、投稿と
して配信処理。

ケース３）登録済みアドレスで、from: が知らない人なら、「あんた誰？おとと
い来な」と打ち返す

とすれば、quickML になる（はず）。


るびべん。