ruby-list

とみたです。

ふと、SMTP サーバのようなものを作りたくなって、SMTPD クラスを作ってみ
ました。

こんな風にして使えます。どんなもんでしょう。興味ある人います？

・他のサーバに中継するだけの例

	require 'socket'
	require 'smtpd'
	require 'net/smtp'

	class MySMTPD < SMTPD
	  def comm_data(arg)
	    super do |msg|
	      Net::SMTP::start("smtpserver",25) do |s|
		s.send_mail msg, @sender, @recipients
	      end
	    end
	  end
	end

	sock = TCPServer::new(25)
	loop do
	  s = sock.accept
	  fork do
	    MySMTPD::new s, 'myhostname'
	  end
	  s.close
	end

・送信者や宛先で制限をする例

		〜〜
	class MySMTPD < SMTPD
	  def comm_rcpt(arg)
	    super do |rcpt|
	      if rcpt !~ /@my\.domain$/ then
		error "553 reject relay access"
	      end
	      if sender == "spammer@spam.domain" then
		error "553 you are spammer"
	      end
	    end
	  end
		〜〜

-- 
とみたまさひろ <tommy@tmtm.org>

Attachments (1)

smtpd.rb (2.64 KB, text/x-ruby)

# $Id$

class SMTPD

  def initialize(sock, domain)
    @sock = sock
    @domain = domain
    @sock.puts "220 #{@domain} service ready\r\n"
    @recipients = []
    while comm = @sock.gets do
      catch :next_comm do
	comm.sub!(/\r\n/,'')
	comm, arg = comm.split(/\s+/,2)
	case comm.upcase
	when 'HELO'; comm_helo arg
	when 'MAIL'; comm_mail arg
	when 'RCPT'; comm_rcpt arg
	when 'DATA'; comm_data arg
	when 'RSET'; comm_rset arg
	when 'NOOP'; comm_noop arg
	when 'QUIT'; comm_quit arg
	else
	  error '502 Error: command not implemented'
	end
      end
    end
  end

  def comm_helo(arg)
    args = arg.split
    if args.length != 1 then
      error '501 Syntax: HELO hostname'
    end
    yield args[0] if block_given?
    @helo_name = args[0]
    reply "250 #{@domain}"
  end

  def comm_mail(arg)
    if @sender != nil then
      error '503 Error: nested MAIL command'
    end
    if arg !~ /^FROM:/i then
      error '501 Syntax: MAIL FROM: <address>'
    end
    sender = parse_addr $'
    if sender == nil then
      error '501 Syntax: MAIL FROM: <address>'
    end
    yield sender if block_given?
    @sender = sender
    reply '250 Ok'
  end

  def comm_rcpt(arg)
    if @sender == nil then
      error '503 Error: need MAIL command'
    end
    if arg !~ /^TO:/i then
      error '501 Syntax: RCPT TO: <address>'
    end
    rcpt = parse_addr $'
    if rcpt == nil then
      error '501 Syntax: RCPT TO: <address>'
    end
    yield rcpt if block_given?
    @recipients << rcpt
    reply '250 Ok'
  end

  def comm_data(arg)
    if @recipients.size == 0 then
      error '503 Error: need RCPT command'
    end
    if arg != nil then
      error '501 Syntax: DATA'
    end
    reply '354 End data with <CR><LF>.<CR><LF>'
    msg = ''
    while l = @sock.gets do
      if l == ".\r\n" then break end
      msg << l
      if $message_size_limit and msg.length > $message_size_limit then
	error '552 Error: message too large'
      end
    end
    yield msg if block_given?
    reply '250 Ok'
  end

  def comm_rset(arg)
    if arg != nil then
      error '501 Syntax: RSET'
    end
    @sender = nil
    @recipients = []
    reply '250 Ok'
  end

  def comm_noop(arg)
    if arg != nil then
      error '501 Syntax: NOOP'
    end
    reply '250 Ok'
  end

  def comm_quit(arg)
    if arg != nil then
      error '501 Syntax: QUIT'
    end
    reply '221 Bye'
    exit
  end

  def parse_addr(str)
    str = str.sub(/^\s+/,'').sub(/\s+$/,'')
    if str =~ /^<(.*)>$/ then
      return $1
    end
    if str =~ /\s/ then
      return nil
    end
    str
  end

  def reply(msg)
    @sock.puts msg+"\r\n"
  end

  def error(msg)
    sleep 5
    @sock.puts msg+"\r\n"
    throw :next_comm
  end

