groat-smtpd 0.1.0

data/lib/groat/smtpd/extensions/help.rb

@@ -0,0 +1,42 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Help
+      def self.included mod
+        puts "Included HELP verb"
+        mod.ehlo_keyword :help
+        mod.verb :help, :smtp_verb_help
+      end
+
+      def smtp_verb_help(args)
+        verbs = known_verbs.map{|x| x.to_s.upcase}
+        msg = ["Acceptable commands"]
+        while not verbs.empty?
+          msg << verbs.shift(4).map{|x| "%-8s" % x}.join(" ")
+        end
+        reply :code=>214, :message=>msg
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/mechanism-login.rb

@@ -0,0 +1,74 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Authentication
+      module Login
+        def self.included mod
+          puts "Included Non-standard LOGIN Authentication Mechanism"
+          raise SMTPExtensionError.new("LOGIN auth mechanism requires AUTH") unless mod.ehlo_keyword_known? :auth
+          mod.auth_mechanism :login, :auth_mech_login, :secure?
+          super
+        end
+
+        def validate_auth_login(user, pass)
+          response_auth_temp_fail
+        end
+
+        def auth_mech_login(arg)
+          response_bad_command_parameter(:message => "Encrypted session required", 
+                                         :terminate => false) unless secure?
+          check_command_group
+          unless arg.nil?
+            response_syntax_error(:message => "LOGIN does not allow initial response")
+          end
+          # Outlook requires "Username:" (vs the draft which says "User Name")
+          toclient "334 " + Base64.encode64("Username:").strip + "\r\n"
+          r = fromclient.chomp
+          if r.eql? '*'
+            response_syntax_error(:message => "Authentication Quit")
+          end
+          if r !~ BASE64_VALID
+            response_syntax_error(:message => "Bad response")
+          end
+          username = Base64.decode64(r) 
+          # Outlook requires "Password:" (vs the draft which says "Password")
+          toclient "334 " + Base64.encode64("Password:").strip + "\r\n"
+          r = fromclient.chomp
+          if r.eql? '*'
+            response_syntax_error(:message => "Authentication Quit")
+          end
+          if r !~ BASE64_VALID
+            response_syntax_error(:message => "Bad response")
+          end
+          password = Base64.decode64(r) 
+          res = validate_auth_login(username, password)
+          if res
+            @authenticated = true
+            response_auth_ok
+          end
+        end
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/no-soliciting.rb

@@ -0,0 +1,41 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module No_Soliciting
+      def self.included mod
+        puts "Included RFC 3865:NO_SOLICITING"
+        mod.ehlo_keyword :"no-soliciting", :solicitation_keywords
+        mod.mail_param :solicit, :smtp_verb_solicit
+      end
+
+      def solicitation_keywords
+      end
+
+      def mail_param_solicit(param)
+        @mail_solicit = param
+        puts "MAIL SOLICIT=#{@mail_solicit}"
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/onex.rb

@@ -0,0 +1,37 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Onex
+      def self.included mod
+        puts "Included non-RFC specified verb: ONEX"
+        mod.ehlo_keyword :onex
+        mod.verb :onex, :smtp_verb_onex
+      end
+
+      def smtp_verb_onex(args)
+        response_ok
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/pipelining.rb

@@ -0,0 +1,59 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Pipelining
+      def reset_connection
+        @pipelinable = false
+        super
+      end
+
+      def self.included(klass)
+        puts "Included RFC 2920: Pipelining"
+        klass.after_all_verbs do |verb|
+          puts "After #{verb}"
+          @pipelinable = false
+        end
+        klass.before_verb :rset, :pipelinable
+        klass.before_verb :mail, :pipelinable
+        klass.before_verb :send, :pipelinable
+        klass.before_verb :soml, :pipelinable
+        klass.before_verb :saml, :pipelinable
+        klass.before_verb :rcpt, :pipelinable
+        super
+      end
+
+      def pipelinable
+        @pipelinable = true
+      end
+
+      def check_command_group
+        if not esmtp? or not @pipelinable
+          if clientdata?
+            response_bad_sequence
+          end
+        end
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/size.rb

@@ -0,0 +1,46 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Size
+      def self.included mod
+        puts "Included RFC 1870: Message Size Declaration"
+        mod.ehlo_keyword :size, :max_mail_size
+        mod.mail_param :size, :mail_param_size
+        super
+      end
+
+       def mail_param_size(param)
+        if (param !~ /\A[0-9]{1,20}\Z/)
+          response_bad_parameter(:message => "Numeric size required")
+        end
+        @mail_size = param
+        puts "MAIL SIZE=#{@mail_size}"
+      end
+
+      def max_mail_size
+        "0"
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/starttls.rb

@@ -0,0 +1,69 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+require 'openssl'
+
+module Groat
+module SMTPD
+  module Extensions
+    module StartTLS
+      def self.included mod
+        puts "Included RFC 3207: STARTTLS"
+        mod.ehlo_keyword :starttls, nil, :show_starttls_keyword?
+        mod.verb :starttls, :smtp_verb_starttls
+      end
+
+      def reset_connection
+        @secure = false
+        super
+      end
+
+      def set_ssl_context(ctx)
+        @sslctx = ctx
+      end
+
+      def show_starttls_keyword?
+        not secure?
+      end
+
+      def secure?
+        @secure
+      end
+
+      def smtp_verb_starttls(args)
+        check_command_group
+        response_syntax_error unless args.empty?
+        response_bad_sequence unless esmtp?
+        # § 4.2 "A client MUST NOT attempt to start a TLS session if a TLS
+        # session is already active"
+        response_bad_sequence if secure?
+        toclient "220 Ready to start TLS\r\n"
+        ssl = OpenSSL::SSL::SSLSocket.new(@s, @sslctx)
+        ssl.accept
+        @s = ssl
+        # http://www.imc.org/ietf-smtp/mail-archive/msg05452.html
+        reset_connection
+        @secure = true
+        true
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/extensions/verb.rb

@@ -0,0 +1,37 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+module Groat
+module SMTPD
+  module Extensions
+    module Verbose
+      def self.included mod
+        puts "Included non-RFC specified verb: VERB"
+        mod.ehlo_keyword :verb
+        mod.verb :verb, :smtp_verb_verbose
+      end
+
+      def smtp_verb_verbose(args)
+        response_ok
+      end
+    end
+  end
+end
+end

data/lib/groat/smtpd/server.rb

@@ -0,0 +1,39 @@
+# vim: set sw=2 sts=2 ts=2 et syntax=ruby: #
+=begin license
+  Copyright 2011 Novell, Inc.
+
+  Licensed under the Apache License, Version 2.0 (the "License");
+  you may not use this file except in compliance with the License.
+  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+
+  Author(s):
+    Peter Bowen <pzbowen@gmail.com> Ottawa, Ontario, Canada
+=end
+
+require 'gserver'
+require 'groat/smtpd/smtp'
+
+module Groat
+module SMTPD
+  class Server < GServer
+    @server_class = Groat::SMTPD::SMTP
+
+    def initialize(server_class = nil, *args)
+      @server_class = server_class unless server_class.nil?
+      super(*args)
+    end
+
+    def serve(io)
+      @server_class.new.serve(io)
+    end
+  end
+end
+end