Instrument content length from read_ber

Author: mtodd

lib/net/ber/ber_parser.rb

@@ -160,6 +160,7 @@ def read_ber(syntax = nil)
     if -1 == content_length
       raise Net::BER::BerError, "Indeterminite BER content length not implemented."
     else
+      yield id, content_length if block_given?
       data = read(content_length)
     end
 

lib/net/ldap.rb

@@ -1268,8 +1268,11 @@ def close
   end
 
   def read(syntax = Net::LDAP::AsnSyntax)
-    instrument "read.net_ldap_connection", :syntax => syntax do
-      @conn.read_ber(syntax)
+    instrument "read.net_ldap_connection", :syntax => syntax do |payload|
+      @conn.read_ber(syntax) do |id, content_length|
+        payload[:response_id]    = id
+        payload[:content_length] = content_length
+      end
     end
   end
   private :read