Changeset 620

Timestamp:

12/24/07 13:53:06 (1 year ago)

Author:

blackhedd

Message:

Added a SASL client

Files:

• version_0/lib/protocols/saslauth.rb (modified) (2 diffs)
• version_0/Rakefile (modified) (1 diff)
• version_0/tests/test_sasl.rb (added)

version_0/lib/protocols/saslauth.rb

@@ -108 +108 @@
-                                end
-                        end
+
-                        def validate username, psw, sysname, realm
-                                p username
@@ -116 +117 @@
-                        end
-                end
+
+                # Implements the SASL authd client protocol.
+                # This is a very, very simple protocol that mimics the one used
+                # by saslauthd and pwcheck, two outboard daemons included in the
+                # standard SASL library distro.
+                # The only thing this is really suitable for is SASL PLAIN
+                # (user+password) authentication, but the SASL libs that are
+                # linked into standard servers (like imapd and sendmail) implement
+                # the other ones.
+                #
+                # You can use this module directly as a handler for EM Connections,
+                # or include it in a module or handler class of your own.
+                #
+                # First connect to a SASL server (it's probably a TCP server, or more
+                # likely a Unix-domain socket). Then call the #validate? method,
+                # passing at least a username and a password. #validate? returns
+                # a Deferrable which will either succeed or fail, depending
+                # on the status of the authentication operation.
+                #
+                module SASLauthclient
+                        MaxFieldSize = 128*1024
+
+                        def validate? username, psw, sysname=nil, realm=nil
+
+                                str = [username, psw, sysname, realm].map {|m|
+                                        [(m || "").length, (m || "")]
+                                }.flatten.pack( "nA*" * 4 )
+                                send_data str
+
+                                d = EM::DefaultDeferrable.new
+                                @queries.unshift d
+                                d
+                        end
+
+                        def post_init
+                                @sasl_data = ""
+                                @queries = []
+                        end
+
+                        def receive_data data
+                                @sasl_data << data
+
+                                while @sasl_data.length > 2
+                                        len = (@sasl_data[0,2].unpack("n")).first
+                                        raise "SASL Max Field Length exceeded" if len > MaxFieldSize
+                                        if @sasl_data.length >= (len + 2)
+                                                val = @sasl_data[2,len]
+                                                @sasl_data.slice!(0...(2+len))
+                                                q = @queries.pop
+                                                (val == "NO") ? q.fail : q.succeed
+                                        else
+                                                break
+                                        end
+                                end
+                        end
+                end
+
-        end
-end

version_0/Rakefile

@@ -396 +396 @@
-end
-
+desc "Test SASL"
+task :test_sasl do |t|
+  run_tests t, :extension, "test_sasl*.rb"
+end
+
-
-desc "Build everything"