From f3e87dd4065e59e49034a2b5b332c50127b0dc09 Mon Sep 17 00:00:00 2001
From: blackhedd <blackhedd@005445c4-6811-0410-8301-cae4f0071d1d>
Date: Sat, 30 Sep 2006 12:16:25 +0000
Subject: [PATCH] Added support for SASL data types and requests.
 Connection#bind_sasl is incomplete, don't use it yet.

---
 lib/net/ldap.rb | 41 ++++++++++++++++++++++++++++++++++++-----
 1 file changed, 36 insertions(+), 5 deletions(-)

diff --git a/lib/net/ldap.rb b/lib/net/ldap.rb
index 15ab793..5d813eb 100644
--- a/lib/net/ldap.rb
+++ b/lib/net/ldap.rb
@@ -300,10 +300,12 @@ module Net
           0 => :string,             # password
           1 => :string,             # Kerberos v4
           2 => :string,             # Kerberos v5
+          7 => :string,             # serverSaslCreds
         },
         :constructed => {
           0 => :array,              # RFC-2251 Control
           3 => :array,              # Seach referral
+          7 => :array,              # serverSaslCreds
         }
       }
     })
@@ -321,6 +323,7 @@ module Net
       3 => "Time Limit Exceeded",
       4 => "Size Limit Exceeded",
       12 => "Unavailable crtical extension",
+      14 => "saslBindInProgress",
       16 => "No Such Attribute",
       17 => "Undefined Attribute Type",
       20 => "Attribute or Value Exists",
@@ -710,6 +713,7 @@ module Net
       @result == 0
     end
 
+
     #
     # #bind_as is for testing authentication credentials.
     #
@@ -1127,12 +1131,21 @@ module Net
     # bind
     #
     def bind auth
-      user,psw = case auth[:method]
-      when :anonymous
-        ["",""]
-      when :simple
-        [auth[:username] || auth[:dn], auth[:password]]
+
+      meth = auth[:method]
+      user,psw = "",""
+
+      if meth == :simple
+        user,psw = [auth[:username] || auth[:dn], auth[:password]]
+      elsif meth == :sasl
+        return bind_sasl( auth ) # Note the early return.
       end
+
+      #user,psw = if auth[:method] == :anonymous
+      #  ["",""]
+      #when :simple
+      #  [auth[:username] || auth[:dn], auth[:password]]
+      #end
       raise LdapError.new( "invalid binding information" ) unless (user && psw)
 
       msgid = next_msgid.to_ber
@@ -1144,6 +1157,24 @@ module Net
       pdu.result_code
     end
 
+    #--
+    # bind_sasl
+    # PROVISIONAL, only for testing SASL implementations. Will disappear, so DON'T USE THIS.
+    def bind_sasl auth
+      user = auth[:username] or raise LdapError.new( "invalid username" )
+      msgid = next_msgid.to_ber
+      sasl = ["GSS-SPNEGO".to_ber, "NTLMSSP\000\001\000\000\000\227\202\010\340\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000".to_ber].to_ber_contextspecific(3)
+      sasl = ["GSSAPI".to_ber].to_ber_contextspecific(3)
+      request = [LdapVersion.to_ber, "".to_ber, sasl].to_ber_appsequence(0)
+      request_pkt = [msgid, request].to_ber_sequence
+      @conn.write request_pkt
+p request_pkt
+
+      (be = @conn.read_ber(AsnSyntax) and pdu = Net::LdapPdu.new( be )) or raise LdapError.new( "no bind result" )
+p pdu
+      pdu.result_code
+    end
+
     #--
     # search
     # Alternate implementation, this yields each search entry to the caller