end

Thread

Prev Next

In This Thread

Prev Next

[#35685] Exerb 2.0.0 動きません — AOKI Yoshihiro <aoki@...>

[#35688] サブクラスのオブジェクト生成時に、スーパークラスの初期化を行うには ? — Onodera Takafumi <onodera-tak@...>

[#35690] Ruby/SDL がうまく動きません — Mitsuhiko_Tomomi <mikkun_ota@...>

[#35713] Selection IPv4/IPv6 at TCPSocket — NISHI Takao <zophos@...9.com>

[#35715] すべてのメソッドを（最小コストで）フックしたい — "井上 浩一" <kyoui32@...>

[#35716] すべてのメソッドを最小コストでフックしたい。 — "井上 浩一" <kyoui32@...>

[#35718] Re: すべてのメソッドを最小コストでフックしたい。 — "井上 浩一" <kyoui32@...>

[#35722] パターンマッチした値を保持する変数は — goto@...

[#35729] SMTP サーバクラス — とみたまさひろ <tommy@...>

[#35730] how to share some value through parent class's method — YANAGAWA Kazuhisa <kjana@...4lab.to>

[#35733] tail recursion elimination — Takaaki Tateishi <ttate@...>

[#35737] Win32 環境での PStore の動かし方 — fukumit <fukumit@...>

[#35743] FortranArray, yet another handler of array — NISHIMATSU Takeshi <t-nissie@...>

[#35745] Ruby vs. Expect — T_A_K_E <koichi.takehara@...>

[#35748] DBD::OCI8 based on Ruby/OCI8 — KUBO Takehiro <kubo@...>

[#35754] [ANN] SWIG 1.3.14 リリース — Shibukawa Yoshiki <yoshiki@...>

[#35759] Bignum fast multiplication — IKEGAMI Daisuke <daisu-ik@...>

[#35769] [ANN] SWIG-Ruby ドキュメント翻訳 — Shibukawa Yoshiki <yoshiki@...>

[#35770] cgi.rb の form — rio-t@...

[#35772] Unsecure world writeable dirの警告 — "井上 浩一" <kyoui32@...>

[#35789] multipart な CGI を速くしたい — Takashi Kanai <kanai@...4u.or.jp>

[#35792] "self = / ー /" でエラー — "Tatsuaki Nagai" <Tatsuaki_Nagai@...>

[#35795] Re: "self = / ー /" でエラー — "Tatsuaki Nagai" <Tatsuaki_Nagai@...>

[#35799] Re: "self = / ー /" でエラー — "Tatsuaki Nagai" <Tatsuaki_Nagai@...>

[#35810] [ANN] RubyCocoa 0.2.7 — FUJIMOTO Hisakuni <hisa@...>

[#35811] 祝 1.7.3 But cast_256.so Segmentaation fault — "Inoue" <rubyist@...1.117.ne.jp>

[#35813] — NAWATE Masahiko <agul@...>

[#35816] [ANN] irbsh-0.8.0 — rubikitch <rubikitch@...>

[#35817] CGI::pretty — rio-t@...

[#35821] [ANN] RDE0.9.7.0 — sakazuki <QZS01353@...>

[#35822] profile.rb の使い方 — rio-t@...

[#35823] [Q]UNIX command in Ruby — Masaaki Sakano <mas@...>

[#35829] cygwin 版 ruby で ARGV に日本語 — rio-t@...

[ruby-list:35729] SMTP サーバクラス

Attachments (1)

Thread

In This Thread

[#35715] すべてのメソッドを（最小コストで）フックしたい — "井上浩一" <kyoui32@...>

[#35716] すべてのメソッドを最小コストでフックしたい。 — "井上浩一" <kyoui32@...>

[#35718] Re: すべてのメソッドを最小コストでフックしたい。 — "井上浩一" <kyoui32@...>

[#35772] Unsecure world writeable dirの警告 — "井上浩一" <kyoui32@...>